Office中国论坛/Access中国论坛

标题: 大家看一下这个系统 [打印本页]

作者: a283054 时间: 2011-6-4 12:05
标题: 大家看一下这个系统
本帖最后由 a283054 于 2011-6-4 12:21 编辑

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

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

作者: zhuyiwen 时间: 2011-6-4 19:26
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

作者: a283054 时间: 2011-6-4 19:33
本帖最后由 a283054 于 2011-6-4 19:34 编辑

回复 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

作者: roych 时间: 2011-6-4 21:15
那是两句滴，应该改成：
Set rst = CurrentProject.Connection.Execute(strsql)
If Not rst.EOF Then 这里显示语法错误，运行不了啊。

作者: a283054 时间: 2011-6-4 22:59
回复 roych 的帖子

[attach]45787[/attach]还是不行哦。

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

作者: Grant 时间: 2011-6-4 23:28
strsql = "select 密码 from 用户名='" & Trim(Me.Combo13) & "'"

表名是什么?

作者: ly 时间: 2011-6-4 23:29
本帖最后由 ly 于 2011-6-4 23:30 编辑

[attach]45789[/attach][attach]45789[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)