Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 销售应用

分级权限查看记录

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

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助