Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

TEditUserDialog = class(TForm)

OKBtn: TBitBtn;

CancelBtn: TBitBtn;

UsersTable: TTable; dsUsers: TDataSource;

NameEdit: TDBEdit;

FullNameEdit: TDBEdit;

GroupBox: TGroupBox;

PasswordEdit: TDBEdit;

ConfirmPassword: TEdit;

Label1: TLabel;

Label2: TLabel;

LevelGroup: TDBRadioGroup;

procedure OKBtnClick(Sender: TObject); procedure CancelBtnClick(Sender: TObject); procedure FormHide(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } function EditUser(const UserName: string; Table: TTable; IsNew:

Boolean): Boolean; end;

var
EditUserDialog: TEditUserDialog;

function EditUserData(const UserName: string; Table: TTable;

IsNew: Boolean): Boolean;

implementation

uses
Global, Crypt;

{$R *.DFM}

const
SNotFound = 'Записей не обнаружено';
SNoConfirmPassword = 'Вы ввели разные пароли. Проверьте правильность ввода';

function EditUserData(const UserName: string; Table: TTable;

IsNew: Boolean): Boolean; var
SUName: string; begin
Result := False;
SUName := UserName; if glUserLevel ulAdministrator then begin

Table := nil;

SUName := glUserName; end; with TEditUserDialog.Create(Application) do try

Result := EditUser(SUName, Table, IsNew); finally

Free; end; end;

{ TEditUserDialog }

function TEditUserDialog.EditUser(const UserName: string; Table:

Ttable; IsNew: Boolean): Boolean; begin
NameEdit.Enabled := (glUserLevel = ulAdministrator);
LevelGroup.Enabled := (glUserLevel = ulAdministrator); if Table nil then begin dsUsers.DataSet := Table;

UsersTable.Close; end else begin

UsersTable.Open; if UserName '' then begin if not UsersTable.FindKey([UserName]) then raise Exception.Create(SNotFound); end; dsUsers.DataSet := UsersTable; end; if IsNew then dsUsers.DataSet.Append else dsUsers.DataSet.Edit;
ConfirmPassword.Text := PasswordEdit.Text;
Result := ShowModal = mrOk; end;

procedure TEditUserDialog.OKBtnClick(Sender: TObject); begin if PasswordEdit.Text ConfirmPassword.Text then raise Exception.Create(SNoConfirmPassword); dsUsers.DataSet.Post;
ModalResult := mrOk; end;

procedure TEditUserDialog.CancelBtnClick(Sender: TObject); begin dsUsers.DataSet.Cancel;
ModalResult := mrCancel; end;

procedure TEditUserDialog.FormHide(Sender: TObject); begin dsUsers.DataSet.Cancel;
UsersTable.Close; end;

end.

unit Global;

interface

type
TUserLevel = (ulInvalid, ulOperator, ulManager, ulAdministrator);

const
InvalidID = 0; glUserLevel: TUserLevel = ulInvalid; glUserName: string = ''; glUserID: Longint = InvalidID;

function cUserLevel(Code: Longint): TUserLevel;

implementation

function cUserLevel(Code: Longint): TUserLevel; begin
Result := ulInvalid; if (Code in [Integer(Low(TUserLevel))..Integer(High(TUserLevel))]) then

Result := TUserLevel(Code); end;

end.

unit Global;

interface

Рекомендуем скачать другие рефераты по теме: реферат экологические проблемы, изложение по русскому языку 7, взаимодействие реферат.





Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата