大家看一下这个系统

a283054

我做了个登录系统，设置了4个用户名和密码。但是只有第一个可以登录成功，其它3个不行，不知道为什么。急啊，不用怀疑，我很菜，没有学过。刚才热心高手回复了，我还是没有弄出来。这里表示万分感谢。热心人帮我修改一下，万分感激。对于你来说是一个微不足道的小事，对我来说却十分重要。谢谢。郁闷，文件上传不了啊。上张图吧。


Private Sub Command4_Click()
Dim rst As New ADODB.Recordset
Dim strsql As String
strsql = "select 用户名,密码 from 用户名"""
rst.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Trim(Me.Combo13) = Trim(rst.Fields(0)) And Trim(Me.Text2) = Trim(rst.Fields(1)) Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = ChrW(20999) & ChrW(25442) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If
End Sub

a283054

回复 zhuyiwen 的帖子

Private Sub Command4_Click()
Dim rst As ADODB.Recordset
Dim strsql As String
strsql = "select 密码 from 用户名='" & Trim(Me.Combo13) & "'"
Set rst = CurrentProject.Connection.Execute(strsql)If Not rst.EOF Then 这里显示语法错误，运行不了啊。
If Trim(Me.Text2) = Trim(rst.Fields("密码")) Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = ChrW(20999) & ChrW(25442) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If
Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If


rst.Close
Set rs = Nothing
End Sub

zhuyiwen

Private Sub Command4_Click()
Dim rst As ADODB.Recordset
Dim strsql As String
strsql = "select 密码 from 用户表 WHERE 用户名='" & trim(Me.Combo13) & "'"
Set rst = CurrentProject.Connection.Execute(strsql)If Not rst.EOF Then
If Trim(Me.Text2) = Trim(rst.Fields("密码")) Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = ChrW(20999) & ChrW(25442) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If
Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If


rst.Close
Set rs = Nothing
End Sub

roych

那是两句滴，应该改成：
Set rst = CurrentProject.Connection.Execute(strsql)
If Not rst.EOF Then 这里显示语法错误，运行不了啊。

ly

Grant

strsql = "select 密码 from 用户名='" & Trim(Me.Combo13) & "'"

表名是什么?

a283054

回复 roych 的帖子

还是不行哦。

Private Sub Command4_Click()
Dim rst As ADODB.Recordset
Dim strsql As String
strsql = "select 密码 from 用户名='" & Trim(Me.Combo13) & "'"
Set rst = CurrentProject.Connection.Execute(strsql) 这里有问题
If Not rst.EOF Then
If Trim(Me.Text2) = Trim(rst.Fields("密码")) Then
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(20999) & ChrW(25442) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If
Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If