削除ボタンクリック [VB]

Visual Basic ADO.NET [Community Express]

削除ボタンクリック処理

得意先マスターから1レコードを削除する画面クラスに、削除ボタンクリック処理、クリアボタンクリック処理などを実装します。

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

レコード削除画面

販売管理データベース

得意先マスター表
Key 列名 データ型 NULLを許容
得意先コード nchar(4) しない
郵便番号 nchar(7) しない
得意先名称 nvarchar(40) しない
得意先住所 nvarchar(50) しない

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

  • 得意先コードを引数に指定して、得意先データ削除クラスのインスタンスを生成
  • 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
[広告]