delphi实现权限管理.docVIP

delphi实现权限管理

PAGE

PAGE1

研究TMainMenu的属性可以发现，如果说明Menu1:TmainMenu，则Menu1.items[I].caption为菜单各列的名称，而Menu1.Items[I].Items[ii].caption为I列ii行下拉菜单项的名称。所以可以把菜单看作矩阵，用I和ii的行列组合来唯一表示菜单项。一般应用程序中有很多菜单，所以数据库中表示菜单项的字段还应加上应用程序的代码。为此，建表Permission(SQLSERVER为例)通过编制相应的授权程序来记录某用户对某一菜单项是否具有使用权。

表名Permission

字段名

类型

说明

IndexCode

Char(14)

索引号

OprCode

Char(4)

用户工号

AppCode

Char(4)

应用程序代码

ModCode

Char(6)

菜单项代码（两位应用程序代码+两位列号+两位行号）

考虑到一个项目会有许多应用程序需要授权，所以建表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）激活。

//获得主菜单矩阵,自动下载程序菜单

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:=