如果是自定义用户管理,使用_UserName和
_UserGroup
总结
经过上述10个步骤的设计,我们已经建立了自己的用户管理和登录系统,用户登录后,用户名保存在全局变量_User中,用户分组保存在全局变量_UserGroup中。
我们只需对原来的权限代码稍作修改,即可适用自定义的用户管理系统,例如原来的代码为:
If User.Group = "经理" Then
DataTables("表A").AllowEdit = True
Else
DataTables("表A").AllowEdit = False
End If
现在只需改为:
If _UserGroup = "经理" Then
DataTables("表A").AllowEdit = True
Else
DataTables("表A").AllowEdit = False
End If