派生クラスメンバー

派生クラスClsTokuisakiに、得意先マスター表の選択・更新・削除用の共通処理メンバーを実装します。コンストラクタで、得意先マスター表からレコードを取得します。

• コンストラクタ
• プロパティ：得意先コード

ソースリストの枠内をクリックすると全選択できます。

'/////////////// 派生クラス：得意先選択更新削除 ////////////////
Public Class ClsTokuisaki
    Inherits ClsTokuisakiBase

    '=======================================================
    ' 機能：コンストラクタ
    ' 引数：得意先コード
    '=======================================================
    Public Sub New(ByVal tCode As String)

       ' 最初に基本クラスのコンストラクタを呼び出す
       MyBase.New()
       ' 得意先コードエラーチェック
        CheckTokuisakiCode(tCode)
       ' 得意先マスター表からレコード取得
        Dim dbIO As New ClsHanbaiKanriDBIO(TABLE_NAME, KEY_FIELD, tCode)
        Dim dt As DataTable = dbIO.GetRowsData()
        If dt.Rows.Count = 1 Then
            ' レコードがあった時は正常
            tokuisakiValue.tCode = tCode          ' 得意先コード
            tokuisakiValue.tName = CStr(dt.Rows(0)("得意先名称"))
            tokuisakiValue.tJusho = CStr(dt.Rows(0)("得意先住所"))
            tokuisakiValue.tYuBango = CStr(dt.Rows(0)("郵便番号"))
        Else
            ' レコードがなかった時は例外スロー
            Throw New TokuisakiCodeException _
                ("得意先マスター表にレコードがありません")
        End If

    End Sub

    '-------------------------------------------------------
    ' プロパティ：得意先コード（読取専用）
    '-------------------------------------------------------
    Public ReadOnly Property TokuisakiCode() As String

        ' Getプロパティ
        Get
            Return tokuisakiValue.tCode
        End Get

    End Property

End Class