access-vba之用户登录窗口

界面截图如下：

 

 

 

创建一个窗体设计，然后在设计中找到控件

 

 因为科室更新，带来了用户的更新，所有用户的行来源不指定，但科室的行来源要指定

 最后，我们通过VBA实现用户的行来源，这样可以保证在科室变化的情况下，用户实时显示每个科室的人员

Private Sub keshi_AfterUpdate()
   zgy.RowSource = "SELECT 用户查询.ID, 用户查询.科室ID, 用户查询.科室名称, 用户查询.用户姓名 FROM 用户查询 where 用户查询.科室ID=" & keshi
   DoCmd.GoToControl ("user")
End Sub

编写登录按钮的VBA代码

Private Sub login_btn__login_Click()
   Dim passwd As Variant
   Dim inputpass As Variant
   If Not IsNull(password) Then
    inputpass = password
   Else
    inputpass = ""
   End If
   If Not IsNull(DLookup("[密码]", "[用户]", "[ID]=" & zgy)) Then
       passwd = DLookup("[密码]", "[用户]", "[ID]=" & zgy)
   Else
       passwd = ""
   End If
   If Trim(inputpass) <> Trim(passwd) Then
       MsgBox ("密码错误!")
   ElseIf Trim(passwd) = "" Then
      MsgBox ("密码为空,请登录后修改密码!")
      Call showmain(keshi, zgy)
   Else
      MsgBox ("现在是" & Now & ",欢迎您来到XXXXXXX系统!")
      Call showmain(keshi, zgy)
   End If
End Sub

 

此外，窗体显示后，输入焦点需要停在科室处

Private Sub Form_Current()
  DoCmd.GoToControl ("keshi")
End Sub

窗体下方还有一个当前时间的显示，文本框控件名称为nowtime，在窗体的时间事件中编写代码，同时将时间触发设为1000（即：1秒）

Private Sub Form_Timer()
   nowtime = Now
End Sub

 

 

showmain是一个自定义的函数，即显示系统的主界面

Private Function showmain(keshiid As String, zgyid As String)
    DoCmd.Close
    DoCmd.OpenForm ("管理系统")
    Forms!管理系统!keshi = keshiid
    Forms!管理系统!zgy = zgyid
End Function

大家可以看出来，在access的vba中对系统中其它窗体的引用采用

Forms!窗体名称

对其它窗体控件的引用采用

Forms!窗体名称!控件名称

比如登录窗口中有一个文本框控件name

即为

Forms!登录窗口!name

我们可以指定name的文本内容，

Forms!登录窗口!name="张三"

运行界面如下: