' ******************************************************
' キー入力のチェック処理
' ******************************************************
Private Sub 社員コード_Validating(ByVal sender As Object, _
ByVal e As System.ComponentModel.CancelEventArgs) Handles 社員コード.Validating

	' -------------------------------------------------
	' 未入力チェック
	' -------------------------------------------------
	If Trim(Me.社員コード.Text) = "" Then
		msg.DispError("001", Me.社員コード, e)	' 必須入力
		Exit Sub
	End If

	' -------------------------------------------------
	' 数値チェック
	' -------------------------------------------------
	If Not CheckInt(Me.社員コード.Text) Then
		msg.DispError("002", Me.社員コード, e)
		Exit Sub
	End If

	' -------------------------------------------------
	' キーコードの前ゼロ編集処理
	' -------------------------------------------------
	'Me.社員コード.Text = num.ToString("0000")
	Me.社員コード.Text = String.Format("{0:0000}", Integer.Parse(Me.社員コード.Text))

	' -------------------------------------------------
	' DB 読み出し
	' -------------------------------------------------
	Dim myQuery As String = GetSql(Me.SELECT_SQL, Me.社員コード.Text)

	myReader = db.Query(myQuery)
	Dim bExist As Boolean = myReader.HasRows

	' 処理区分により、チェック
	Select Case Me.処理区分.SelectedIndex
		Case 0, 2 ' 修正または削除
			If Not bExist Then
				msg.DispError("003", Me.社員コード, e)
				myReader.Close()
			End If
		Case 1 ' 新規
			If bExist Then
				msg.DispError("004", Me.社員コード, e)
				myReader.Close()
			End If
	End Select

End Sub