Foxtable(狐表)用户栏目专家坐堂 → [求助]代码修改


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

主题:[求助]代码修改

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


加好友 发短信
等级:一尾狐 帖子:463 积分:4163 威望:0 精华:0 注册:2011/4/5 16:54:00
[求助]代码修改  发帖心情 Post By:2015/3/27 10:20:00 [只看该作者]

以下代码实现窗口控件的权限控制,数据表权限控制代码如何编写?求老师指教!谢谢!

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField 
    Case "CSsmdj.BCNo", "CSsmdj.签发日期","CSsmdj.YBCNo" 
        If _UserGroup  = "签证机构" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "CSsmdj.GB307", "CSsmdj.GB301", "CSsmdj.登记机关", "CSsmdj.登记日期"

        If _UserGroup = "公安户籍" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/27 10:22:00 [只看该作者]

 你指的是什么样的控制?

 

 看完权限管理一章 http://www.foxtable.com/help/topics/2253.htm

 


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


加好友 发短信
等级:一尾狐 帖子:463 积分:4163 威望:0 精华:0 注册:2011/4/5 16:54:00
回复:(有点甜) 你指的是什么样的控制?&nbs...  发帖心情 Post By:2015/3/27 11:08:00 [只看该作者]

自定义用户,想实现不同用户组编辑不同列,如"BCNo","签发日期","YBCNo"只能"签证机构"组用户编辑,"GB307","GB301","登记机关" ,"登记日期"只能"公安户籍"组用户编辑,下面代码不能实现,不知错在哪?

Select Case _UserGroup  
    Case "签证机构" 
        Select Case e.Col.Name
            Case "BCNo","签发日期","YBCNo" 
                e.Cancel = True
        End Select
    Case "公安户籍"
        Select Case e.Col.Name
            Case "GB307","GB301","登记机关" ,"登记日期"
                e.Cancel = True
        End Select
End Select

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/27 11:11:00 [只看该作者]

Select Case e.Col.Name
    Case "BCNo","签发日期","YBCNo"
        If _UserGroup <> "签证机构" Then
            e.cancel = True
        End If
       
    Case "GB307","GB301","登记机关" ,"登记日期"
        If _UserGroup <> "公安户籍"  Then
            e.cancel = True
        End If
End Select

 


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


加好友 发短信
等级:一尾狐 帖子:463 积分:4163 威望:0 精华:0 注册:2011/4/5 16:54:00
谢谢甜老师  发帖心情 Post By:2015/3/27 11:51:00 [只看该作者]

谢谢甜老师!

 回到顶部