请问,怎么解决“重新登录”后,上一个登录ID的权限还留着
本帖最后由 u010097296 于 2013-05-02 12:38:31 编辑
我设置了三种权限:超级管理,管理,客户。
当先登录 “超级管理”后,权限全部打开,这时候点击“重新登录”,登录“管理”的时候,窗口的权限正常,但是如果是登录“客户”的时候,却依旧是超级管理的权限。试过Unload 所有的窗体,但是都无效。
重新登录的代码:
Private Sub relog_Click()
If mdi = False Then
MsgBox "请关闭打开的窗口!", vbInformation, "不允许当前操作!"
Else
Unload Form3
Unload Me
Form1.Show
End If
End Sub
Form3窗体的代码:
Private Sub user_Click()
If chair = False And workman = False Then
MsgBox "你没有管理此功能的权限!"
Exit Sub
ElseIf mdi = True And workman = True Then
Form12.Show
ElseIf mdi = True And chair = True Then
Form2.Show
Else
MsgBox "每次只能打开一个窗口,请关闭正在打开的窗口!", vbInformation, "不允许当前操作!"
End If
End Sub VB 权限
[解决办法]
每次登录,先将所有权限清空,然后根据登录结果设置相应的权限。