得意先更新ボタン [更新フォームクラス]

• TokuisakiData構造体に画面からの修正済データをセット
• 入力データをセットしたTokuisakiData構造体を引数に指定して、得意先データ更新クラスのインスタンスを生成
• UpdateRecordメソッドを呼び出して、得意先マスター表から該当レコードを更新
• レコード更新後画面を初期化

フォームロード処理・得意先検索ボタン処理・住所検索ボタン処理 はこちら

サンプルプログラム

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

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

    ' フォームロード処理・得意先検索ボタン処理・住所検索ボタン処理

    '*******************************************************
    ' 更新ボタンクリック処理
    '*******************************************************
    Private Sub BtnKoshin_Click(sender As System.Object, _
        e As System.EventArgs) Handles BtnKoshin.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
            ' 得意先マスター表を更新
            Dim update As New ClsUpdateTokuisaki(tokuisaki)
            update.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 DBIOException
            ' DBアクセスクラス独自例外発生時
            MessageBox.Show(ex.Message, "DBIO例外発生")
        Catch ex As Exception
            ' その他例外発生時
            MessageBox.Show(ex.ToString, "例外発生")
        End Try

    End Sub

    ' クリアボタンクリック処理・フォーム初期設定処理

End Class