|
2#
楼主 |
发表于 2017-9-25 10:21:40
|
只看该作者
3、新建自动运行宏 Autoexec,使其在打开数据库时自动执行,以对话框方式打开 frmWelcome 窗体。
4、修改 frmWelcome 代码,使其根据登录用户加载不同的自定义功能区:
- Private Sub cmdClose_Click()
- DoCmd.Close acForm, Me.Name, acSaveNo
- DoCmd.ShowToolbar "Ribbon", acToolbarYes
- DoCmd.Quit
- End Sub
- Private Sub cmdLogin_Click()
- If cboUser = "Admin" Then
- LoadRibbonsFromTable "uSysRibbonsAdmin"
- DoCmd.Close acForm, Me.Name, acSaveNo
- DoCmd.ShowToolbar "Ribbon", acToolbarYes
- ElseIf cboUser = "User" Then
- LoadRibbonsFromTable "uSysRibbonsUser"
- DoCmd.Close acForm, Me.Name, acSaveNo
- DoCmd.ShowToolbar "Ribbon", acToolbarYes
- End If
- End Sub
- Private Sub Form_Load()
- DoCmd.ShowToolbar "Ribbon", acToolbarNo
- txtPwd = "-- 输入登录密码 --"
- End Sub
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|