Access培訓
網站公告
·Access快速平臺QQ群號:277422564    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > 銷售應用

分級權限查看記錄

時 間: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交流群 (群號:198347485)       access源碼網店

最新評論 查看更多評論(64)

2019/3/2 17:00:05
少個表的數據,所以看不懂,客戶查詢意向 這是個什么表

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

2019/2/27 19:55:52
看不到評論

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助