得意先マスター削除 [マスター保守]

Visual Basic 2010/2008 やさしいADO.NET DBプログラム

   得意先マスター削除

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

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

レコード削除画面


得意先マスター表
Key 列名 データ型 NULLを許容
得意先コード nchar(5) しない
郵便番号 nchar(7) しない
得意先名称 nvarchar(40) しない
得意先住所 nvarchar(50) しない
郵便番号マスター表
Key 列名 データ型 NULLを許容
郵便番号 nchar(7) しない
都道府県名 nvarchar(4) しない
市区町村名 nvarchar(10) しない
町域名 nvarchar(20) しない
【削除ボタンクリック処理】
  • 得意先コードを引数に指定して、得意先データ削除クラスのインスタンスを生成
  • 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


Copyright© やさしいVB2010/2008 ADO.NET. All rights reserved.