得意先派生クラス [マスター保守]

Visual Basic 2010/2008 やさしいADO.NET DBプログラム

   得意先派生クラス

得意先選択・更新・削除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
【得意先基本クラスメンバー】

基本クラス(基底クラス)ClsTokuisakiBaseに、得意先マスター表の選択・更新・削除・追加の共通処理メンバーを実装します。抽象クラスなので、コンストラクタは実装しません。


【得意先追加派生クラスメンバー】

追加派生クラスClsInsertTokuisakiは、得意先マスター表にレコード追加するメンバーを実装します。

  • コンストラクタ
  • プロパティ:得意先コード
  • メソッド:得意先マスター表に1レコードを追加するメソッド
【得意先削除派生クラスメンバー】

得意先削除派生クラスClsDeleteTokuisakiは、得意先マスター表からレコードを削除するメンバーを実装します。

  • コンストラクタ
  • メソッド:得意先マスター表から1レコードを削除するメソッド
【得意先更新派生クラスメンバー】

得意先更新派生クラスClsUpdateTokuisakiは、得意先マスター表からレコードを更新するメンバーを実装します。

  • コンストラクタ
  • メソッド:得意先マスター表から1レコードを更新するメソッド

Copyright© やさしいVB2010/2008 ADO.NET. All rights reserved.