如何设置组权限?请求帮助,多谢!我建了六个组:
管理者
高管
部门经理
项目经理
内业
工程师
访问名单及权限 |
序号 |
登录组 |
登录名 |
访问权限 |
|
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