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群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)