用MDB文件做密码库
能用数据库做密码库吗?
这是我曾经编过的一段程序,从MDB数据库中提取regpass表中的内容,用一个datacombo控件列出常的用户名供选择,一个TEXTBOX供用户输入密码,大概思路如此,希望对你有帮助.
_______________________________________________
Dim cnnPass As New ADODB.Connection
Dim rstPass As New ADODB.Recordset
Dim strSQL As String
Dim LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
Unload Me
End Sub
_________________________________________
Private Sub cmdOK_Click()
LSize = Len(CombUserName.Text)
If LSize 0 Then
User = Left$(CombUserName.Text, LSize)
Else
User = vbNullString
End If
If User = "管理员" Then
Pass = rstPass!Password
If txtPassword.Text = Pass Then
LoginSucceeded = True
Else
MsgBox "无效的密码,请重试!", vbExclamation + vbOKOnly, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载