Foxtable(狐表)用户栏目专家坐堂 → 权限控制没有作用?


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

主题:权限控制没有作用?

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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
权限控制没有作用?  发帖心情 Post By:2016/8/15 12:42:00 [显示全部帖子]

请教老师下面代码没有权限作用, 窗口中的是关联表,任务阶段要求 的列属性是备注型

 

窗口全局事件  ENTER

Dim ctl As WinForm.Control = e.Sender  
Select Case ctl.BindingField
    Case "工程设计任务书.工程策划副表设计任务时间明细.任务阶段要求"
        If _UserGroup = "技术管理"  orelse  _UserGroup = "负责人" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

[此贴子已经被作者于2016/8/15 12:43:26编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/8/15 15:40:00 [显示全部帖子]

老师,弹出的值 是   “员工”   但是不能控制编辑     _UserGroup  在设置button1 是有效果的

 

就是这里设置 列 的编辑权限不能控制。


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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/8/15 15:49:00 [显示全部帖子]

我从登陆窗口已员工角色登陆,弹出窗一个是空白的   另一个是 显示员工     不能控制 关联表里面设定的权限列  依然能编辑

 

窗口全局事件  ENTER

Dim ctl As WinForm.Control = e.Sender  
Select Case ctl.BindingField
    Case "工程设计任务书.工程策划副表设计任务时间明细.任务阶段要求"
        If _UserGroup = "技术管理"  orelse  _UserGroup = "负责人" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select


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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/8/15 16:10:00 [显示全部帖子]

老师,我想控制的是 例如:窗口1 中的表A   A列 只能符合“管理人员”角色的人编辑该列  ,如果角色  不是”管理人员“的只能阅览该列    A列是备注型

 

表A 是关联子表

[此贴子已经被作者于2016/8/15 16:10:44编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/8/15 17:03:00 [显示全部帖子]

大红袍老师,这样的话,备注型|... 就不能查看内容了,如果禁止编辑,但可点击查看备注,是否能实现

 回到顶部