追加ボタンクリック [VB]

Visual Basic ADO.NET [Community Express]

得意先登録ボタン [追加フォームクラス]

得意先マスターに1レコードを追加(Insert)するマスターメンテプログラムを作成します。最初は画面プログラムです。

得意先マスター表に1レコードを追加する画面クラスの、各ボタンのクリック処理を実装します。得意先登録ボタンを実装します。

得意先マスター追加登録画面
得意先マスター表
Key 列名 データ型 NULLを許容
得意先コード nchar(5) しない
郵便番号 nchar(7) しない
得意先名称 nvarchar(40) しない
得意先住所 nvarchar(50) しない
郵便番号マスター表
Key 列名 データ型 NULLを許容
郵便番号 nchar(7) しない
都道府県名 nvarchar(4) しない
市区町村名 nvarchar(10) しない
町域名 nvarchar(20) しない
【追加ボタンクリック処理】
  • TokuisakiData構造体に画面からの入力データをセット
  • 入力データをセットしたTokuisakiData構造体を引数に指定して、得意先データ追加クラスClsInsertTokuisakiのインスタンスを生成
  • InsertRecordメソッドを呼び出して、得意先マスター表にレコードを追加
  • レコード追加後画面を初期化

サンプルプログラム

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

'////////// 得意先マスター追加画面クラス //////////
Public Class FormTokuisakiTouroku

    ' 住所検索ボタンクリック処理

    '*******************************************************
    ' 追加ボタンクリック処理
    '*******************************************************
    Private Sub BtnToroku_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles BtnToroku.Click

        Try
            ' 画面からの入力データのセット
            Dim tokuisaki As New TokuisakiData
            tokuisaki.tCode = TxtTokuisakiCode.Text
            tokuisaki.tName = TxtTokuisakiMei.Text
            tokuisaki.tYuBango = TxtYubinBango.Text
            tokuisaki.tJusho = CmbTodofukenMei.Text & ","
            tokuisaki.tJusho &= TxtShikuchosonMei.Text & ","
            tokuisaki.tJusho &= TxtJusho.Text
            ' 得意先マスター表に1レコードを追加
            Dim insertTokuisaki As New ClsInsertTokuisaki(tokuisaki)
            insertTokuisaki.InsertRecord()
            ' 画面初期設定
            ClearForm()
            ' 正常終了メッセージ
            MessageBox.Show("正常にレコード追加", "得意先マスター表")
            TxtTokuisakiCode.Focus()

        Catch ex As TokuisakiCodeException
            ' 得意先コードエラー
            MessageBox.Show(ex.Message, "得意先コード入力エラー")
            TxtTokuisakiCode.Focus()
        Catch ex As TokuisakiMeishoException
            ' 得意先名称エラー
            MessageBox.Show(ex.Message, "得意先名称入力エラー")
            TxtTokuisakiMei.Focus()
        Catch ex As YuBangoException
            ' 郵便番号エラー
            MessageBox.Show(ex.Message, "郵便番号入力エラー")
            TxtYubinBango.Focus()
        Catch ex As TokuisakiJushoException
            ' 得意先住所エラー
            MessageBox.Show(ex.Message, "得意先住所入力エラー")
            TxtJusho.Focus()
        Catch ex As DBIOException
            ' DBアクセスクラス独自例外発生時
            MessageBox.Show(ex.Message, "DBIO例外発生")
        Catch ex As Exception
            ' その他例外発生時
            MessageBox.Show(ex.ToString, "例外発生")
        End Try

    End Sub

    '*******************************************************
    ' クリアボタンクリック処理
    '*******************************************************
    Private Sub BtnClear_Click(ByVal sender As System.Object, _
		     ByVal e As System.EventArgs) Handles BtnClear.Click

        ' フォーム初期設定
        ClearForm()

    End Sub

    '*******************************************************
    ' フォーム初期設定処理
    '*******************************************************
    Private Sub ClearForm()

        TxtTokuisakiCode.Text = Nothing
        TxtTokuisakiMei.Text = Nothing
        CmbTodofukenMei.Text = Nothing
        TxtShikuchosonMei.Text = Nothing
        TxtYubinBango.Text = Nothing
        TxtJusho.Text = Nothing
        TxtTokuisakiCode.Focus()

    End Sub

End Class