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

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

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

点击下载此附件