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  
 
If nTryCount >= 3 Then   
MsgBox "您无权操作本系统！", vbCritical, "无权限"  
Unload Me  
End If  
Else '登陆成功  
主界面.Show  
Unload Me  
End If  
End Sub