Office中国论坛/Access中国论坛

标题: 如何按照密码表实现用户名密码登陆?【以解决】 [打印本页]

作者: larrylinli    时间: 2009-6-6 21:20
标题: 如何按照密码表实现用户名密码登陆?【以解决】
本帖最后由 larrylinli 于 2009-6-6 22:30 编辑

我做了一个窗体,名字就叫“登陆”。界面上有2个文本框,一个是text6,输入用户名,一个是text1,输入密码。2个按钮,command5是确认,command1是重置。我另外建了一个表,名为“密码表”。
想要达到的效果是,输入用户名和密码,用户名一定要在密码表中存在,密码要对应用户名,都正确,打开主窗体。
我从网上搜了下相关问题的解答,从中复制我能理解的,更改了下,然后试试输入用户名密码,我输入的是表中的用户名及相应密码,结果一直显示“无此用户名”。
相应代码如下:(我使用的是access2003)
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(23398) & ChrW(29983) & ChrW(31649) & ChrW(29702) & ChrW(31995) & ChrW(32479)
        If Text6.Value = "select id from 密码表 where id'" & Trim(Text6.Value) & " '" Then
        If Text1.Value = "select password from 密码表 where id'" & Trim(Text6.Value) & " '" Then
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        Else
        MsgBox ("密码错误!")
        End If
    Else
    MsgBox ("无此用户名!")
    End If
Exit_Command5_Click:
    Exit Sub
Err_Command5_Click:
    MsgBox Err.Description
    Resume Exit_Command5_Click
   
End Sub
请问如何更改代码?
或者怎么达成这个效果?
作者: larrylinli    时间: 2009-6-6 22:30
用sunny-xie同学的代码达成用户名密码登陆了。
作者: yangzhesheng    时间: 2009-6-11 08:49
还是自己解决的啊
作者: 蜗牛加速度    时间: 2009-6-11 09:17
路过
作者: shakamiuu    时间: 2009-6-11 10:37
楼上的蜗牛寿命是多少来着?
作者: wuwu200222    时间: 2024-1-31 10:14
学习




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3