Private Sub cmdok_Click()
Dim txtsql As String '用来存放记录集对象
Dim mrc As adodb.Recordset '用来存放返回信息
Dim mrc1 As adodb.Recordset
Dim mrc2 As adodb.Recordset
Dim msgtext As String
'查询指定用户名的记录
txtsql = "select * from user_info where userid ='" & txtusername.Text & "'"
'执行查询语句
Set mrc = ExecuteSQL(txtsql, msgtext)
If txtusername.Text = "" Then
MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告"
txtusername.SetFocus
ElseIf txtpassword.Text = "" Then '如果为空
MsgBox "请输入密码!", vbOKOnly + vbExclamation, "警告"
txtpassword.SetFocus 'TXTpassword获得焦点
ElseIf mrc.EOF Then '如果没有返回值
MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtusername.SetFocus
'判断密码是否正确
ElseIf Trim(mrc.Fields(1)) = Trim(txtpassword.Text) Then
username = txtusername.Text
ok = True
Me.Hide
' frmmain.Show
'添加工作记录
txtsql = "select * from onwork_info "
Set mrc1 = ExecuteSQL(txtsql, msgtext)
mrc1.AddNew
mrc1.Fields(0) = txtusername.Text
mrc1.Fields(1) = mrc.Fields(2)
mrc1.Fields(2) = Date
mrc1.Fields(3) = Time
mrc1.Fields(4) = VBA.Environ("computername")
mrc1.Update
'把信息写入worklog表
txtsql = "select * from worklog_Info "
Set mrc2 = ExecuteSQL(txtsql, msgtext)
mrc2.AddNew
mrc2.Fields(1) = Trim(txtusername.Text)
mrc2.Fields(2) = Trim(mrc1.Fields(1))
mrc2.Fields(3) = Trim(mrc1.Fields(2))
mrc2.Fields(4) = Trim(mrc1.Fields(3))
mrc2.Fields(7) = VBA.Environ("computername")
mrc2.Fields(8) = "True"
mrc2.Update
mrc2.Close
mrc.Close
mrc1.Close
Else '密码输入三次自动退出
MsgBox "输入的密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtpassword.SetFocus
txtpassword.Text = ""
micount = micount + 1
If micount = 3 Then
MsgBox "您已输入三次,请重新登陆!", 48, "警告"
Unload Me
End
Exit Sub
End If
End If
End Sub