Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 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交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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