- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 用户权限授权，脑袋一片混乱，怎修改 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116480)
-- 发布时间：2018/3/25 15:27:00
-- 用户权限授权，脑袋一片混乱，怎修改
1、在授权表中勾选“不可修改”，针对管理分组不起作用，进去全部锁定。不可见正常使用。
2、用户权限里，勾选、不勾选都无法看见用户管理。
3、用户数据库里，新建了2个管理，1个查询、1个录入。
代码如下：
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
For Each dr As DataRow In DataTables("授权表").Select("分组 = \'" & User.Group & "\'" )
If dr.IsNull("列名") Then
Tables(dr("表名")).Visible = Not dr("不可见")
Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
RibbonTabs("编辑").Visible = False
Else
Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
RibbonTabs("编辑").Visible = True
End If
Next
End If \'以上为细化权限管理
此主题相关图片如下：qq截图20180325152642.jpg
[此贴子已经被作者于2018/3/25 15:32:29编辑过]
-- 发布时间：2018/3/25 15:35:00
--
弹出值 msgbox(User.Group) 看看是否正确。
代码没问题的，如果是自己做的用户管理，是不是要把user.Group改成_UserGroup，然后写到登陆按钮里面去？
-- 发布时间：2018/3/25 18:36:00
--
msgbox(User.Group) 修改这个，每次启动系统，提示错误，跳出一个： 提示 ，然后啥都没有，可以正常登陆和使用，权限全部消失，不起作用
user.Group改成_UserGroup，然后写到登陆按钮里面去，按钮里是直接打开窗口：Forms("用户管理").Open()
用户数据库问题，一直不可设置，已经设置主键了，点确定，提示 ：所有用户表的结构不规范，是不是和这个有关系。
[此贴子已经被作者于2018/3/25 19:11:00编辑过]
-- 发布时间：2018/3/25 21:19:00
--
如果你自己做的用户管理（使用 _usergroup _username 这样变量的情况），请把代码改成下面那样，写到你自己登陆窗口的登陆按钮去
For Each dr As DataRow In DataTables("授权表").Select("分组 = \'" & _usergroup & "\'" )
如果你要弄内置登陆，请这样设计表结构 http://www.foxtable.com/webhelp/scr/2723.htm