Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > 源码示例

Access 窗体实现用户名及密码验证登录

时 间:2018-03-13 09:28:52
作 者:EVAN   ID:63050  城市:江门
摘 要:access 验证用户名 及 密码 
正 文:

进入【用户登录】窗体,输入用户名和密码,点“登录”按钮。核对【用户信息】表里用户名和密码,若都正确则打开下一个【用户界面】窗口

Private Sub 登录按钮_Enter()
'验证用户和密码,登录系统
If DCount("[用户名]", "用户信息", "[用户名]='" & Text0 & "'") = 0 Then
MsgBox "请输入正确的用户名!"
ElseIf DCount("[用户密码]", "用户信息", "[用户密码]='" & Text2 & "'") = 0 Then
'Text1为用户名输入框
MsgBox "请输入正确的用户密码!"
ElseIf Nz([Text2]) = Nz(DLookup("[用户密码]", "用户信息", "[用户密码]='" & Text2 & "'")) Then
'Text2为密码输入框
Me.Visible = False
'隐藏窗体
DoCmd.OpenForm "用户界面"
'打开用户界面窗体
Else
'密码错误后的处理
MsgBox "密码错误,请重输!"
End If
End Sub




Access软件网官方交流QQ群 (群号:115120150)       access源码网店

最新评论 查看更多评论(3)

2018/6/16 10:29:45罗文德
text0 大佬没有给出解释

2018/3/13 12:43:35李制樯
pass-through query [old mobile]

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助