得意先削除ボタン [削除フォームクラス]

販売管理データベース

【削除ボタンクリック処理】

• 得意先コードを引数に指定して、得意先データ削除クラスのインスタンスを生成
• DeleteRecordメソッドを呼び出して、得意先マスター表から該当レコードを削除
• レコード削除後画面を初期化

サンプルプログラム

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

'////////// 得意先マスター削除画面クラス //////////
Public Class FormTokuisakiSakujo

    ' 得意先検索ボタンクリック処理

    '*******************************************************
    ' 削除ボタンクリック処理
    '*******************************************************
    Private Sub BtnSakujo_Click(sender As System.Object,
        e As System.EventArgs) Handles BtnSakujo.Click

        Try
            ' 得意先マスター表から1レコードを削除
            Dim del As New ClsDeleteTokuisaki(TxtTokuisakiCode.Text)
            del.DeleteRecord()
            ' 正常終了メッセージ
            MessageBox.Show("正常にレコード削除", "得意先マスター表")
            TxtTokuisakiCode.Focus()
            ' 画面初期設定
            ClearForm()

        Catch ex As TokuisakiCodeException
            ' 得意先コードエラー
            MessageBox.Show(ex.Message, "得意先コード入力エラー")
            TxtTokuisakiCode.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(sender As System.Object,
          e As System.EventArgs) Handles BtnClear.Click

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

    End Sub

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

        TxtTokuisakiCode.Text = Nothing
        LblYubinBango.Text = Nothing
        LblTokuisakiMeisho.Text = Nothing
        LblTodofukenMei.Text = Nothing
        LblShikuchosonMei.Text = Nothing
        LblJusho.Text = Nothing
        BtnTokuisakiKensaku.Enabled = True
        BtnSakujo.Enabled = False
        BtnClear.Enabled = False

    End Sub

End Class