【ACCESS小品】窗体中事件权限设计实例

todaynew · 发表于 2010-1-22 12:34:50

本帖最后由 todaynew 于 2010-1-22 13:13 编辑

对权限设计研究了两天，想大体将权限分为窗体及控件的编辑权限，窗体及控件数据的查阅权限，窗体及控件的事件触发权限三类来处理，前述两类应该不难主要涉及锁定、可见性、筛选等常规处理，倒是第三类问题有些麻烦。因此从难处下手，重点解决事件的权限控制问题。

一个窗体上到底存在哪些事件，也就是事件的遍历方面遇到了障碍，有版友指出可采用对VB逐行分析的方法找出事件名称来。想了想，此方法还是有些啰嗦。于是另辟蹊径，编写了一个窗体、窗体节、控件对照事件的表（系统里叫做事件目录），以此表来找窗体或控件对应的事件。这个方法，用一个叫做MyprocedureList的自定义函数来体现。事件的遍历解决后，又编写了一个叫做Myprocedure的自定义函数用来对操作人员的权限进行限制。说了这么大一段话，看起来有些复杂。其实整个设计的核心只围绕一条关键语句展开，这条语句名曰：CallByName。

目前这个实例，是一个相对比较通用的系统，和具体的窗体之间只有在加载事件中用一条语句联系。系统里有两个人员，一个叫做张三，他是管理员，有全部的事件处理权限；另一个人叫做李四，只有部分的事件处理权限。为了同志们测试方便起见，两人的密码均为0000。不多吹了，剩下的同志们自己看实例吧。

jiutianxingchen · 发表于 2018-8-4 20:55:40

谢谢楼主

ardu95 · 发表于 2016-11-1 06:53:47

谢谢分享，学习

nncchh · 发表于 2015-5-25 21:51:50

nncchh · 发表于 2015-5-25 21:51:39

学习学习

ydfyhp · 发表于 2011-12-9 08:29:34

顶一下，好东西.

huxinhua · 发表于 2012-1-11 08:46:35

谢谢分享，学习

meimei30 · 发表于 2011-4-18 15:00:29

为什么下载不了呢？

meimei30 · 发表于 2011-4-18 13:55:05

怎么下载不了呢

meimei30 · 发表于 2011-4-18 13:52:55

能下载吗

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【ACCESS小品】窗体中事件权限设计实例

本帖子中包含更多资源

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)