コメント |
● テストを重視する為に、処理区分の修正をデフォルトにする
@DIV
' 処理区分を修正モードで選択する
Me.処理区分.SelectByValue("2")
@END
[[場所 : MyBase.Load]]
● 一括プロテクト処理と一括クリア処理を LboxText のクラス変数に変更する
@DIV
一括プロテクト処理と一括クリア処理は、lightbox.control に依存する処理なので
コントロール側が持つメソッドを使用する
@END
1) Imports lightbox.control を追加
2) LboxText.Protect と LboxText.ClearField を使用する
@DIV
@DIV
@C:red(LboxText.Protect)(Me, 2, True)
@C:red(LboxText.Protect)(Me, 3, True)
@END
[[場所 : MyBase.Load]]
@END
@DIV
(新規・修正)
@DIV
LboxText.Protect(Me, 1, True)
LboxText.Protect(Me, 2, False)
LboxText.Protect(Me, 3, False)
@END
(削除)
@DIV
LboxText.Protect(Me, 1, True)
LboxText.Protect(Me, 2, True)
LboxText.Protect(Me, 3, False)
@END
[[場所 : 確認.Click]]
@END
@DIV
@DIV
LboxText.Protect(Me, 2, True)
LboxText.Protect(Me, 3, True)
LboxText.Protect(Me, 1, False)
LboxText.ClearField(Me, 2)
@END
[[場所 : キャンセル.Click]]
@END
● エラーメッセージの表示を LboxText の クラスメソッドで行う
@DIV
MessageBox.Show で記述すると煩雑になるので、簡素化の為
@END
@DIV
( フォーカスを必要としない例 )
@DIV
' ************************
' 接続
' ************************
If Not db.Connect() Then
@C:red(LboxText.MessageError)("DB接続に失敗しました")
Return
End If
@END
[[場所 : MyBase.Load]]
@END
@DIV
( フォーカスを必要とする例 )
@DIV
If Me.社員コード.InnerText.Trim() = "" Then
@C:red(LboxText.MessageError)("必須入力です", Me.社員コード)
Return
End If
@END
[[場所 : 確認_Click]]
@END
上記以外にも下記の場所を変更
[[
更新_Click
管理者_Validating]]
[[※ データベース更新時のエラーでは、エラー内容を表示するように変更します]]
@DIV
LboxText.MessageError("データベースの更新に失敗しました:" + db.myError)
@END
|