在吹的风 发表于：2008-04-29 15:10:18
请高手提供一串
登陆界面输入的 用户名和密码，进行与表里的字段名（用户名和密码），进行验证的代码！！！
希望各位能帮帮我!!~~~~
Dim txtSql As String
Dim rs1 As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "没有此用户，请重新输入用户名！", vbExclamation, sign
Text1.SetFocus
Exit Sub
Else
'验证密码
txtSql = "SELECT * FROM 密码 WHERE 用户名='" & Trim(Text1.Text) & "'"
rs1.Open txtSql, con, adOpenDynamic, adLockOptimistic, adCmdText
If rs1.EOF = True Then
MsgBox "没有此用户，请重新输入！", vbExclamation, sign
Text1.Text = ""
Text1.SetFocus
Else
If Trim(Text2.Text) = Trim(rs1.Fields(1)) Then
rs1.Close
Me.Hide
Else
MsgBox "密码不正确！请重新输入！", vbExclamation, sign
Text2.SetFocus
Text2.Text = ""
End If
End If
End If
以上代码仅供参考
以前学习过一个ACCESS例子，他在登陆窗体中挂了一个不可见的文本框，当你选中用户时，文本框的值等于用户的密码，点登陆按钮后，将用户输入的密码和文本框内的密码想对比，然后就......
如果是初学者的话，建议弄懂DLookUp语句并使用它
总记录：3篇 页次：1/1 9 1 :
