Foxtable(狐表)用户栏目专家坐堂 → 帮助中的权限


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

主题:帮助中的权限

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
帮助中的权限  发帖心情 Post By:2011/5/19 11:03: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

    需要禁止某个权限的时候,才需要在授权表加入相应的条目。例如按照上图的设置,张三看不到表A,不能编辑表B,李四则看不到表B,不能编辑表C,至于王五,比较特殊,他看不到表A的第三列,不能编辑表A的第八列。

    注:模式窗口中权限表的可视化授权应在窗口的AfterLoad中写代码。


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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2011/5/19 12:49:00 [显示全部帖子]

可视化授权对窗体中的表无效吗?

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2011/5/20 8:34:00 [显示全部帖子]

请狐爸看一下,我希望对普通用户按[权限]表锁定,搞了一晚上没有搞定。开发者密码888,窗口左上有个隐形按钮进入系统。权限设置代码在项目属性中
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:产品价格01待注册.zip


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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2011/5/20 8:59:00 [显示全部帖子]

[权限]表中对普通用户进行了限制(项目属性AfterOpenProject中有代码)现在用普通用户身份打开项目并没有限制(没有锁定表)例如主窗口、[材料]窗口、[报价]窗口中的表并没有锁定

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2011/5/20 9:48:00 [显示全部帖子]

知道了。建议在帮助中补充这一部分(窗口中的表的权限)

 回到顶部