delphi实现权限管理.docVIP

delphi实现权限管理 PAGE PAGE 1 Delphi下实现对应用程序的菜单项级别的权限控制 河海大学计算机及信息工程学院 张富国 摘要：本文介绍了一个通用的基于菜单项级别的权限控制方法，分析了它所要解决的主要技术问题，并给出解决这些技术问题的具体步骤。 关键词: 权限管理 Delphi TmainMenu 菜单下载 授权 菜单加载 权限管理一直是应用程序所普遍关心的事，如果能实现应用程序菜单项级别的用户权限控制，那肯定是大家所向往的事。 1. 原理 我们知道菜单项的visible属性可以用来控制菜单项的显示，如果数据库中的某个字段能唯一地表示具体的菜单项的位置，而同一表中的另一字段用来表示用户代码，那么我们就可以通过在加载菜单时检查数据库中是否存在用户代码和某一菜单项的记录来控制该菜单项的显示，从而达到权限管理。 考虑到一个项目会有许多应用程序需要授权，所以建表Application 表名 Application 字段名 类型 说明 AppCode Char(4) 应用程序代码 AppName Varchar(20) 应用程序名称 另外，为了使授权程序执行时能显示各应用程序菜单的各项内容，以便系统管理员能根据菜单项内容进行授权，需先在数据库中保存菜单的具体内容，所以再建一表Module。通过编制通用的菜单下载程序来把每一菜单的内容下载到该表中，以便授权程序执行时调用。 表名 Module 字段名 类型 说明 ModCode Char(6) 菜单项代码（两位应用程序代码+两位列号+两位行号） ModName Varchar(20) 菜单项名称 PrgCode Char(2) 菜单所代表的应用程序代码 MenuCol INT 菜单项所处的列 MenuRow INT 菜单项所处的行 由上可知，我们要编制菜单下载程序、授权程序和菜单加载程序。 2.具体实现 菜单下载程序的实现 菜单下载程序须由主菜单Form上某一控件（如为Button1）激活。 // 获得主菜单矩阵,自动下载程序菜单 procedure TMainMenuForm.Button1Click(Sender: TObject); var mn_col,mn_row : integer ; //列号和行号 i,ii : integer ; //循环变量 ss : string ; // str_menu_col,str_menu_row : string; begin mn_col := MainMenuForm.MainMenu.Items.Count; //获得菜单列数 //把菜单列记录到Module表中 for i := 1 to mn_col do begin ss := MainMenuForm.MainMenu.Items[i-1].Caption; //获得列名称 if i < 10 then str_menu_col := '0' + inttostr(i) else str_menu_col := inttostr(i); //两位列号 str_menu_row := '00'; //行号为零 Close; SQL.Clear ; SQL.Add (' Insert into HosServer..Module ') ; SQL.Add (' (ModCode , ModName, PrgCode, MenuCol, MenuRow)') ; SQL.Add (' values (:mod_code , :mod_name, :prg_code,:menu_col,:menu_row) ') ; ParamByName('mod_code').AsString := PrgCode + str_menu_col + str_menu_row ; //PrgCode为菜单所在应用程序代码，已在外部定义值 ParamByName('mod_name').AsString := ss; ParamByName(