社員データ管理更新クラス [VB 2010]

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

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

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

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

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

社員マスター表

Key	列名	データ型	NULLを許容
●	社員コード	nchar(5)	しない
	社員氏名	nvarchar(20)	しない
	社員カナ	nvarchar(40)	しない
	部署コード	nchar(4)	しない
	更新日時	datetime	しない

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