[[場所 : 更新.Click]]

@DIV
' ************************
' 削除
' ************************
If Me.処理区分.SelectedValue = 3 Then
	If Not db.QueryAndRead(Query) Then
		db.Close()
		MessageBox.Show("入力された社員コードは他で削除されました　　　　", _
		"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Return
	Else
		Query = "delete from 社員マスタ "
		Query += " where 社員コード = '" + Me.社員コード.InnerText + "'"

		If -2 = db.Execute(Query) Then
			db.Close()
			MessageBox.Show("データベースの更新に失敗しました　　　", _
			"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
			Return
		End If
	End If
End If
@END