登陆窗体代码说明

时　间: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》记录选择器和导航按钮选择：否；

附 件:

 点击下载此附件