社員マスター検索 [VB]

Visual Basic ADO.NET [Community Express]

社員マスター検索画面クラスの実装

社員マスターテーブルから1レコードを検索(Select)する画面プログラムを作成します。

サンプルプログラム

社員マスターから1レコードを検索するプログラムを作成します。

検索画面

社員マスター検索画面クラスでは、社員マスターアクセスクラスのメソッドは呼び出す必要はありません。

  • 社員データ選択クラスClsSelectShainクラスのインスタンスを生成
  • ClsSelectShainクラスのインスタンスの社員氏名Getプロパティ、社員カナGetプロパティから、社員氏名とカナ名の値を取得
  • エラーがあれば、例外をスローするので、例外に対応した複数のCatchブロックを実装
  • 簡単にするために、部署コードの実装は省略
社員マスター表
Key 列名 データ型 NULLを許容
社員コード nchar(5) しない
社員氏名 nvarchar(20) しない
社員カナ nvarchar(40) しない
部署コード nchar(4) しない
更新日時 datetime しない

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

Option Strict On

'//////////////////// 社員テーブル検索画面クラス ////////////////////
Public Class FormSelect

    Private shain As ClsSelectShain

    '--------------------<< 検索ボタン押下処理 >>--------------------
    Private Sub BtnRetrieval_Click(ByVal sender As System.Object, _
		     ByVal e As System.EventArgs) Handles BtnRetrieval.Click

        Try
            ' 社員データ選択クラスのインスタンス生成
            shain = New ClsSelectShain(TxtShainCode.Text)
            LblShainShimei.Text = shain.ShainShimei
            LblShainKana.Text = shain.ShainKana

        Catch ex As myShainCodeException
            ' 社員コードエラー
            LblShainShimei.Text = Nothing
            LblShainKana.Text = Nothing
            MessageBox.Show(ex.Message, "入力エラー")
            TxtShainCode.Focus()

        Catch ex As myDBIOException
            ' DBIO独自例外発生時
            MessageBox.Show(ex.Message, "DBIO例外発生")

        Catch ex As Exception
            ' その他例外発生時
            MessageBox.Show(ex.ToString, "例外発生")

        End Try

    End Sub

End Class