设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2292|回复: 5
打印 上一主题 下一主题

[窗体] 如何按照密码表实现用户名密码登陆?【以解决】

[复制链接]
跳转到指定楼层
1#
发表于 2009-6-6 21:20:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 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
请问如何更改代码?
或者怎么达成这个效果?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2009-6-6 22:30:15 | 只看该作者
用sunny-xie同学的代码达成用户名密码登陆了。
3#
发表于 2009-6-11 08:49:37 | 只看该作者
还是自己解决的啊
4#
发表于 2009-6-11 09:17:48 | 只看该作者
路过
5#
发表于 2009-6-11 10:37:40 | 只看该作者
楼上的蜗牛寿命是多少来着?

点击这里给我发消息

6#
发表于 2024-1-31 10:14:06 | 只看该作者
学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:18 , Processed in 0.094856 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表