[[場所 : 確認.Click]]

● 削除処理の第二会話では、データを編集する事はできません( プロテクトされます )
@DIV
' ************************
' 削除
' ************************
If Me.処理区分.SelectedValue = 3 Then
	If Not db.QueryAndRead(Query) Then
		MessageBox.Show("入力された社員コードは存在しません　　　　", _
		"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Me.社員コード.Focus()
	Else
		Me.Protect(1, True)
		Me.Protect(2, True)
		Me.Protect(3, False)

		Me.氏名.InnerText = db.GetValue("氏名")
		Me.フリガナ.InnerText = db.GetValue("フリガナ")
		Me.性別.SelectByValue(db.GetValue("性別"))
		Me.所属.SelectByValue(db.GetValue("所属"))
		Me.給与.InnerText = db.GetValue("給与")
		Me.手当.InnerText = db.GetValue("手当")
		Me.管理者.InnerText = db.GetValue("管理者")
		Me.管理者名.InnerText = db.GetValue("管理者名")
		Me.生年月日.InnerText = db.GetDate("生年月日")

		Me.更新.Focus()
	End If

End If
@END