• <s id="cugve"></s>

  • <th id="cugve"></th>
  • 
    

    <tbody id="cugve"></tbody>

    Access数据库培训
    网站公告
    ·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
    您的位置: 首页 > 技术文章 > 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交流群 (群号:86789465)       access源码网店

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

    2018/11/25 21:46:42qq1985178585
    @销香叶雨 按Shift键进去,表中找密码。

    2018/11/25 21:46:06qq1985178585
    @刘振宇 看的我代码,你是不是哪抄错了。

    2018/11/11 20:46:53刘振宇
    大神~我照着你这个代码划拉出一个登陆界面,但是一运行自动最小化了,怎么解决呢

    2018/11/6 23:20:55销香叶雨
    登陆密码多少?

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

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

    用户名:
    密 码:
    内 容:
     

    常见问答

    技术分类

    相关资源

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