得意先変更ボタン [VB]

Visual Basic ADO.NET [Community Express]

行確認ボタン・行追加ボタンクリック処理

フォームクラスに、得意先確認ボタンクリック処理と得意先変更ボタンクリック処理を実装します。

サンプルプログラム

受注エントリー画面

【得意先確認ボタンクリック処理】

  • 得意先コードを引数に指定して、得意先クラスのインスタンスを生成
  • 得意先名称プロパティから得意先名称を、得意先住所プロパティから得意先住所を取得し、ラベルにセット
  • 得意先コード入力不可に設定
  • 得意先確定ボタンをクリック不可、得意先変更ボタンをクリック可能に設定

【得意先変更ボタンクリック処理】

  • 得意先コード、得意先名称、得意先住所をクリア
  • 得意先コードを入力可能、得意先コードにフォーカス設定
  • 得意先確定ボタンをクリック可能、得意先変更ボタンをクリック不可に設定

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

    '*******************************************************
    ' 得意先確認ボタンクリック処理
    '*******************************************************
    Private Sub BtnTokuisakiKakutei_Click _
        (ByVal sender As System.Object, _
        ByVal e As System.EventArgs) _
        Handles BtnTokuisakiKakutei.Click

        Try
            ' 得意先名称と住所を取得し画面に表示
            Dim tokuisaki As ClsTokuisaki
            tokuisaki = New ClsTokuisaki(TxtTokuisakiCode.Text)
            LblTokuisakiMeisho.Text = tokuisaki.TokuisakiMeisho
            LblTokuisakiJusho.Text = tokuisaki.TokuisakiJusho
            ' 得意先コード入力不可
            TxtTokuisakiCode.Enabled = False
            ' 得意先確定ボタン押下不可
            BtnTokuisakiKakutei.Enabled = False
            ' 得意先変更ボタン押下可能
            BtnTokuisakiHenko.Enabled = True
        Catch ex As TokuisakiCodeException
            ' 得意先コードエラー処理
            MessageBox.Show(ex.Message, "得意先コードエラー")
            ' 得意先コードにフォーカス
            TxtTokuisakiCode.Focus()
        Catch ex As DBIOException
             MessageBox.Show(ex.ToString, "DBIO例外発生")
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "その他例外発生")
        End Try

    End Sub

    '*******************************************************
    ' 得意先変更ボタンクリック処理
    '*******************************************************
    Private Sub BtnTokuisakiHenko_Click _
        (ByVal sender As System.Object, _
         ByVal e As System.EventArgs) _
         Handles BtnTokuisakiHenko.Click

        Try
            ' 得意先コード・名称・住所をクリア
            TxtTokuisakiCode.Text = Nothing
            LblTokuisakiMeisho.Text = Nothing
            LblTokuisakiJusho.Text = Nothing
            ' 得意先コード入力可能
            TxtTokuisakiCode.Enabled = True
            ' 得意先コードにフォーカス
            TxtTokuisakiCode.Focus()
            ' 得意先確定ボタン押下可能
            BtnTokuisakiKakutei.Enabled = True
            ' 得意先変更ボタン押下不可
            BtnTokuisakiHenko.Enabled = False
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "例外発生")
        End Try

    End Sub