Delphi实现软件中登录用户的操作权限

unit  UserRightCenter; 

interface  

uses  
Windows, Messages, SysUtils, Classes, Forms, Dialogs,ADODB; 

type  
TUserRight  =   class  
private  
FConnection : TADOConnection; 
FData: TADOQuery; 
FUserID: Integer; 
public  
constructor  Create(AConnection:TADOConnection); overload ; 

// 根据用户id创建对应的权限列表 
function  CreateRightListByUserID(uid:Integer):Boolean; 
// 根据用户id取得对应的权限列表 
function  GetRightListByUserID(uid:Integer):Boolean; 
// 根据用户id删除对应的权限列表 
function  DeleteRightListByUserID(uid:Integer):Boolean; 
// 根据记录id设置某个功能是否可用,funid:记录id，uid:用户ID，issel:是否可用 
procedure  SetFunEnable(funid,uid,issel:Integer); 
// 判断某个功能是否可用 
function  IsRightEnable(uid:Integer;fuccode: string ):Boolean; 

procedure  ShowUserRigthView(uid:Integer); 

property  Connection: TADOConnection  read  FConnection; 
property  Data: TADOQuery  read  FData; 
property  UserID: Integer  read  FUserID  write  FUserID; 
end ; 

implementation  
uses  
UserRightView; 

{  TUserRight  }  

constructor  TUserRight.Create(AConnection: TADOConnection); 
begin  
FConnection : =  AConnection; 
FData : =  TADOQuery.Create( nil ); 
FData.Connection : =  FConnection; 
end ; 

function  TUserRight.CreateRightListByUserID(uid: Integer): Boolean; 
begin  
Result : =  False; 
DeleteRightListByUserID(uid); 
FData.Close; 
FData.SQL.Text : =   ' insert into UserRightData(fucid,fucpid,fuccode,fucname,IsFuc,IsSel,userid)  ' +  
' select fucid,fucpid,fuccode,fucname,IsFuc,IsSel, ' + IntToStr(uid) + '  from BaseData ' ; 
FData.ExecSQL; 
Result : =  True; 
end ; 

function  TUserRight.DeleteRightListByUserID(uid: Integer): Boolean; 
begin  
Result : =  False; 
FData.Close; 
FData.SQL.Text : =   ' delete from UserRightData where userid= ' + IntToStr(uid); 
FData.ExecSQL; 
Result : =  True; 
end ; 

function  TUserRight.GetRightListByUserID(uid: Integer): Boolean; 
begin  
FData.Close; 
FData.SQL.Text : =   ' select * from UserRightData where UserID= ' + IntToStr(uid); 
FData.Open; 
end ; 

function  TUserRight.IsRightEnable(uid:Integer;fuccode:  string ): Boolean; 
begin  
FData.Close; 
FData.SQL.Text : =   ' select * from UserRightData where userid= ' + IntToStr(uid) +  
'  and fuccode= ' + fuccode; 
FData.Open; 
if  (FData.IsEmpty)  or  (FData.FieldByName( ' IsSel ' ).AsInteger  =   0 )  then  
Result : =  False 
else  
Result : =  True; 
end ; 

procedure  TUserRight.SetFunEnable(funid,uid,issel: Integer); 
begin  
FData.Close; 
FData.SQL.Text : =   ' update UserRightData set IsSel= ' + IntToStr(issel) +  
'  where UserID= ' + IntToStr(uid) + '  and FucID= ' + IntToStr(funid); 
FData.ExecSQL; 
end ; 

// 这是现实权限管理界面的，也就是在上面设置用户权限，这个大家可以根据自己的需要用不同的方式去展现 
procedure  TUserRight.ShowUserRigthView(uid: Integer); 
var  
frm: TfrmUserRightView; 
begin  
frm : =  TfrmUserRightView.Create( nil ); 
try  
frm.Caption : =   ' 用户权限列表 ' ; 
frm.SetUserRight(Self); 
Self.GetRightListByUserID(uid); 
frm.ShowModal; 
finally  
FreeAndNil(frm); 
end ; 
end ; 

end .

unit  Main; 

interface  

uses  
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,UserRightCenter, StdCtrls, DB, ADODB; 

type  
TfrmMain  =   class (TForm) 
Button1: TButton; 
Button2: TButton; 
Edit1: TEdit; 
Label1: TLabel; 
ADOConnection1: TADOConnection; 
Button3: TButton; 
procedure  Button1Click(Sender: TObject); 
procedure  FormCreate(Sender: TObject); 
procedure  Button2Click(Sender: TObject); 
procedure  Button3Click(Sender: TObject); 
private  
{  Private declarations  }  
FUserRight : TUserRight; 
public  
{  Public declarations  }  
end ; 

var  
frmMain: TfrmMain; 

implementation  

{ $R *.dfm }  

// 现实用户权限列表 
procedure  TfrmMain.Button1Click(Sender: TObject); 
begin  
FUserRight.UserID : =   1 ; 
FUserRight.ShowUserRigthView( 1 ); 
end ; 

procedure  TfrmMain.FormCreate(Sender: TObject); 
begin  
// ADOConnection1是你的数据库连接 
ADOConnection1.Open; 
FUserRight : =  TUserRight.Create(ADOConnection1); 
end ; 

// 创建用户权限列表 
procedure  TfrmMain.Button2Click(Sender: TObject); 
begin  
FUserRight.CreateRightListByUserID(StrToInt(Edit1.Text)); 
end ; 

// 测试，查看权限，Button3的tag设置为10100003 
procedure  TfrmMain.Button3Click(Sender: TObject); 
begin  
if  FUserRight.IsRightEnable( 1 ,IntToStr(TButton(Sender).Tag))  then  
ShowMessage( ' 可以使用 ' ) 
else  
ShowMessage( ' 你没有使用权限 ' ) 
end ; 

end .