?? uusermanage.~pas
字號:
unit uUserManage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, DBGrids, DBCtrls, DB, ADODB;
const
mIDUserManage = 1;
type
TUserManageFrm = class(TForm)
Panel2: TPanel;
dbgUser: TDBGrid;
dbnMain: TDBNavigator;
adocUser: TADOConnection;
adotUser: TADOTable;
dsUser: TDataSource;
procedure FormCreate(Sender: TObject);
private
FModuleID: Integer;
FUserID: Integer;
function ModuleIsReadOnly(AUserID, AModuleID: Integer): Boolean;
public
constructor Create(AOwner: TComponent; AUserID: Integer);
end;
implementation
{$R *.dfm}
constructor TUserManageFrm.Create(AOwner: TComponent; AUserID: Integer);
begin
FUserID := AUserID;
inherited Create(AOwner);
end;
procedure TUserManageFrm.FormCreate(Sender: TObject);
var
iRight: Integer;
begin
FModuleID := mIDUserManage;
with adotUser do
begin
Close;
ReadOnly := ModuleIsReadOnly(FUserID, FModuleID);
if ReadOnly then
begin
Filtered := False;
Filter := 'UserID=' + IntToStr(FUserID);
Filtered := True;
end;
Open;
end;
end;
function TUserManageFrm.ModuleIsReadOnly(AUserID, AModuleID: Integer): Boolean;
begin
//獲取當前登錄用戶的該模塊的權限
with TADOQuery.Create(Self) do
try
Connection := adocUser;
SQL.Text := 'Select ReadOnly From Rights where UserID=' + IntToStr(AUserID)
+ ' and ModuleID=' + IntToStr(AModuleID);
Open;
Result := Fields[0].AsBoolean;
Close;
finally
Free;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -