于洪
在軟件開(kāi)發(fā)中，為軟件加入權限控制功能，使不同的用戶(hù)有不同的使用權限，是非常重要的一項功能，由其在開(kāi)發(fā)數據庫方面的應用，這項功能更為重要。但是，要為一個(gè)應用加入全面的權限控制功能，又怎樣實(shí)現呢？筆者在軟件開(kāi)發(fā)過(guò)程中，曾被此問(wèn)題困撓過(guò)。大家知道，現在的應用，一般均以菜單訪(fǎng)問(wèn)功能的形式出現，按照常規的做法，只要讓注冊進(jìn)入應用的不同用戶(hù)，可以訪(fǎng)問(wèn)不同的功能菜單，從而實(shí)現功能權限的控制，但是，有這樣一個(gè)問(wèn)題，此種方法便無(wú)能為力，現在的應用軟件，為了提高軟件的易操作性，同一功能可能有多種不同的訪(fǎng)問(wèn)方式，如工具條，右鍵菜單等；同樣，同一個(gè)功能，也可能在軟件的不同地方被調用，而不僅僅被限制為用程序的主菜單來(lái)調用，這樣，才能保證應用的易用性。寫(xiě)到這，問(wèn)題已經(jīng)非常清楚，對于要限制的軟件功能，僅通過(guò)一次代碼設計，無(wú)論在整個(gè)應用的任何地方或通過(guò)何種形式調用此功能，都能被功能權限所限制。
最近，筆者利用Delphi平臺作應用開(kāi)發(fā)時(shí)，通過(guò)Delphi4提供的VCL控件解決了這一問(wèn)題。在了解如何實(shí)現功能權限控制之前，得先看一下Delphi4提供的新控件TActionList，通過(guò)TActionList,應用程序可以統一管理其TAction,這里的Action,可以理解為應用程序的功能。在應用的設計期間，可以通過(guò)TActionList編輯器將功能(Action)加入TActionList,將Action加入TActionList后，就可能通過(guò)Object Inspector設置Action的屬性或為其建立事件句柄。在這里，我們可以用Action的OnExecute事件句柄實(shí)現具體的功能，如下代碼來(lái)顯示一個(gè)操作窗體：
procedure TfrmMain.SetUserExecute(Sender: TObject);
begin
frmUser.showModal;
end;
當要限定這一功能時(shí)，可能利用TAction的Enabled,將其設為False,此功能對于用戶(hù)將被屏蔽掉，如果要此功能對用戶(hù)不可見(jiàn)，則可以設定Visible為False。
當成功能的建立了TActionList后，可能有人問(wèn)，如果使用其中的Action，其實(shí)，在Delphi4中，象TButton、TMenuItem、TSpeedButton、TRadioButton等控件，均有一個(gè)屬性Action,正是通過(guò)它，我們可以將Menu或Button連接到TActionList中TAction,從而實(shí)現功能按鈕或菜單的功能。
在理解了Delphi中的TActionList及TAction之后，就可以看看功能權限的具體實(shí)現方法。
第一步，建立兩張表，一張表存儲用戶(hù)信息，另一張表存儲權限定義。
用戶(hù)信息表User結構如下：
字段名稱(chēng)
類(lèi)型
字段說(shuō)明
UserID
String
用戶(hù)的ID號，為表關(guān)鍵字
UserName
String
用戶(hù)名稱(chēng)
UserPassWord
String
用戶(hù)口令
UserRight表結構如下：
字段名稱(chēng)
類(lèi)型
字段說(shuō)明
UserID
String
用戶(hù)的ID號，為表關(guān)鍵字
ActionCaption
String
存儲功能的名稱(chēng)，即Action的Caption屬性值
ActionEnable
Boolean
存儲功能是否可以訪(fǎng)問(wèn)，即Action的Enable 屬性值
ActionVisible
Boolean
存儲功能是否可見(jiàn)，即Action的visible屬性值
第二步，增加用戶(hù)時(shí)填加用戶(hù)功能權限
當向User表中增加用戶(hù)時(shí)，需要向UserRight中增加功能設置記錄，先看看下面的實(shí)現代碼：
procedure TfrmUser.N1Click(Sender: TObject);
var
i:Integer;
Action:TAction;
begin
//Add Action into user right cds.
with frmMain do begin
for i:=0 to ActionList1.actioncount-1 do begin
Action:=ActionList1.Actions[i];
cdsUserRight.AppendRecord([cdsUser.FieldByName(’userName’).AsString,TAction(Action).Caption,TAction(Action).Enabled,i]);
end;
end;
end;
在這段代碼中，用到了TActionList的兩個(gè)屬性，一個(gè)是ActionCount,另一個(gè)是Actions。ActionCount表示TactionList中有多少功能，即Action,Actions是一個(gè)數組屬性，通過(guò)索引可能訪(fǎng)問(wèn)每一個(gè)TAction,從而可以設置其具體的屬性，象上面提到的Enable及Visible，從而達到限制的目的，通過(guò)這段代碼，將應用程序的所有功能都加入了UserRight表中。
第三步，可以用Grid對上一步產(chǎn)生的表進(jìn)行編輯操作
第四步，利用第二、三步產(chǎn)生的功能限制表UserRight，限制用戶(hù)的權限，這可以在應用程序的主窗體的OnCreate 中實(shí)現。
procedure TfrmMain.FormCreate(Sender: TObject);
const
testUser=’yh’;
var
cdsRight:TClientDataSet;
i:Integer;
begin
//set right of function
cdsRight:=TClientDataSet.Create(self);
try
cdsRight.LoadFromFile(’Right.CDS’);
cdsRight.AddIndex(’id’,’UserName;ActionCaption’,[],’’,’’,0);
cdsRight.IndexName:=’id’;
for i:=0 to ActionList1.ActionCount-1 do begin
if cdsRight.FindKey([TestUser,TAction(ActionList1.Actions[i]).Caption]) then
TAction(ActionList1.Actions[i]).Enabled:=cdsRight.FieldByName(’ActionEnable’).AsBoolean;
end;
finally
cdsRight.Close;
cdsRight.Free;
end;
end;
這段代碼中，假設當前的用戶(hù)ID為yh,同時(shí)只設定了功能的Enable屬性。
