マスター追加画面 [マスター保守]

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

   マスター追加画面

得意先マスターに1レコードを追加(Insert)するマスターメンテプログラムを作成します。最初は画面プログラムのボタンクリック処理を実装します。

住所検索ボタン [追加フォームクラス]

得意先マスター表に1レコードを挿入する画面クラスの各ボタンのクリック処理を実装します。まず住所検索ボタンから始めます。

得意先マスター追加登録画面

得意先マスター表
Key 列名 データ型 NULLを許容
得意先コード nchar(5) しない
郵便番号 nchar(7) しない
得意先名称 nvarchar(40) しない
得意先住所 nvarchar(50) しない
郵便番号マスター表
Key 列名 データ型 NULLを許容
郵便番号 nchar(7) しない
都道府県名 nvarchar(4) しない
市区町村名 nvarchar(10) しない
町域名 nvarchar(20) しない
【住所検索ボタンクリック処理】
  • 入力された郵便番号を引数に指定して、郵便番号データ管理クラスのインスタンスを生成
  • 都道府県名プロパティから都道府県名、市区町村名プロパティから市区町村名、町域名プロパティから町域名を取得し、各コントロールのTextプロパティにセット
  • 入力した郵便番号にエラーがあれば、郵便番号例外がスローされ、データベースでエラーが発生すれば、データベースIO例外をスローされるので、それぞれの例外に応じたエラー処理を実装

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

    '*******************************************************
    ' 住所検索ボタンクリック処理
    '*******************************************************
    Private Sub BtnJushoKensaku_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles BtnJushoKensaku.Click

        Try
            ' 県名・市町村名・町域名を取得し画面に表示
            Dim yubinBango As New ClsYubinBango(TxtYubinBango.Text)
            CmbTodofukenMei.Text = yubinBango.TodofukenMei
            ' 市町村名と町域名を連結して表示
            TxtShikuchosonMei.Text = _
                yubinBango.ShikuchosonMei & yubinBango.ChoikiMei
            TxtJusho.Text = Nothing
            ' 住所にフォーカス
            TxtJusho.Focus()
        Catch ex As YubinBangoException
            ' 郵便番号エラー処理
            MessageBox.Show(ex.Message, "郵便番号入力エラー")
            ' 郵便番号にフォーカス
            TxtYubinBango.Focus()
        Catch ex As DBIOException
            MessageBox.Show(ex.Message, "DBIO例外発生")
        Catch ex As Exception
            ' その他例外発生時
            MessageBox.Show(ex.ToString, "例外発生")
        End Try

    End Sub

    ' 得意先登録ボタンクリック・フォーム初期設定・全項目クリアボタンクリック処理

End Class


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