分级权限查看记录
时 间:2019-01-30 12:57:02
作 者:帆 ID:29724 城市:吴江
摘 要:销售管理中,上级要看下级的所有记录,同级只能看自己记录
老板和管理员可以看到所有记录
正 文:
销售管理中,上级要看下级的所有记录,同级只能看自己记录:
员工表 | 客户表 | ||||||
姓名 | 职级 | 部门 | 权限 | 客户名称 | 归属业务员 | 其它信息 | |
张三 | 总经理 | 管理部 | A | CA1-1 | saleA1 | other1 | |
李四 | 部门经理 | 销售一部 | AA | CA1-2 | saleA1 | other2 | |
王五 | 部门经理 | 销售二部 | AB | CA3-1 | saleA3 | other3 | |
saleA1 | 业务员 | 销售一部 | AAA | CA3-2 | saleA3 | other4 | |
saleA2 | 业务员 | 销售一部 | AAA | CB2-1 | saleB2 | other5 | |
saleA3 | 业务员 | 销售一部 | AAA | CB4-1 | saleB4 | other6 | |
saleB1 | 业务员 | 销售二部 | ABA | CB4-2 | saleB4 | other7 | |
saleB2 | 业务员 | 销售二部 | ABA | CB4-3 | saleB4 | other8 | |
saleB3 | 业务员 | 销售二部 | ABA | CB4-4 | saleB4 | other9 | |
saleB4 | 业务员 | 销售二部 | ABA | ||||
总经理张三可以看到所有客户,各业务员只能看到自己的客户 | |||||||
李四可以看到销售一部的客户 | 王五可以看到销售二部的客户 | ||||||
客户名称 | 归属业务员 | 其它信息 | 客户名称 | 归属业务员 | 其它信息 | ||
CA1-1 | saleA1 | other1 | CB2-1 | saleB2 | other5 | ||
CA1-2 | saleA1 | other2 | CB4-1 | saleB4 | other6 | ||
CA3-1 | saleA3 | other3 | CB4-2 | saleB4 | other7 | ||
CA3-2 | saleA3 | other4 | CB4-3 | saleB4 | other8 | ||
CB4-4 | saleB4 | other9 |
qx = DLookup("权限", "员工信息", "姓名 ='" & Forms!SysFrmMain!Username & "'") '取login用户的权限
If Forms!SysFrmMain!Username = "admin" or Forms!SysFrmMain!RoleName = "老板" Then
Me.RecordSource = "select 客户查询意向.* from 客户查询意向 " '老板和管理员可以看到所有记录
Else
Me.RecordSource = "select 客户查询意向.* from 客户查询意向 where left(权限,len('" & qx & "'))='" & qx & "'"
'查看自己和下级的客户,用自己的权限去匹配,如果自己的权限是两码,则匹配所有人员权限的前两码,相同则是自己的下级,就可以看他们的客户
End If
有没有一点传销的感觉,呵呵!
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)