主题：如何实现多用户管理

 

项目事件

 

LoadUserSetting

 

If User.Name = "管理员" Then

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

Else

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

End If

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

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

如何编辑外部数据表的用户组
此主题相关图片如下：微信图片_20200831090028.png

到用户管理中修改，不要手工修改这里的数据：http://www.foxtable.com/webhelp/topics/0607.htm

如何设置组权限？请求帮助，多谢！

访问名单及权限
序号	登录组	登录名	访问权限
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