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

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) しない

【更新ボタンクリック処理】
  • 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

    '*******************************************************
    ' クリアボタンクリック処理
    '*******************************************************
    Private Sub BtnClear_Click( sender As System.Object,
		     e As System.EventArgs) Handles BtnClear.Click

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

    End Sub

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

        TxtTokuisakiCode.Text = Nothing
        TxtTokuisakiMei.Text = Nothing
        BtnJushoKensaku.Text = Nothing
        TxtYubinBango.Text = Nothing
        CmbTodofukenMei.Text = Nothing
        TxtShikuchosonMei.Text = Nothing
        TxtJusho.Text = Nothing
        TxtTokuisakiCode.Enabled = True
        BtnTokuisakiKensaku.Enabled = True
        TxtTokuisakiMei.Enabled = False
        BtnJushoKensaku.Enabled = False
        TxtYubinBango.Enabled = False
        CmbTodofukenMei.Enabled = False
        TxtShikuchosonMei.Enabled = False
        TxtJusho.Enabled = False
        BtnKoshin.Enabled = False
        BtnClear.Enabled = False

    End Sub

End Class


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