• <s id="cugve"></s>

  • <th id="cugve"></th>
  • 
    

    <tbody id="cugve"></tbody>

    Access数据库培训
    网站公告
    ·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
    您的位置: 首页 > 技术文章 > 销售应用

    分级权限查看记录

    时 间: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交流群 (群号:86789465)       access源码网店

    最新评论 查看更多评论(42)

    2019/3/2 17:00:05
    少个表的数据,所以看不懂,客户查询意向 这是个什么表

    2019/2/28 17:01:44雨泉
    很不错的思路!

    2019/2/27 19:55:52
    看不到评论

    发表评论您的评论将提升作者分享的动力!快来评论一下吧!

    用户名:
    密 码:
    内 容:
     

    常见问答

    技术分类

    相关资源

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