- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- table授权后 在窗口界面能否非授权人员可以进行修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113987)
-- 发布时间：2018/1/26 10:00:00
-- table授权后 在窗口界面能否非授权人员可以进行修改
\'\'Select Case e.Col.Name
\'\'Case "客户名称","产品类型","产品型号","工序代码","发行时间","工艺图_图纸","工艺图_发行数","工艺图_接收人"
\'\'If User.Group <> "公司管理人员" Then
\'\'e.Cancel = True
\'\'End If
\'\'End Select
\'\'
\'\'Select Case e.Col.name
\'\'Case "程序代码","胎具明细","检具明细","刀具明细"
\'\'If User.Group <> "车间工艺人员" Then
\'\'e.Cancel = True
\'\'End If
\'\'End Select
\'
\'If e.Row.IsNull("审核") = False Then \'如果审批列不为空
\'e.Cancel = True \'则禁止编辑
\'End If
此主题相关图片如下：qq图片20180126095629.png
此主题相关图片如下：qq图片20180126095629.png-- 发布时间：2018/1/26 10:16:00
--
没看懂你什么意思。
通过什么方式进行授权，判断什么知道是否授权？
-- 发布时间：2018/1/26 10:57:00
--
就是在表属性 写了下面的代码
\'\'Select Case e.Col.Name \'\'Case "客户名称","产品类型","产品型号","工序代码","发行时间","工艺图_图纸","工艺图_发行数","工艺图_接收人" \'\'If User.Group <> "公司管理人员" Then \'\'e.Cancel = True \'\'End If \'\'End Select \'\' \'\'Select Case e.Col.name \'\'Case "程序代码","胎具明细","检具明细","刀具明细" \'\'If User.Group <> "车间工艺人员" Then \'\'e.Cancel = True \'\'End If \'\'End Select \' \'If e.Row.IsNull("审核") = False Then \'如果审批列不为空 \'e.Cancel = True \'则禁止编辑 \'End If  但是通过这种方式在查阅窗口时员工不能点开表单里面的worde文档 这个怎么解决呢
| ||||
-- 发布时间：2018/1/26 11:23:00
--
代码改写到 startEdit 事件即可
-- 发布时间：2018/1/26 13:17:00
--
Select Case e.Col.Name
Case "客户名称","产品类型","产品型号","工序代码","发行时间","工艺图_图纸","工艺图_发行数","工艺图_接收人", "检具明细"
If User.Group <> "公司技术部" Then
e.Cancel = True
End If
End Select
Select Case e.Col.name
Case "程序代码","胎具明细","刀具明细"
If User.Group <> "车间技术部" Then
e.Cancel = True
End If
End Select
是我这段代码有问题吗 为什么“车间技术部”的指令好使 公司技术部不好使呢 组定义里面明明有公司技术部啊
-- 发布时间：2018/1/26 13:30:00
--
而且在测试过程中还发现一个问题就是 非授权的人员虽然不能进行输入 但是可以通过右键或者菜单栏 对文档进行删除 这个怎么破呢 还望有点甜老师能帮忙解决一下
-- 发布时间：2018/1/26 14:22:00
--
以下是引用雅痞123456在2018/1/26 13:17:00的发言：
是我这段代码有问题吗 为什么“车间技术部”的指令好使 公司技术部不好使呢 组定义里面明明有公司技术部啊
什么意思？你要做到什么效果。如何测试？
-- 发布时间：2018/1/26 14:23:00
--
以下是引用雅痞123456在2018/1/26 13:30:00的发言：
而且在测试过程中还发现一个问题就是 非授权的人员虽然不能进行输入 但是可以通过右键或者菜单栏 对文档进行删除 这个怎么破呢 还望有点甜老师能帮忙解决一下
而且在测试过程中还发现一个问题就是 非授权的人员虽然不能进行输入 但是可以通过右键或者菜单栏 对文档进行删除 这个怎么破呢 还望有点甜老师能帮忙解决一下
参考
http://www.foxtable.com/webhelp/scr/0662.htm
-- 发布时间：2018/1/26 14:37:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:丹东隆盛机加管理平台3.table |
此主题相关图片如下：1.png
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:丹东隆盛机加管理平台3.table |
这样改对我这样的小白来说太难了 有没有其他方法 我想只有有权限输入的人可以对表单进行更改 、删除、增加行这类操作，其余人员不能进行任何更改只能进行查看 我表达的不清楚老师可以测试一下就知道了 要是可以的话最好能帮我把删除行的问题也给调试一下呗
-- 发布时间：2018/1/26 15:38:00
--
1、那你就删除
Select Case e.Col.Name
Case "客户名称","产品类型","产品型号","工序代码","发行时间","工艺图_图纸","工艺图_发行数","工艺图_接收人", "检具明细"
If User.Group <> "公司技术部" Then
\' e.Cancel = True
End If
End Select
Select Case e.Col.name
Case "程序代码","胎具明细","刀具明细"
If User.Group <> "车间技术部" Then
e.Cancel = True
End If
End Select
If e.Row.IsNull("审核") = False Then \'如果审批列不为空
e.Cancel = True \'则禁止编辑
End If
2、设置权限参考 http://www.foxtable.com/webhelp/scr/1667.htm