登陆窗体代码说明-青天
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-教程


登陆窗体代码说明

发表时间:2017/9/9 16:51:29 评论(9) 浏览(27858)  评论 | 加入收藏 | 复制
   
摘 要:登陆窗体学习,有好多小的注意点.用注释说明了.
正 文:


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群(群号:198465573)
 
 相关文章
[示例]获取登录用户和计算机名  【小金宇  2008/9/19】
登录模块的实现系列之一  【lenovo  2008/11/15】
登录用户提醒的源码  【82077802  2009/3/22】
史上暴牛的通用登录及权限管理,开放源码,功能强大  【红尘如烟  2009/4/28】
[分享]通用登录及更改系统和窗体图标的例子!  【谢健  2009/6/25】
常见问答
技术分类
相关资源
文章搜索
关于作者

青天

文章分类

文章存档

友情链接