浅谈Delphi下实现对应用程序的菜单项级别的权限控制
- 作者:admin 来源:网络 日期:2009-5-6 22:11:44
- 摘要：本文介绍了一个通用的基于菜单项级别的权限控制方法，分析了它所要解决的主要技术问题，并给出解决这些技术问题的具体步骤。
关键词:权限管理 Delphi TmainMenu 菜单下载 授权 菜单加载
前言
权限管理一直是应用程序所普遍关心的事，如果能实现应用程序菜单项级别的用户权限控制，那肯定是大家所向往的事。
1.原理
我们知道菜单项的visible属性可以用来控制菜单项的显示，如果数据库中的某个字段能唯一地表示具体的菜单项的位置，而同一表中的另一字段用来表示用户代码，那么我们就可以通过在加载菜单时检查数据库中是否存在用户代码和某一菜单项的记录来控制该菜单项的显示，从而达到权限管理。研究TMainMenu的属性可以发现，如果说明Menu1:TmainMenu，则Menu1.items[I].caption为菜单各列的名称，而Menu1.Items[I].Items[ii].caption为I列ii行下拉菜单项的名称。所以可以把菜单看作矩阵，用I和ii的行列组合来唯一表示菜单项。一般应用程序中有很多菜单，所以数据库中表示菜单项的字段还应加上应用程序的代码。为此，建表Permission(SQLSERVER为例)通过编制相应的授权程序来记录某用户对某一菜单项是否具有使用权。http://www.dxlww.net代写论文网
表名Permission
字段名类型说明
IndexCodeChar(14)索引号
OprCodeChar(4)用户工号
AppCodeChar(4)应用程序代码
ModCodeChar(6)菜单项代码（两位应用程序代码+两位列号+两位行号）
考虑到一个项目会有许多应用程序需要授权，所以建表Application
表名Application
字段名类型说明
AppCodeChar(4)应用程序代码
AppNameVarchar(20)应用程序名称
另外，为了使授权程序执行时能显示各应用程序菜单的各项内容，以便系统管理员能根据菜单项内容进行授权，需先在数据库中保存菜单的具体内容，所以再建一表Module。通过编制通用的菜单下载程序来把每一菜单的内容下载到该表中，以便授权程序执行时调用。
表名Module
字段名类型说明
ModCodeChar(6)菜单项代码（两位应用程序代码+两位列号+两位行号）
ModNameVarchar(20)菜单项名称
PrgCodeChar(2)菜单所代表的应用程序代码
MenuColINT菜单项所处的列
MenuRowINT菜单项所处的行
由上可知，我们要编制菜单下载程序、授权程序和菜单加载程序。
2.具体实现
2.1菜单下载程序的实现
菜单下载程序须由主菜单Form上某一控件（如为Button1）激活。
//获得主菜单矩阵,自动下载程序菜单
procedureTMainMenuForm.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表中
fori:=1tomn_coldo
begin
ss:=MainMenuForm.MainMenu.Items[i-1].Caption;//获得列名称
ifi10then
str_menu_col:='0'+inttostr(i)
else
str_menu_col:=inttostr(i);//两位列号
str_menu_row:='00';//行号为零
Close;
SQL.Clear;
SQL.Add('InsertintoHosServer..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('prg_code').AsString:=PrgCode;
ParamByName('menu_col').AsString:=str_menu_col;
ParamByName('menu_row').AsString:=str_menu_row;
try
ExecSQL;
except
Application.MessageBox('添加Program数据时出现错误！','错误信息',mb_ok+mb_iconinformation);
exit;
end;
mn_row:=MainMenuForm.MainMenu.Items[i-1].Count;
forii:=1tomn_rowdo
begin
ss:=MainMenuForm.MainMenu.Items[i-1].Items[ii-1].Caption;
ss:=trim(ss);
ifi10then
str_menu_col:='0'+inttostr(i)
else
str_menu_col:=inttostr(i);
ifii10then
str_menu_row:='0'+inttostr(ii)
else
str_menu_row:=inttostr(ii);
//InsertModule
Close;
SQL.Clear;
SQL.Add('InsertintoHosServer..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;
ParamByName('mod_name').AsString:=ss;
ParamByName('prg_code').AsString:=PrgCode;
ParamByName('menu_col').AsString:=str_menu_col;
ParamByName('menu_row').AsString:=str_menu_row;
代写论文联系方式
联系QQ：904272800
联系信箱：904272800@qq.com
代写论文导航
客户、写手申请单
最新论文
热点论文
