请教，如何解决“重新登录”后，上一个登录ID的权限还留着

请问，怎么解决“重新登录”后，上一个登录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 权限
[解决办法]
每次登录，先将所有权限清空，然后根据登录结果设置相应的权限。