关于记录录入人员或审核人的代码和菜单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于记录录入人员或审核人的代码和菜单

共有5784人关注过本帖树形打印复制链接主题：关于记录录入人员或审核人的代码和菜单

爱相随

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

关于记录录入人员或审核人的代码和菜单 发帖心情

Post By：2014/7/18 11:38:00 [只看该作者]

老师：

1、因为无法在登录窗口增加用户所属的单位，我通过组定义来区分，但在增加录入人姓名时，增加或减少行时，操作人所在的部门和姓名就直接加上去了，没有点击保存退出后，记录还在，我的要求是，只有点击保存后所做的记录才保存。

2、因为用户属于不同的组（不同的公司和部分），所以有多个用户同时操作同一个表，但要求，操作人只能看见本组（公司或部门）的数据，不能看见其他公司录入的数据，本公司保存后，能看见本公司所有的数据，也可以只选择显示某一时间段的数据，而不同的公司的数据都保存在一个表里，按公司名称或部门集中在一起。而授权总公司的人可以查看所有组（公司或部门）的数据，而他所看到的是按组（公司或部门）和时间顺序在一起的，比如有A公司和B公司，集团某领导看到是：A公司的数据是在一起的，而且是按照时间顺序排列。B公司数据在一起，也是按照时间顺序排列的，还可以根据需要选择要查询的单位和部门，以及时间等来显示。

3、增加审核和弃审按钮，也只有点击后才把审核的状态和姓名加上或取消。

[此贴子已经被作者于2014-7-18 11:43:28编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/18 11:45:00 [只看该作者]

问题1：如果没有点击保存，那么你可以还原所有操作，比如在AfterClose事件 http://www.foxtable.com/help/topics/1538.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/18 11:47:00 [只看该作者]

问题2：你可以按需加载数据，按需隐藏表，按需控制各种操作。

http://www.foxtable.com/help/topics/2267.htm

http://www.foxtable.com/help/topics/2256.htm

http://www.foxtable.com/help/topics/1600.htm

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/18 11:48:00 [只看该作者]

问题3：审核和弃审的代码，就是简单的给表的单元格设置值而已。

wymoonwalker

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2169 威望：0 精华：0 注册：2014/2/10 10:59:00

Post By：2014/7/18 15:25:00 [只看该作者]

借这个题目问一下。我也做了一个类似的表，不同的用户分别加载各自部门的表格。

引用的以下代码。请问我的项目里面有好几个表，其中还设有关联。“订单表”按如下修改完后设置成功，但其他表都不显示了。项目里面如果有四个表，其中俩表关联，有“业务员”项分别加载。剩下的俩表没有要求，所有用户都可以加载。LoadUserSetting代码应该怎么修改呢？

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

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/18 15:33:00 [只看该作者]

回复5楼，要加载多少个表，写多少行代码。

DataTables("订单").LoadFilter = "业务员 = '" & User.Name & "'"

DataTables("产品").LoadFilter = "业务员 = '" & User.Name & "'"

DataTables("员工").LoadFilter = "业务员 = '" & User.Name & "'"

DataTables("订单").Load

DataTables("产品").Load

DataTables("员工").Load

wymoonwalker

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2169 威望：0 精华：0 注册：2014/2/10 10:59:00

Post By：2014/7/18 15:41:00 [只看该作者]

非常感谢！

爱相随

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/7/18 16:26:00 [只看该作者]

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

这段代码的If User.Name = "张经理" Then这段是定义用户名级别的，是到具体的人，但如果我要通过角色来定义，比如张三和李四都是经理，那么我把角色定义为录入人、审批人、批准人，如果增加用户王五、李六都是审批人（因为王五是A公司的审批人，李六是B公司的审批人），只要符合是“审批人”的角色，那么他就能够审核，请问代码怎么改？