|
1.引用Microsoft ActiveX Data Objects 2.5 Library
2.窗体实现 文本框名称分别为：txtUserName txtPassWord
按钮名称分别为： cmdOK cmdCancel
.
3.代码实现
(1).用户名和口令的验证方法Check_PassWord()实现
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=" & App.Path & "实例01.mdb"
objCn.Open
'执行查询命令，获得用户登录口令
strSQL = "SELECT 口令 FROM 系统用户 WHERE 用户名='" & _
UserName & "'"
Set objRs.ActiveConnection = objCn
objRs.Open (strSQL)
'判断有无查询结果
If objRs.EOF Then
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
(2).确定按钮实现
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) '获得输入的用户名
strPassword = Trim(txtPassWord.Text) '获得输入的口令
'检查用户名和口令的合法性，并根据检验返回值执行相应的操作
Select Case Check_PassWord(strName,strPassword)
Case 0 '用户不是系统用户
MsgBox "<" & strName & ">不是系统用户，请检查用户名的输 _
入是否正确！",vbCritical,"登录验证"
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtUserName)
Case 1 '口令错误
MsgBox "口令错误，请重新输入","登录验证"
txtPassWord.Text = ""
txtPassWord.SetFocus
Case 2 '口令正确
Unload Me
MsgBox "登录成功，将启动系统程序！",vbInformation,"登录验证"
'通常在此放置显示系统主窗体的语句，例如
'frmMain.show
Case Else '登录验证无法正常完成
MsgBox "登录验证未正常完成！请重新运行登录程序，_
" & vbCrLf & "如果仍不能登录，请报告系统管理员！","登录验证"
End Select
End If
End Sub
(3).取消按钮实现
Private Sub cmdCancel_Click() Dim intResult As Integer '请求用户确认是否真的退出系统登录 intResult = MsgBox("您选择了退出系统登录，退出将不能启动管理系统！" & _ vbCr & "是否真的退出？",vbYesNo,"登录验证") If intResult = vbYes Then End End Sub （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
