Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何设置组权限？请求帮助，多谢！


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

主题：如何设置组权限？请求帮助，多谢！
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		如何设置组权限？请求帮助，多谢！  发帖心情 Post By：2020/9/3 9:14:00 [只看该作者]

 如何设置组权限？请求帮助，多谢！
我建了六个组：
管理者
高管
部门经理
项目经理
内业
工程师

访问名单及权限
序号 登录组 登录名 访问权限
1 管理者 管理员2人 可以查看工程部所有人行。能修改所有的行。 　
2 高管 高管3人 可以查看工程部所有人行。不能修改所有的行。 　
3 部门经理 部门经理2人 可以查看工程部所有人行。只能在固定期限内填报、修改自己的行。 　
4 项目经理 项目经理6人 可以查看所有人工程师。只能在固定期限内填报、修改自己的行。 　
5 内业 内业2人 可以查看所有人行。只能在固定期限内填报、修改自己的行。 　
6 工程师 工程师13人 可以查看自己的行。只能在固定期限内填报、修改自己的行。 　

项目事件 应该如何修改？

LoadUserSetting

If User.Group = "管理者" Then
    DataTables("工作日志基础数据").LoadFilter = ""
    DataTables("工作日志基础数据").AllowEdit = True
    If User.Group = "高管" Then
        DataTables("工作日志基础数据").LoadFilter = ""
    End If
Else
    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Name & "'"
End If

DataTables("工作日志基础数据").Load()
DataTables("工作日志基础数据").DataCols("结账").RaiseDataColChanged
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/3 9:46:00 [只看该作者]


If User.Group = "管理者" Then
    DataTables("工作日志基础数据").LoadFilter = ""
    DataTables("工作日志基础数据").AllowEdit = True
elseIf User.Group = "高管" Then
        DataTables("工作日志基础数据").LoadFilter = ""
elseIf User.Group = "部门经理" Then
…………
Else
    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Name & "'"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		如果是""项目经理"组,能看所有"工程师"组,但不可以编辑,只可以编辑自己的？  发帖心情 Post By：2020/9/4 11:21:00 [只看该作者]

我建了六个组：
管理者
高管
部门经理
项目经理
内业
工程师

访问名单及权限
序号 登录组 登录名 访问权限
1 管理者 管理员2人 可以查看工程部所有人行。能修改所有的行。 　
2 高管 高管3人 可以查看工程部所有人行。不能修改所有的行。 　
3 部门经理 部门经理2人 可以查看工程部所有人行。 　
4 项目经理 项目经理6人 可以查看“工程师”组。 　
5 内业 内业2人 可以查看所有人行。 　
6工程师工程师13人可以查看自己的行。


If User.Group = "管理者" Then '如果是"管理者",能看所有人,可以编辑.

    DataTables("工作日志基础数据").LoadFilter = ""

    DataTables("工作日志基础数据").AllowEdit = True

ElseIf User.Group = "高管" Then '如果是"高管"组 ,能看所有人,但不可以编辑.

    DataTables("工作日志基础数据").LoadFilter = ""

    DataTables("工作日志基础数据").AllowEdit = False

ElseIf User.Group = "部门经理" Or User.Group = "内业" Then ''如果是""部门经理"组或者是"内业"组 ,能看所有人.

    DataTables("工作日志基础数据").LoadFilter = ""

    DataTables("工作日志基础数据").AllowEdit = True

ElseIf User.Group = "项目经理" Then '如果是""项目经理"组,能看所有"工程师"组,但不可以编辑.

    DataTables("工作日志基础数据").LoadFilter = ""

    DataTables("工作日志基础数据").AllowEdit = True

Else

    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Name & "'"

End If

 

DataTables("工作日志基础数据").Load()

DataTables("工作日志基础数据").DataCols("结账").RaiseDataColChanged

[此贴子已经被作者于2020/9/4 11:31:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/4 11:26:00 [只看该作者]

【只可以编辑自己的】这个不能在这里控制，参考：http://www.foxtable.com/webhelp/topics/2254.htm
[此贴子已经被作者于2020/9/4 11:35:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		那如何看自己的行和一个“组”的行呢  发帖心情 Post By：2020/9/4 11:33:00 [只看该作者]

 那如何看自己的行和一个“组”的行呢

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/4 11:36:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		以"项目经理"组成员登录，如何加载“自己”的订单和“工程师”组的订单？  发帖心情 Post By：2020/9/5 21:52:00 [只看该作者]

2、在项目的LoadUserSetting事件中设置代码，加载用户负责的订单:

If User.Name = "张经理" Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "业务员 = '" & User.Name & "'"
End If
DataTables("订单").Load()

这样用户登录后，系统判断登录用户是否是张经理，如果是的，则加载所有订单，否则只加载登录用户负责的订单。

上面的代码是基于用户名的，同样可以改为基于用户分组的，只需将上述代码中的User.Name改为User.Group，并将用户名替换为分组名即可。


在项目的LoadUserSetting事件中设置代码，以"项目经理"组成员登录，如何加载“自己”的订单和“工程师”组的订单:


If User.Group = "项目经理" Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "填报人 = '" & User.Group & "'"
End If
DataTables("订单").Load()
[此贴子已经被作者于2020/9/5 21:53:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/6 20:00:00 [只看该作者]

If User.Group = "项目经理" Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "填报人 = '" & User.Group & "' or 填报人 = '工程师'"

End If
DataTables("订单").Load()

 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		如果是""项目经理"组,能看自己行且可以编辑;能看所有"工程师"组行,但不可以编辑  发帖心情 Post By：2020/9/6 21:08:00 [只看该作者]

’想实现：如果是""项目经理"组,能看自己行且可以编辑;能看所有"工程师"组行,但不可以编辑.
’但是：    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Group & "' or 填报人 = '工程师'" '该行执行完后，所有的行都看不到了

If User.Group = "管理者" Then '如果是"管理者",能看所有人,可以编辑.
    DataTables("工作日志基础数据").LoadFilter = ""
    DataTables("工作日志基础数据").AllowEdit = True
ElseIf User.Group = "高管" Then '如果是"高管"组 ,能看所有人,但不可以编辑.
    DataTables("工作日志基础数据").LoadFilter = ""
    DataTables("工作日志基础数据").AllowEdit = False
ElseIf User.Group = "部门经理" Or User.Group = "内业" Then '如果是""部门经理"组或者是"内业"组 ,能看所有人,但不可以编辑,只可以编辑自己的.
    DataTables("工作日志基础数据").LoadFilter = ""
    DataTables("工作日志基础数据").AllowEdit = True
ElseIf User.Group = "项目经理" Then '如果是""项目经理"组,能看自己行且可以编辑;能看所有"工程师"组行,但不可以编辑.
    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Group & "' or 填报人 = '工程师'" '该行执行完后，所有的行都看不到了
    DataTables("工作日志基础数据").AllowEdit = True
Else
    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Name & "'"
    DataTables("工作日志基础数据").AllowEdit = True
End If

DataTables("工作日志基础数据").Load()
DataTables("工作日志基础数据").DataCols("结账").RaiseDataColChanged
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/6 21:37:00 [只看该作者]


 回到顶部
总数 23 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 4 次数据查询