Foxtable(狐表)用户栏目专家坐堂 → 录入窗口与权限管理


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

主题:录入窗口与权限管理

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


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
录入窗口与权限管理  发帖心情 Post By:2018/3/12 11:24:00 [只看该作者]

按照帮助文段设置录入窗口用户权限,为什么不起作用???设置完后任何一个用户登录一样可以编辑

假定设计了一个录入窗口用于录入表A的数据,要求张三负责输入第一列、第二列、第三列的内容,李四负责输入第五列、第六列、第七列的内容。

要实现此目的,只需在窗口的全局事件Enter事件中设置代码:

Dim ctl As WinForm.Control = e.Sender
Select
Case ctl.BindingField
Case
"A.第一列", "A.第二列", "A.第三列"
If User.Name =
"张三" Then
ctl.ReadOnly = BooleanEnum.False
'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True
'禁止编辑
End If
Case
"A.第四列", "A.第五列", "A.第六列"
If User.Name =
"李四" Then
ctl.ReadOnly = BooleanEnum.False
'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True
'禁止编辑
End
If
End
Select

 

我在窗口全局时间enter加入代码,只修改了控件的绑定字段

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "报价单.人工价"
        If User.Name = "IE" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "报价单.检测费用", "报价单.包装费用", "报价单.运输","报价单.小缸费","报价单.制造费","报价单.研发管理费","报价单.后勤管理费"
        If User.Name = "业务" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

[此贴子已经被作者于2018/3/12 11:27:09编辑过]

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


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

改成下面代码,弹出什么?

 

Dim ctl As WinForm.Control = e.Sender
msgbox(ctl.BindingField)
Select Case ctl.BindingField
    Case "表A.第一列", "表A.第二列", "表A.第三列"
        If User.Name = "张三" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "表A.第四列", "表A.第五列", "表A.第六列"
        If User.Name = "李四" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select


 

能否做一个foxtable实例发上来说明?

[此贴子已经被作者于2018/3/12 11:28:56编辑过]

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


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
  发帖心情 Post By:2018/3/12 13:36:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

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


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

如果你是在表格里面限制的,参考

 

http://www.foxtable.com/webhelp/scr/2255.htm

 

http://www.foxtable.com/webhelp/scr/2257.htm

 

 


 回到顶部