サンプルプログラム

社員データ更新クラスは、社員データ管理選択更新削除クラスを継承します。インスタンスはこのクラスで生成するので、コンストラクタを実装します。

この更新クラスに、１レコード更新メソッドを実装することで、社員テーブルアクセスクラスのメソッドを画面クラスから呼び出す必要がなくなります。

社員データ管理更新クラスでは、次のメンバーを実装します。

• コンストラクタ（引数：社員コード）
• 1レコード更新メソッド

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

Option Strict On
Imports System.Text.RegularExpressions

'////////// 基本クラス：社員データ基本クラス //////////
Public MustInherit Class ClsShainBase

    '<< ◆ソースリストはこちら◆ >>

End Class

'////////// 派生クラス：社員データ選択更新削除クラス //////////
Public MustInherit Class ClsShainSub
    Inherits ClsShainBase

    '<< ◆社員データ選択更新削除クラスはこちら◆ >>

End Class

'////////// 派生クラス：社員データ更新クラス //////////
Public Class ClsUpdateShain
    Inherits ClsShainSub

    '========================================================
    ' 機能：コンストラクタ
    ' 引数：社員コード
    '========================================================
    Public Sub New(ByVal shainCode As String)

        MyBase.New(shainCode)

    End Sub

    '********************************************************
    ' 機能：社員テーブルの1レコードを更新するメソッド
    ' 引数：更新する行データ
    ' 戻値：更新したレコード数
    '****1*********2*********3*********4*********5**********6
    Public Function UpdateKeyRecord(ByVal shain As DataRow) As Integer

        Dim retUpdateCount As Integer    ' リターン値
        Dim dbIO As New ClsShainTableIO()

        ' エラーチェックとデータセット
        MyBase.ShainShimei = CStr(shain("社員氏名"))
        MyBase.ShainKana = CStr(shain("社員カナ"))
        MyBase.BushoCode = CStr(shain("部署コード"))

        ' レコードの更新
        retUpdateCount = dbIO.UpdateKeyRecord(Me)

        Return retUpdateCount

    End Function

End Class