销售管理中,上级要看下级的所有记录,同级只能看自己记录:
员工表
|
|
|
|
|
客户表
|
|
|
姓名
|
职级
|
部门
|
权限
|
|
客户名称
|
归属业务员
|
其它信息
|
张三
|
总经理
|
管理部
|
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
有没有一点传销的感觉,呵呵!