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

Visual Basic ADO.NET [Community Express]

社員データ更新クラスの実装

社員データ基本クラスから派生した社員マスター選択更新削除クラスを、さらに派生した社員データ更新クラスを実装します。

サンプルプログラム

更新クラス図

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

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

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

  • コンストラクタ(引数:社員コード)
  • 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