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

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

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

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

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

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

kangking · 发表于 2010-1-22 14:11:18

学习一下

5988143 · 发表于 2010-1-22 14:16:26

先試用學習一下~

goto2008 · 发表于 2010-1-22 16:59:04

谢谢分享，学习

zxklzxm1983 · 发表于 2010-1-22 17:19:01

先顶,再看

asklove · 发表于 2010-1-23 09:55:04

todaynew · 发表于 2010-1-24 08:07:55

谢谢领导和同志们支持

ycxchen · 发表于 2010-1-24 15:01:49

todaynew又出大作，学习！

yanwei82123300 · 发表于 2010-1-25 14:22:32

先試用學習一下~

chuang0321 · 发表于 2010-2-4 14:47:04

如此大作，自当拜读

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

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

主题相关群

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

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

本帖子中包含更多资源

评分

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