得意先データ派生クラス [VB]

Visual Basic ADO.NET [Community Express]

得意先データ派生クラスの実装

得意先選択・更新・削除派生クラスClsTokuisakiは、コンストラ クタの引数に得意先コードを指定して、得意先マスター表からレコードを取得したり、プロパティを介して得意先名称や得意先住所を取得するクラスです。

派生クラスメンバー

派生クラス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