【文件属性】:
文件名称:一个简单易用的登录窗体
文件大小:884KB
文件格式:ACCDB
更新时间:2015-04-02 02:16:05
acess 数据库 登陆 代码
我的一段登陆按钮代码,用户表里有三个用户名,在登陆时只有第一个用户名有效,其他几个都是用户名或密码错误,不知什么原因,请高手指点,代码如下,谢谢!
Option Compare Database
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub cmd_登陆_Click()
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "用户表 ", conn
Dim username As String
Dim userpass As String
txt_用户名.SetFocus
username = txt_用户名.Text
If IsNull(username) Or IsNull(txt_密码.Value) Then
MsgBox "用户名或密码不能为空,请重新输入!", vbOKOnly + vbInformation, "错误信息"
Else
If username <> rs!用户名 Then
MsgBox "用户名或密码不正确,请重新输入", vbOKOnly + vbInformation, "错误信息"
txt_用户名.SetFocus
txt_用户名.Text = ""
txt_密码.SetFocus
txt_密码.Value = ""
txt_用户名.SetFocus
Else
rs.Close
rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!用户名 = username
rs!登录时间 = Now()
rs!退出时间 = CDate(0)
rs.Update
rs.Close
DoCmd.Close
DoCmd.OpenForm "库存信息窗体"
End If
End If
End Sub
Private Sub Form_Load()
txt_用户名.SetFocus
txt_用户名.Text = ""
txt_密码.SetFocus
txt_密码.Text = ""
txt_用户名.SetFocus
End Sub