请各位大虾帮帮我
这段编码哪错了总显示变量未定义
Option Explicit
Const MaxLogTimes As Integer = 3 '定义允许用户验证登陆信息的最多次数
Private Sub cmdCancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
inResult = MsgBox("你选择了退出系统登陆， 退出将不能启动管理系统! " & vbCrLf _
& "是否真的退出? ", vbYesNo, "登陆验证")
If intResult = vbYes Then End '根据用户选择结束应用程序
End Sub
Private Function Check_PassWord(ByVal UserName As String, ByVal Password As String) As Byte
On Error GoTo gpError
Dim objCn As New Connection, objRs As New Recordset, strCn As String
Dim strSQL As String
'建立数据库连接
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & Spp.Path & "\数据库\实例 1.mdb"
objCn.Open
'执行查询命令， 获得用户登录口令
strSQL = "SELECT 口令 FROM 系统用户 WHERE 用户名='" & UserName & ""
Set objRs.ActiveConnection = objCn
objRs.Open (strSQL)
'判断有无查询结果
IfobjRs.RofThen
Check_PassWord = 0 '没有查询结果, 表示该用户为非法用户
Else
'检查口令是否正确
If Password <> Trim(objRs.Fields("口令").Value) Then
Check_PassWord = 1 '口令不正确
Else
Check_PassWord = 2 '口令正确
End If
End If
'关闭数据库连接， 释放对象
objCn.Close
Set objRs = Nothing
Set objCn = Nothing
Exit Function
gpError:
Check_PassWord = 255 '验证无法完成， 返回错误代码
Set objRs = Nothing
Set objCn = Nothing
End Function
Private Sub cmdOk_Click()
Static intLogTimes As Integer '用户保存用户请求验证的次数
Dim intChecked As Integer, strName As String, strPassword As String
intLogTimes = intLogTimes + 1 '计算登录次数
If intLogTimes > MaxLogTimes Then
'超过允许的登录次数， 显示提示信息
MsgBox "你已经超过允许验证次数! " & vbCr _
& "应用程序将结束! ", vbCritical, "登录验证"
End '结束应用程序
Else '进一步验证登录信息的合法性
strName = Trim(txtUserName.Text) '获得输入的用户名
setPassword = Trim(txtPassword.Text) '获得输入的口令
'检验用户名和口令的合法性， 并根据检验返回执行相应的操作
Select Case Check_PassWord(serName, strPassword)
Case 0 '用户不是系统用户
MsgBox "<" & strName & _
">不是系统用户,请检查用户名输入是否正确! ", vbCritical, "登录验证"
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtUserName)
Case 1 '口令错误
MsgBox "口令错误,请重新输入! ", vbCritical, "登录验证"
txtPassword = ""
txtPassword.SetFocus
Case 2 '口令正确
Unload Me '卸载登录窗体
MsgBox "登录成功, 将启动系统程序! ", vbInformation, "登录验证"
'通常在此放置显示系统主窗体的语句, 例如
frmMain.Show
Case Else '登录验证未正常完成
MsgBox "登录验证未完成! 请重新运行登录程序," & vbCrLf _
& "如果仍不能登录, 请报告系统管理员! ", vbCritical, "登录验证"
End Select
End If
End Sub
