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

22选5技巧:分级权限查看记录

黑龙江22选5 www.xyf1x.cn 时 间: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
看不到评论

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

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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