用户权限授权，脑袋一片混乱，怎修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

End If '以上为细化权限管理

此主题相关图片如下：qq截图20180325152642.jpg

[此贴子已经被作者于2018/3/25 15:32:29编辑过]

弹出值 msgbox(User.Group) 看看是否正确。

代码没问题的，如果是自己做的用户管理，是不是要把user.Group改成_UserGroup，然后写到登陆按钮里面去？

msgbox(User.Group) 修改这个，每次启动系统，提示错误，跳出一个：提示，然后啥都没有，可以正常登陆和使用，权限全部消失，不起作用

user.Group改成_UserGroup，然后写到登陆按钮里面去，按钮里是直接打开窗口：Forms("用户管理").Open()

用户数据库问题，一直不可设置，已经设置主键了，点确定，提示：所有用户表的结构不规范，是不是和这个有关系。

[此贴子已经被作者于2018/3/25 19:11:00编辑过]

如果你自己做的用户管理（使用 _usergroup _username 这样变量的情况），请把代码改成下面那样，写到你自己登陆窗口的登陆按钮去

For Each dr As DataRow In DataTables("授权表").Select("分组 = '" & _usergroup & "'" )

如果你要弄内置登陆，请这样设计表结构 http://www.foxtable.com/webhelp/scr/2723.htm

主题：用户权限授权，脑袋一片混乱，怎修改