- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 权限多级控制 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=51464)
-- 发布时间：2014/5/27 10:22:00
-- 权限多级控制
If User.Name = "经理" Then
DataTables("计划表").LoadFilter = ""
Else
DataTables("计划表").LoadFilter = "部门 = \'" & User.Group & "\'"
End If
DataTables("计划表").Load()
多个部门 制造 设计部
下面各有
经理
主管
职员
我想如果部门 经理 登陆看到部门的全部 主管看到所主管的全部 职员只能看到自己的内容 怎么解决 求助！！
-- 发布时间：2014/5/27 10:28:00
--
select case User.Name case "经理" DataTables("计划表").LoadFilter = "部门 = \'" & User.Group & "\'" case "主管" DataTables("计划表").LoadFilter = "" case "职员" DataTables("计划表").LoadFilter = "职员 = \'" & User.Name & "\'" end select DataTables("计划表").Load() |
-- 发布时间：2014/5/27 10:39:00
--
谢谢
-- 发布时间：2014/5/27 10:56:00
--
|
select case User.Name case "经理" DataTables("计划表").LoadFilter = "部门 = \'" & User.Group & "\'" case "主管" DataTables("计划表").LoadFilter = "" case "职员" DataTables("计划表").LoadFilter = "职员 = \'" & User.Name & "\'" end select DataTables("计划表").Load() |
问题解决了 出现新的问题，当我刷新时 这个权限就失效了 怎样再刷新 或加载所有行时 这个权利还是又有效的呢
-- 发布时间：2014/5/27 10:56:00
--
何为之刷新? 你重新LOAD不会影响原来的LOADFILTER的
-- 发布时间：2014/5/27 11:00:00
--
何为之刷新? 你重新LOAD不会影响原来的LOADFILTER的
此主题相关图片如下：qq截图20140527105333.png
-- 发布时间：2014/5/27 11:03:00
--
那你需要自己设计一个加载树. 在加载条件统一加上你的权限条件判断.
-- 发布时间：2014/5/27 11:05:00
--
编写beforeload事件，控制加载条件
参考 http://www.foxtable.com/help/topics/2057.htm
-- 发布时间：2014/5/27 11:10:00
--
那你需要自己设计一个加载树. 在加载条件统一加上你的权限条件判断.
-- 发布时间：2014/5/27 11:10:00
--