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

登陆窗体代码说明

时 间: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交流群 (群号:323021118)       access源码网店

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

2017/9/21 9:29:43七彩屋
谢谢分享很详细

2017/9/13 8:31:58谢玉青
感谢分享!

2017/9/10 10:59:03qq1985178585
谁能解答下疑问

2017/9/10 7:44:25大海
谢谢分享,很详细。

2017/9/9 16:58:39qq1985178585
疑问
1、密码正确后,为什么不可以先最大化主窗体,再关闭登陆窗体。这两个顺序为什么不可以颠倒。注释只是我测试出来这两句的先后顺序,不知原因。
2、程序运行后,登陆窗体在文件夹(就是程序所在文件夹)的后面,不在最前面。这个如何实现在最新面。

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

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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