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


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

主题：如何设置组权限？请求帮助，多谢！
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  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


加好友 发短信
等级：幼狐 帖子：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		看到看不到，没法编辑啊  发帖心情 Post By：2020/9/7 6:41:00 [显示全部帖子]

ElseIf User.Group = "项目经理" Then '如果是""项目经理"组,能看自己行且可以编辑;能看所有"工程师"组行,但不可以编辑.
    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Group & "' or 填报人 = '工程师'" '该行执行完后，所有的行都看不到了
    DataTables("工作日志基础数据").AllowEdit = True
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		我感觉是数据没有读出“工作组”  发帖心情 Post By：2020/9/7 9:50:00 [显示全部帖子]

使用的是or连接条件，增加的条件不可能会减少数据，只会增加。检查其它地方代码 

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

我感觉是数据过滤命令，没有读出填报人 = '" & User.Group & "' 工作组；也没有读出 填报人 = '工程师'" 工作组
因为我单独用任何一个都读不出来数据

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


ElseIf User.Group = "项目经理" Then '如果是""项目经理"组,能看自己行且可以编辑;能看所有"工程师"组行,但不可以编辑.
    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" 工程师 "' '该行执行完后，所有的行都看不到了
    DataTables("工作日志基础数据").AllowEdit = True
[此贴子已经被作者于2020/9/7 9:53:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		  发帖心情 Post By：2020/9/7 10:48:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20200907105853.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20200907105638.png
图片点击可在新窗口打开查看
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

这个登录的分组好用，条件语句里面的分组不好用。

登录的分组好用，条件语句里面的分组不好用

这个表有符合条件的数据，有填报人为工程师或者项目经理的数据
[此贴子已经被作者于2020/9/7 11:18:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		用户分组  发帖心情 Post By：2020/9/7 11:20:00 [显示全部帖子]


 用户分组问题
[此贴子已经被作者于2020/9/7 14:05:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
吃亏是福
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：474 威望：0 精华：0 注册：2020/8/19 17:19:00 		您太厉害了！解决了！还有一个问题？  发帖心情 Post By：2020/9/7 11:59:00 [显示全部帖子]

 没有实现10天后数据“自动锁定” “结账”列
您看看，我的问题出在哪里
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询