分级权限查看记录
时 间: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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)