使用外部用户管理后,用户名请使用_UserName而不是User.Name,同样用户分组请使用_UserGroup而不是User.Group
请看帮助的总结
经过上述10个步骤的设计,我们已经建立了自己的用户管理和登录系统,用户登录后,用户名保存在全局变量_UserName中,用户分组保存在全局变量_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
可以看出,自定义的用户管理系统,在应用上和内置的不会有任何差别。