登陆窗体代码说明
时 间: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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- Access快速开发平台企业版--...(05.07)
- 【Access Call用法学习】...(05.06)
- access软件网站长张志简介 (05.05)
- 精美简单实用的系统面板(05.03)
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)