Option Explicit
Private Sub cmdCancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
intResult = MsgBox("你选择了退出系统登录，退出将不能启动企业人事管理系统！" & vbcrlf_ & "是否真的退出？", vbYesNo, "登录验证")
If intResult = vbYes Then End
'根据用户选择结束应用程序
End Sub
Private Sub CmdOK_Click()
Dim UserName As String
Dim userpassword As String
Dim str As String
Dim nTryCount As Integer
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
UserName = Trim(txtUserName.Text)
userpassword = Trim(txtpassword.Text)
str = "select * from 用户信息表 where 用户名='" & UserName & "' and 用户密码 = '" & userpassword & " '"
rs.Open str, connectString, adOpenKeyset, 2
If rs.EOF Then '登录失败
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
txtUserName.Text = ""
txtpassword.Text = ""
txtUserName.SetFocus
nTryCount = nTryCount + 1