分级权限查看记录

来源:原创 点击数:13595 　 | 收藏 | 复制

时　间: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源码网店

【打印此文】【关闭窗口】