维普资讯 http://www.cqvip.com
…… Ｃ０■Ｐ岍硼ＰＲＯＧ删ＭＩＮＧ删Ｕ盯Ｅ¨＿ＣＥ……………………………………………… ………………… ． 管理伤垂系饶强 仅限矽冬分配钓舒决方 李 曾勇进 摘 要 本文总结了多年实践中常用的操作权限的动态分配问题的解决方案，并给出了 ＰｏｗｅｒＢｕｉｌｄｅｒ的开发实例。 关键词操作权限，动态分配 一、问题陈述 在给企业开发ＭＩＳ系统的过程中，感受颇深的是，公司的 Ｃｒｅａｔｅ－Ｉ－ａｂｌｅ ｄｅｐａｒｔｍｅｎｔ（ ｄｐｉｄ ＿ｖａｒｃｈａｒ（３） ｎｏｔ ｎｕｌ１．％％部门代码 ｄｐｎａｍｅ ＿ｖａｒｃｈａｒ（２０） ｖａｒｃｈａｒ（３） ％％部门名称 ．％％本部门的上级部门 管理者对职员的操作权限比较重视。在公司内各个部门的工作 职能都不尽相同，在实现不同部门工作职能，在实现的时候， 往往大都是反映在系统的ＭＤ［主窗口的菜单中。如果不对职 员的操作权限做出的话，将会导致职员职责上的混乱和滥 用，不仅不好管理，也难做到各司其职，这一点是管理者最忌 讳的，也是最头痛的，所以必须对职员的操作权限做出。 另外一个问题是，在公司内部，基于各种可能的原因，职员的 ｄｐＪｅｖｅｌ ｉｎｔｅｇｅｒ ｄｐｐａｒｅｎｔ ＿ｎｏｔ ｎｕｌｌ，％％部门的组织层次 ｄｐｍａｎａｇｅｒ ｖａｒｃｈａｒ（２０） ＿ｄｐｎｏｔｅ ＿．％％本部门的主管 ｖａｒｃｈａｒ（１００） ％％本部门说明 ｖａｒｃｈａｒ（２００） ，％％本部门的职责 ｄｐｔａｓｋ Ｐｒｉｍａｒｖ Ｋｅｙ（ｄｐｊｄ） ）： 岗位往往不是固定的，经常会发生转岗或者换岗，显然，其相 应的操作权限亦应该随之发生变化，所以在对职员的权限管理 ％％若是总经理的话，可以将ｄｐｊｏａｒｅｎｔ的值设为 Ｏ ％％ｄｐＪｅｖｅｌ用来记录部门的所在层次，根结点的层次为１，依 次类推 必须戗到动态分配，以可视化的界面提供给管理者使用。这 样，管理者可以根据情况来动态分配职员的操作权限。 ％％职员基本情况表 Ｃｒｅａｔｅ Ｔａｂｌｅ ｅｍｐｌｏｙｅｅ 二、解决方案 对于职员的管理应该按照部门进行管理，在以前的文章 中，曾经探讨过对“客户资料”的管理也是按照部门管理的， 并且给出了解决方案，现在也是按照此思路来实现职员权限的 动态分配。 本方案以ＳＹＢＡＳＥ ＡＳＡ ６．０为数据库平台，开发工具采用 ＰｏｗｅｒＢｕｉｌｄｅｒ８．０３。首先，先给出相关对象的数据字典 （ＷＡＴＣＯＭ ＳＱＬ）： （ｅ＿ｃｏｄｅ ｃｈａｒ（３） ｎｏｔ ｎｕｌ１．％％职员帐户代码 ｅｄｅｐａｒｍｅｎｔ ｖａｒｃｈａｒ（３），％％职员的隶属部门代码 ＿ｅ＿ｒｉｇｈｔ ｖａｒｃｈａｒ（６００） ｎｏｔ ｎｕｌｌ，％％职员的权限代码串 ＿ｅｃｈｅｃｋ ｃｈａｒ（１）ｄｅｆａｕｌｔ １ ．％％用于可视设计中的 ｃｈｅｃｋｂｏｘ Ｐｒｉｍａｒｖ Ｋｅｙ（ｅ＿ｃｏｄｅ） ， Ｆｏｒｅｉｇｎ Ｋｅｙ（ｅ＿ｄｅｐａｒｔｍｅｎｔ）ｒｅｆｅｒｅｎｃｅｓ ｄｅｐａｒｔｍｅｎｔ（ｄｐｉｄ） ｏｎ ｄｅｌｅｔｅ ｒｅｓｔｒｉｃｔ ｏｎ ｕｐｄａｔｅ ｃａｓｃａｄｅ ％％部门基本情况表 ４－ ４－ 七 ）： 四、结语 ＡＤＯ数据库连接字符串的动态设置及加密解密极大的方 便了Ｄｅｌｐｈｉ开发数据库应用软件的安装和部署，数据库连接字 符串中３个重要的参数值，既可以保存在初始文件中，还可以 保存在操作系统的注册表中等。 参考文献 １．陈灿煌著Ｄｅｌｐｈｉ５彻底研究．中国铁道出版社，２００１ ２．ｈｔｔｐ：／／ｃｏｍｍｕｎｉｔｙ．ｃｓｄｎ．ｎｅｔ／ （收稿日期：２００７年２月１９日） 维普资讯 http://www.cqvip.com
…： …………… ……………… … …… …‘’… … … 实用第一 智慧密集 。 …． ． ． 。 ％％系统菜单描述表 分配ＣｈｅｅｋＢｏｘ 菜单项名称ｌｔｅｍＣｍａｍｅ ％％本表记录ＭＤＩ系统主菜单上各个将要纳入权限管理的 ％％菜单项． 打勾 功能组一 ｃｒｅａｔｅ ｔａｂｌｅ ｍｅｎｕｃｏｄｅ（ 未打勾 功能组二 ｉｔｅｍｃｏｄｅ ｃｈａｒ（３）ｎｏｔ ｎｕｌｌ， 打勾 报价 ％％菜单项的内部编码，供标识使用 打勾 报表 ｐａｒｅｎｔｉｔｅｍｃｏｄｅ ｃｈａｒ（３）ｎｏｔ ｎｕｌｌ ｄｅｆａｕｌｔ ０００ ， 未打勾 客户资料 ％％本菜单项的父菜单 未打勾 单证 ｉｔｅｍｎａｍｅ ｖａｒｃｈａｒ（１ ２）ｎｏｔ ｎｕｌ１． 未打勾 单据 ％％本菜单项在ＰＢ中的对象名称 ｉｔｅｍｃｎａｍｅ ｖａｒｃｈａｒ（４０）ｎｏｔ ｎｕｌｌ，％％本菜单项的中文名称 ｐｒｉｍａｒｙ ｋｅｙ（ｉｔｅｍｃｏｄｅ） ）： ｄ—ｒｉｇｈｔ的界面 特别说明一下，假设ＭＤＩ主窗口的菜单为ｍ＿ｍｅｎｕ，在其 在窗口ｗ＿ｒｉｇｈｔ中定义一个ｄａｔａｗｉｎｄｏｗ控件，相对应的 下面有两个子菜单“功能组一” （ｍ＿ｓｅｖｉｃｅＩ）和“功能组二” ｄａｔａｗｉｎｄｏｗ对象为ｄ ｒｉｇｈｔ，ｄ＿ｒｉｇｈｔ的ＳＱＬ数据源为“系统菜 （ｍ＿ｓｅｖｉｃｅ２）。前者下面有三个菜单项，它们分别是“报价” 单表”。在设计它的时候，显示两个数据项，一个是ＣＨＥＣＫ— （ｍ＿ｑｕｏｔａｔｉｏｎ）、 “报表” （ｍ＿ｒｅｐｏｒｔ）和“客户资料” ＢＯＸ控件，用来表明当前的菜单项对于指定的职员是否可用， （ｍ＿ｃｕｓｔｏｍｅｒ）；后者下面有两个菜单项，它们分别是“单 如果ｃｈｅｃｋｅｄ＝ｔｒｕｅ的话。表明指定的职员可以使用，否则就 证”（ｍ＿ｃｒｅｄｉｔ）和“单据”（ｍ＿ｄｏｃｕｍｅｎｔ）。那么关于菜单 不能使用；另外一个数据项是ＣＯＬＵＭＮ，它是“系统菜单表” ｍ＿ｍｅｎｕ的描述反映在表ｍｅｎｕｃｏｄｅ中时如下表所示。 中的字段“ｉｔｅｍｃｎａｍｅ”，其他的字段不予显示，供内部代码使 菜单属性设置 用，但必须将它们选入到ＳＱＬ的数据源。ｄ＿ｒｉｇｈｔ的界面如上图 ｌｔｅｍｅｏｄｅ Ｐａｒｅｎｔｉｔｅｍｅｏｄｅ ＩｔｅｎｍＩｎｅ Ｉｔ∞ｃｍＩｌ 所示。从界面上看，管理者可以使用点击ＣｈｅｃｋＢｏｘ来动态分 （内部编码） （父菜单） （ｔｇ单项的对象名） （ｔｇ单项中文名称） 配权限，另外几个字段没有显示出来。 ∞ｌ ００ｏ Ｍ－ＭＥＮＵ ＾Ⅱｓ系统 注：打勾表示选中ＣｈｅｃｋＢｏｘ，未打勾表示没有选中 ００ ∞ｌ Ｍ． ⅥＣＥｌ 功能组一 ＣｈｅｃｋＢｏｘｏ ００Ｂ ∞ｌ Ｍ．ＳＥＶＩＣＥ２ 功能组二 当管理者点击ｄａｔａｗｉｎｄｏｗ控件中的指定一行时，应在该控 ００４ ００ Ｍ・ＱＵＯＴＡＴＩＯＮ 报价 件的ｉｔｅｍｃｈａｎｇｅｄ事件中加入下列代码来收集指定职员的权限 ００５ ００ Ｍ．ＲＥＰ０ｌＨ 报表 串。 ００６ ００ Ｍ．ＣＵＳＩＤＭＥＲ 客户资料 ／／一致性处理，比如选了某个菜单项，但没有选中其父菜单， ０ ∞Ｂ Ｍ．ＣＲＥＤｒｒ 单证 ／／系统应该能够自动为其选上等 ００８ 加８ Ｍ－Ｄ０ＣＵＭＥＮＴ 单据 ／／目前考虑的有两种情况： ／／（１）父菜单被弃选．这时应将那些有被选的子菜单项弃选 ／／（２）若某一个子菜单项有被中，这时应将其父菜单选中（假 如父菜单没有被选中） 应该注意到“内部编码”的长度应该统一，都为三位，如 ｌｏｎｇ Ｉｎｖ－ ｎ，Ｉｎｖｊ 编码为‘００１’就不能写成‘１’或者‘Ｏｌ’，在程序中实现起 ｓｔｒｉｎｇ Ｉｎｖ＿ｔｈｉｓ，Ｉｎｖ．．ｐａｒｅｎｔ，Ｉｎｖ＿ｃｈｅｃｋｓｔａｔｕｓ 来会更方便一些。在“职员基本情况表”里面注意到了字段 ｉｆ ｒｏｗ＜＝０ ｔｈｅｎ “ｅ＿ｎ‘ｇｈｔ”，该字段是用来记录该职员能够使用到菜单中的哪 ｒｅｔｕｒｎ ｒｏｗ ｅｎｄ ｉｆ 些菜单项，比如，当字段的值为“００２００４００５”表示该职员可 Ｉｎｖ＿ｃｈｅｃｋｓｔａｔｕｓ＝ｔｈｉｓ．ｏｂｊｅｃｔ．ｉｔｅｍｃｈｅｃｋ【ｒｏｗ ｌ 以使用“功能组一”下的菜单项“报价”和“报表”，至于其 ／／此值是变之前的数据，那么很显然，变化后的值是其反码 他的菜单项就不能使用了，这样处理达到了预期目的。 ／／比如：本来是 ０ ，那么变完之后是 １ 一个菜单项对应一个功能，或者说对应一个权限，因此， ｉｆ Ｉｎｖ＿ｃｈｅｃｋｓｔａｔｕｓ＝ ０ ｔｈｅｎ 要想控制职员的权限，只需控制菜单项是否显示在主菜单中即 ／／检查其父菜单是否有被选，如果没有被选中的话，则自动 ／／为其补上 可达到目的。需要特别强调的是在设计菜单的时候，所有需要 Ｉｎｖ．．ｐａｒｅｎｔ＝ｔｈｉｓ．ｏｂｊｅｃｔ．ｐａｒｅｎｔｉｔｅｍｃｏｄｅ【ｒｏｗ ｌ 控制的菜单项的ＶＩＳＩＢＬＥ属性都设为ｆａｌｓｅ，即不显示。 ｆｏｒＩｎｖｊ＝１ ｔｏｉｎｖ＿ｒｏｗｓ １．权限动态分配窗口 ｉｆ ｄｗ＿１．ｏｂｊｅｃｔ．ｉｔｅｍｃｏｄｅ【Ｉｎｖｊ ｌ＝Ｉｎｖ．．ｐａｒｅｎｔ ｔｈｅｎ ／Ｍ＼￣－骚２酾００７．两４ 维普资讯 http://www.cqvip.com
ｉｆ ｄｗ＿１．ｏｂｊｅｃｔ．ｉｔｅｍｃｈｅｃｋ【Ｉｎｖｊ】＝ ０ ｔｈｅｎ ｄｗ＿１．ｏｂｊｅｃｔ．ｉｔｅｍｃｈｅｃｋ【Ｉｎｖｊ】＝ １ ｅｎｄｉｆ ｅｎｄ ｉｆ ｎｅｘｔ ｅｌｓｅ Ｉｎｖ＿ｔｈｉｓ＝ｔｈｉｓ．ｏｂｊｅｃｔ．ｉｔｅｍｃｏｄｅ【ｒｏｗ】 ｆｏｒＩｎｖ＿ｉ：１ ｔｏｉｎｖ＿ｒｏｗｓ ｉｆ ｄｗ＿１．ｏｂｊｅｃｔ．ｐａｒｅｎｔｉｔｅｍｃｏｄｅ【Ｉｎｖｊ】：Ｉｎｖ＿ｔｈｉｓ ｔｈｅｎ ｉｆ ｄｗ＿１．ｏｂｊｅｃｔ．ｉｔｅｍｃｈｅｃｋ【Ｉｎｖｊ】＝ １ ｔｈｅｎ ｄｗ＿１．ｏｂｊｅｃｔ．ｉｔｅｍｃｈｅｃｋ【Ｉｎｖ＿ｉ】＝ ０ ｅｎｄｉｆ ｅｎｄｉｆ ｎｅｘｔ ｅｎｄ ｉｆ 另再增加一个“确认”接纽来将收集到的权限串保存到 指定职员表中，即“职员基本情况表”中的字段ｅ ｒｉｇｈｔ。该 按纽事件“ｃｌｉｃｋｅｄ”中的代码如下： ｓｔｒｉｎｇ Ｉｎｖｒｉｇｈｔｓ＝ ＿ｌｏｎｇ Ｉｎｖｊ ｜ｆ ｄｗ＿１．ａｃｃｅｐｔ－ｔｅｘｔ（１＝一１ ｔｈｅｎ ｍｅｓｓａｇｅｂｏｘＩ 错误ＩＡ） ， 权限分配失败！ ） ｒｅｔｕｒｎ一１ ｅｎｄ ｉｆ ｆｏｒＩｎｖ＿ｉ＝１ ｔｏ ｉｎｖ＿ｒｏｗｓ ｉｆ ｄｗ＿１．ｏｂｊｅｃｔ．ｉｔｅｍｃｈｅｃｋ【Ｉｎｖｊ】＝ １ ｔｈｅｎ Ｉｎｖｊｉｇｈｔｓ＝Ｉｎｖ＿ｒｉｇｈｔｓ＋ｄｗ＿１．ｏｂｊｅｃｔ．ｉｔｅｍｃｏｄｅ【Ｉｎｖｊ】 ｅｎｄ ｉｆ ｎｅｘｔ ｉｆ Ｉｎｖｊ＇ｉｇｈｔｓ＝ ｔｈｅｎ ｂｅｅｐＩ１） ｍｅｓｓａｇｅｂｏｘＩ 提醒您 ， 至少授权一个！ ，ｅｘｃｌａｍａｔｉｏｎ！） ｒｅｔｕｒｎ ｅｎｄ ｉｆ ｃｌｏｓｅｗｉｔｈｒｅｔｕｒｎ Ｉ ｐａｒｅｎｔ．Ｉｎｖ＿ｒｉｇｈｔｓ） 最后返回指定职员的权限串ｌｎｖ．＿ｉｆｇｈｔ供保存，具体的代码， 请读者自己来完成。 ２．实施动态分配 当职员成功登录到系统的时候，应该首先从“职员基本情况 表”读取该职员的权限串，即ｅ ｒｉｇｈｔ的值，之后在ＭＤＩ主窗 口的ｐｆｃ＿ｐｏｓｔｏｐｅｎ事件中解析该权限串，最后将解析结果反映 到系统菜单上去。 ／／根据系统管理员对其的授权代码串来控制菜单的显示与否 ｌｏｎｇ Ｉｎｖ＿ｎｕｍｓ ｓｔｒｉｎｇ Ｉｎｖ＿ｓｉｎｇｌｅｒｉｇｈｔ ｎ＿ｃｓｔ ｍｅｎｕ Ｉｎｖｎ＿＿ｃｓｔ＿ｒｎｅｎｕ ／／ＰＦＣ框架内的菜单类 ｍｅｎｕ Ｉｎｖ＿ｒｎｅｎｕ，Ｉｎｖ＿ｒｎｅｎｕｉｔｅｍ ／／菜单对象 ｓｔｒｉｎｇ Ｉｎｖ＿ｒｎｅｎｕｉｔｅｍｎａｍｅ／／对应“系统菜单表”中的 ｉｔｅｍｎａｍｅ Ｉｎｖ＿ｍｅｎｕ＝ｔｈｉｓ．ｍｅｎｕｉｄ／／获取ＭＤＩ主窗口上的菜单 ｉｎｖ＿ｄｓ＿ｍｅｎｕｃｏｄｅ＝ｃｒｅａｔｅ ｎ＿ｄｓ ｉｎｖ—ｄｓ—ｍｅｎｕｃｏｄｅ．ｄａｔａｏｂｊｅｃｔ＝ ｄｊｉｇｈｔ ｉｎｖ＿ｄｓ＿ｍｅｎｕｃｏｄｅ．ＳｅｔＴｒａｎｓＯｂｊｅｃｔ Ｉ ＳＱＬＣＡ） ｉｎｖ＿ｄｓ＿ｍｅｎｕｃｏｄｅ．ｏｆ＿ｓｅｔｐａｒｅｎｔｗｉｎｄｏｗ（ｔｈｉｓ） ｓｅｔｐｏｉｎｔｅｒ Ｉ ｈｏｕｒｇｌａｓｓ！） Ｉｎｖ＿ｒｏｗｓ＝ｉｎｖ＿ｄｓ＿ｍｅｎｕｃｏｄｅ．ｒｅｔｒｉｅｖｅ Ｉ） ｉｆ Ｉｎｖｊｏｗｓ＜一１ ｔｈｅｎ ｂｅｅｐＩ１） ｍｅｓｓａｇｅｂｏｘＩ 错误ＩＡ） ， 数据库被非法关闭！ ，ｓｔｏｐｓｉｇｎ Ｙ） ｔｈｉｓ．ｐｏｓｔ ｅｖｅｎｔ ｐｆｃ＿ｃｔｏｓｅ【） ｅｎｄ ｉｆ ｉｆ ｍｏｄＩｌｅｎＩｉｎｖ＿ｅｍｐｌｏｙｅｅ．ｉｓ＿ｒｉｇｈｔ），３）＜＞０ ｔｈｅｎ ／／在前面，要求该字段的长度都为三位 ｍｅｓｓａｇｅｂｏｘＩ 警告ＩＡ）’， 非法的权限代码串！ ） ｒｅｔｕｒｎ ｅｎｄ ｉｆ ／／准备按照其权限代码串进行授权 ｓｅｔｐｏｉｎｔｅｒＩ ｈｏｕｒｇｌａｓｓ！） ＩｎＶ－ｎｕｍｓ＝ｌｅｎ Ｉ ｉｎｖ＿ｅｍｐｌｏｙｅｅ．ｉｓ ｒｉｇｈｔ）／３ ｆｏｒＩｎｖｊ：１ ｔｏＩｎｖ』Ｉｕｍｓ Ｉｎｖ＿．ｓｉｎｇｌｅｒｉｇｈｔ＝ｍｉｄ Ｉ ｉｎｖ ｅｍｐｌｏｙｅｅ．ｉｓ＿ｒｉｇｈｔ，Ｉｎｖｊ ３—２．３） Ｉｎｖ＿ｓｅａｒｃｈｒｏｗ＝ｉｎｖ＿ｄｓ＿ｍｅｎｕｃｏｄｅ．ｆｉｎｄ ｌ ｉｔｅｍｃｏｄｅ＝ ＋…＋Ｉｎｖ＿ｓｉｎｇｌｅｒｉｇｈｔ＋…，１．Ｉｎｖ＿ｒｏｗｓ＋１） ｉｆ Ｉｎｖ．＿ｓｅａｒｃｈｒｏｗ＝０ ｔｈｅｎ／／异常处理 ｃｏｎｔｉｎｕｅ ｅｎｄ ｉｆ Ｉｎｖ＿ｍｅｎｕｉｔｅｍｎａｍｅ＝ｉｎｖ＿ｄｓ＿ｍｅｎｕｃｏｄｅ．ｏｂｊｅｃｔ．ｉｔｅｍｎａｍｅ 【Ｉｎｖ＿ｓｅａｒｃｈｒｏｗ】 Ｉｎｖｎｃｓｔｍｅｎｕ．ｏｆ＿＿＿＿ｇｅｔｍｅｎｕｒｅｆｅｒｅｎｃｅＩ Ｉｎｖ＿ｍｅｎｕ， Ｉｎｖ＿ｍｅｎｕｉｔｅｍｎａｍｅ，Ｉｎｖ＿ｍｅｎｕｉｔｅｍ） ／／在调试的时候，这个开关暂时不要打开，以免浪费时间 Ｉｎｖ ｍｅｎｕｉｔｅｍ．ｖｉｓｉｂｌｅ＝ｔｒｕｅ ／／拥有此权限，显示相应的菜单项 ｎｅｘｔ 通过上面的处理，系统每次启动的时候都会检查当前职员 的权限范围，之后再分配相对应的权限给该职员。 还有一点就是要说明是，那些有快捷键的菜单项在不显示 的情况下，用户按下相应的快捷键会调用相应的功能，这一点 需要另外处理，比较简单就可以完成了，否则会留下后门。 ３．“系统菜单表”的维护 一个ＭＩＳ系统，在开发或者维护的过程中，可能会增加新 的功能，所以对于编程人员来说应该设置一个模块来管理“系 统菜单表”。 三、结语 扩展“系统菜单表”可以管理更多的东西，以上只是简单 的处理思路。内部跟踪菜单项的使用情况和频率等有点像日志 文件，管理者可以调阅该文件来了解系统的运行情况。掌握好 ＰＦＣ编程会提高编程质量和效率。 （收稿日期：２０ｏ７年３月９日）