Delphi下实现对应用程序的菜单项级别的权限控制

Delphi下实现对应用程序的菜单项级别的权限控制
河海大学计算机及信息工程学院张富国

摘要：本文介绍了一个通用的基于菜单项级别的权限控制方法，分析了它所要解决的主要技术问题，并给出解决这些技术问题的具体步骤。

    关键词:  权限管理  Delphi  TmainMenu  菜单下载  授权  菜单加载

权限管理一直是应用程序所普遍关心的事，如果能实现应用程序菜单项级别的用户权限控制，那肯定是大家所向往的事。

1. 原理

我们知道菜单项的visible属性可以用来控制菜单项的显示，如果数据库中的某个字段能唯一地表示具体的菜单项的位置，而同一表中的另一字段用来表示用户代码，那么我们就可以通过在加载菜单时检查数据库中是否存在用户代码和某一菜单项的记录来控制该菜单项的显示，从而达到权限管理。研究TMainMenu的属性可以发现，如果说明Menu1:TmainMenu，则Menu1.items[I].caption为菜单各列的名称，而Menu1.Items[I].Items[ii].caption为I列ii行下拉菜单项的名称。所以可以把菜单看作矩阵，用I和ii的行列组合来唯一表示菜单项。一般应用程序中有很多菜单，所以数据库中表示菜单项的字段还应加上应用程序的代码。为此，建表Permission(SQL SERVER为例)通过编制相应的授权程序来记录某用户对某一菜单项是否具有使用权。