サンプルプログラム

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

'////////// 得意先マスター追加画面クラス //////////
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