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源码网店
常见问答:
技术分类:
最新帖子
- access链接mys... (01-25 14:49)
- 带引号的字符串 (01-24 19:30)
- test: IIf([... (01-24 12:35)
- test: IIf([... (01-24 12:17)
- 请问:显示文档选项卡可... (01-23 18:07)
- 体育成绩自动计算如何实... (01-23 11:40)
- 体育成绩自动计算的实现... (01-22 19:56)
- 报表的求和为什么是错误... (01-22 15:17)
- 字段和组合框怎么联动 (01-21 21:22)
- 一个窗体展示多个指定路... (01-21 15:31)

学习心得
最新文章
- 字段和组合框联动(01.26)
- 【IIF函数知识】iif函数怎么判...(01.25)
- DateCreated 属性(01.24)
- 在 SQL 语句结尾之后找到字符(01.24)
- 【Access粗心马大哈引起的问题...(01.23)
- 【Access快速开发平台源码作品...(01.22)
- 在组合框和列表框中分级显示数据(01.21)
- SQL Server备份方法(01.20)
- 阿拉伯数字转大写数字的代码实例(01.19)
- 【Access生日查询】根据月份查...(01.18)
最新评论: 查看更多评论(1)
开眼界了,很实用的功能。
发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!