|
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim LsProvider As String = "SQLOLEDB"
Dim LsDataSource As String = "KP72202\SQLEXPRESS"
Dim LsPreSecInf As String = "FALSE "
Dim LsIniCat As String = "KYOIKU"
Dim LsUser As String = "test"
Dim LsPass As String = "test"
Dim LrecAdo As New ADODB.Recordset
Dim LsSyainNo As String
Dim LsKinmuDate As String
Dim LsKinmuTime As String
'DBの接続
McnnAdo.Open("Provider=" & LsProvider & ";Data Source=" & LsDataSource & ";Persist Security Info=" & LsPreSecInf & ";Initial Catalog=" & LsIniCat & ";", LsUser, LsPass)
'SQL文の入力
Dim LsSQL As String
'検索処理用のSQLを作成
LsSQL = "SELECT msyain.syain_id,tkintai.KinmuDate,tkintai.KinmuTime FROM msyain left join tKintai on msyain.syain_id=" & txtSyainNo.Text.Trim()
'検索処理を実行
LrecAdo.Open(LsSQL, McnnAdo, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
'検索した結果、該当データがなかった場合
If LrecAdo.EOF = True Then
txtSyainNo.Focus()
'ADOオブジェクトを終了
LrecAdo.Close()
'ADOオブジェクトを開放
LrecAdo = Nothing
'DBのCiose
McnnAdo.Close()
Exit Sub
End If
LsSyainNo = LrecAdo.Fields("syain_id").Value()
LsKinmuDate = LrecAdo.Fields("KinmuDate").Value
LsKinmuTime = LrecAdo.Fields("KinmuTime").Value
Dim m As Integer
Dim F2 As Form2
F2 = New Form2
'確認メッセージを表示する。
m = MsgBox("ログイン処理を行いますか?", MsgBoxStyle.YesNo)
'上記メッセージに肯定的な応答がなされた場合サブ画面をモーダル表示する。
If m = vbYes Then
F2.gsSyainNo = Me.txtSyainNo.Text
F2.ShowDialog()
End If
If F2.GBloginOK = True Then
lblSyainName2.Text = F2.gsSyainNm
txtSyainNo.Enabled = False
btnLogin.Enabled = False
txtDate.Enabled = True
txtTime.Enabled = False
btnKensaku.Enabled = True
Else
lblSyainName.Text = ""
txtDate.Text = ""
txtTime.Text = ""
End If
'ADOオブジェクトを終了
LrecAdo.Close()
'ADOオブジェクトを開放
LrecAdo = Nothing
'DBのCiose
McnnAdo.Close()
Me.txtDate.Focus()
End Sub
|