登陆窗体代码说明
时 间:2017-09-09 16:51:29
作 者:qq1985178585 ID:34294 城市:永济
摘 要:登陆窗体学习,有好多小的注意点.用注释说明了.
正 文:
1、取消按钮—单击事件
Private Sub Command10_Click()
DoCmd.Quit ‘此处不用DoCmd.close,close只是关闭了当前窗体,没有退出Access,主窗体还在
End Sub
2、确定按钮----单击事件
Private Sub Command9_Click()
‘判断用户名不能为空
If IsNull(Me.Combo5) Then
MsgBox "用户名不能为空", vbOKOnly, "提示"
Me.Combo5.SetFocus
Exit Sub
End If
‘判断密码不能为空
If IsNull(Me.Text7) Then
MsgBox "密码不能为空", vbOKOnly, "提示"
Me.Text7.SetFocus
Exit Sub
End If
‘Dlookup函数判断输入的密码是否与表中的密码一致
If Me.Text7 = DLookup("dlmm", "tbl用户", "dlxm = '" & Me.Combo5 & "'") Then
DoCmd.Close acForm, Me.Name ‘关闭登陆窗体
‘下面这句是Access主窗体最大化,这句与上面一句顺序不能颠倒,要不Access主窗体是最小化在任务栏
DoCmd.RunCommand acCmdAppMaximize
DoCmd.OpenForm "frm主窗体", acNormal ‘密码正确打开主窗体
DoCmd.Maximize ‘当前窗体最大化
Else
MsgBox "密码错误", vbOKOnly, "提示" ‘密码错误提示
Me.Text7.SetFocus
Exit Sub
End If
End Sub
3、窗体加载事件
Private Sub Form_Load()
DoCmd.ShowToolbar "ribbon", acToolbarNo ‘隐藏功能区
DoCmd.SelectObject acForm, , True ‘这句与下面一句隐藏左侧导航窗体
DoCmd.RunCommand acCmdWindowHide
DoCmd.RunCommand acCmdAppMinimize
‘上面这句Access主窗体最小化,这句要放最后,放最前主窗体就不能最小化;
‘DoCmd.RunCommand acCmdAppMinimize 命令要生效,必须先要用DoCmd.SelectObject acForm, , True,
‘这句将光标定位到Access数据库窗口。
End Sub
4 、窗体属性设置:
《1》弹出方式和模式选择:是;《2》边框样式:细边框;《3》最大最小化按钮:无(如果不选择无,双击标题栏会最大化,改变窗体形状);《4》记录选择器和导航按钮选择:否;
附 件:
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- 获取文件修改日期的函数(10.18)
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)