分级权限查看记录
时 间: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对子窗体数据进行批...(10.30)
- 最精简的组合框行来源数据快速输...(10.25)
- Access仿平台的多值选择器...(10.24)
- 【Access日期区间段查询】...(10.22)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
学习心得
最新文章
- Access快速开发平台企业版--...(11.18)
- 不会用多表联合查询,多表查询没结果...(11.16)
- 【案例分享】主键字段值含有不间断空...(11.16)
- Access快速开发平台--后台D...(11.14)
- 微软Access邀测新Monaco...(11.12)
- Access列表框左右互选、列表框...(11.11)
- 高效率在导入数据前删除记录(11.10)
- Access报价单转订单示例代码(11.08)
- Access系统自带的日期选择器不...(11.08)
- 分享一下Access工程中的acw...(11.07)