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源码网店
常见问答:
技术分类:
最新帖子
- 使用数据模块生成器后,... (02-27 09:07)
- SELECT DIST... (02-27 08:54)
- 请教更新查询 (02-26 17:57)
- 如何设置VBA语句,使... (02-26 10:10)
- 同一条记录追加到别一个... (02-25 21:34)
- 把數量跟據每包數量分成... (02-25 17:35)
- 如何保护查询表的设置内... (02-25 17:12)
- 如何根据供应商简码来自... (02-25 15:35)
- 请教引用问题,请指点 (02-25 12:15)
- 怎么实现自动提示功能? (02-23 18:50)

学习心得
最新文章
- 允许用户向未绑定组合框添加项(02.26)
- 【Access小作】黑白之美--报...(02.25)
- Access组合框动态赋值多个文本...(02.24)
- Access快速开发平台--多语言...(02.23)
- Access快速开发平台--设置默...(02.22)
- 利用split函数批量整理数据(02.21)
- 标题特定字符的多张excel表导入...(02.20)
- 【Access日期示例】如何设置文...(02.20)
- Access自制调色板(02.17)
- 【转载】分享国外HTML拾色器(02.15)
最新评论: 查看更多评论(1)
开眼界了,很实用的功能。
发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!