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

Access快速开发平台--操作用户只能看到自己本部门的数据功能示例

时 间:2020-06-24 08:52:23
作 者:宏鹏   ID:21115  城市:上海
摘 要:Access快速开发平台--操作用户只能看到自己本部门的数据功能示例。
正 文:

功能描述:

以Access快速开发一日通报销管理课程的报销明细为例:

传送门:[张志MVP]Access快速开发一日通视频教程[Access软件网]


管理员可以看到所有部门的报销明细数据:

点击图片查看大图


用财务部的员工账号登录,则员工只能看到财务部的数据:


测试帐号如下:

管理员的帐号:admin     密码:admin

其他部门用户帐号见“用户管理”菜单,密码均为:123456


附   件:

点击下载此软件源码学习


实现方式:

在报销明细主窗体的加载事件代码加上筛选代码,如下:

    If GetParameter("Current User Username") = "admin" Then
        '如果管理员登录则显示所有数据
        Me.sfrList.Form.Filter = ""
        Me.sfrList.Form.FilterOn = False
    Else
        '如果[普通帐号登录则显示自己录入的数据
        '获取当前用户的所属部门
        Dim Department As String
        Department = DLookup("DName", "qryEmployee", "UserName='" & GetParameter("Current User Username") & "'")
        '利用部门条件,筛选子窗体
        Me.sfrList.Form.Filter = "DName='" & Department & "'"
        Me.sfrList.Form.FilterOn = True
    End If


Access快速开发平台QQ群 (群号:239158550)       access源码网店

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

2020/6/29 9:12:03周口Access粉丝
开眼界了,很实用的功能。

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

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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