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