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

数据库结构：包括两张表BaseData和UserRightData，BaseData中是一张基本表，里面不区分用户，UserRightData是用户权限表，结构和BaseData一样，只是多了用户字段，增加用户时，就是从BaseData表中复制数据到UserRightData中，并标识用户ID。

字段说明：

FucCode:该字段与控件tag对应

FucName:功能名称

IsSel:是否有权限的标志

IsFuc:标识该项是否是可以执行的功能

FucPID:父节点ID，用来生成树形结构时用

权限管理单元：UserRightCenter

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.

View Code