Foxtable(狐表)用户栏目专家坐堂 → 看看这样理解对吗 权限问题


  共有2024人关注过本帖树形打印复制链接

主题:看看这样理解对吗 权限问题

帅哥哟,离线,有人找我吗?
18365900066
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1469 威望:0 精华:0 注册:2019/1/27 23:19:00
看看这样理解对吗 权限问题  发帖心情 Post By:2019/2/22 14:57:00 [只看该作者]

请教下,是不是点击 青岛大学店,然后右边的权限 勾选 上以后,
会出现在  用户的对应的列中。 
 然后我在编辑“授权表”,在写分组后面的权限代码设置权限。
这样  按照  我的用户表  中的登录名登录以后,就会实现对应的权限了

谢谢
图片点击可在新窗口打开查看此主题相关图片如下:1122.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/2/22 14:58:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/22 15:51:00 [只看该作者]

这里只是把用户和权限关联到一起,然后存储到授权表中,也就是说我们只是知道了哪个用户有什么权限。

用户登录后,每个需要控制权限的地方都还要到这个授权表查询是否有权限的,比如项目事件LoadUserSetting中,加入如下代码:

For Each t As Table In Tables
    t.Visible = 
True
    t.AllowEdit = 
true
    For Each c As Col In t.Cols
        c.Visible = 
True
        c.AllowEdit = 
True
    Next

Next
Tables
("授权表").Visible = (User.Type <> UserTypeEnum.User )
If
 User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If
 dr.IsNull("列名"
Then
        
    Tables(dr("表名")).Visible = Not dr("不可见")
            Tables
(dr("表名")).AllowEdit = Not dr("不可编辑")

        Else
            
Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables
(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑"
        End
 
If
    Next
End
 
If


 回到顶部
帅哥哟,离线,有人找我吗?
18365900066
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1469 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2019/2/22 16:11:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看谢谢您有点蓝老师,辛苦您了。一下子清晰明了了。谢谢

 回到顶部