Select Case User.Name
Case "报告管理员"
Forms("启动窗口").Controls("Button1").Enabled = False
Forms("启动窗口").Controls("Button7").Enabled = False
Forms("启动窗口").Controls("Button8").Enabled = False
Forms("启动窗口").Controls("Button12").Enabled = True
Forms("启动窗口").Controls("Button02").Enabled = True
Case "业务管理员"
Forms("启动窗口").Controls("Button1").Enabled = True
Forms("启动窗口").Controls("Button7").Enabled = True
Forms("启动窗口").Controls("Button8").Enabled = True
Forms("启动窗口").Controls("Button12").Enabled = False
Forms("启动窗口").Controls("Button02").Enabled=False
End Select
系统内置用户管理设置了报告管理员和业务管理员两个用户,这段代码是想分别登陆后某些相应按钮不可用,把这段代码放在项目的LoadUserSetting和AfterOpenProject事件中均报错,放在项目的Initialize事件却无法实现权限管理功能,所有用户所有操作都可执行,请各位老师看看我错在哪了?该如何改正,谢谢
[此贴子已经被作者于2019/8/30 18:27:28编辑过]