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

EditTub, Calc1;

{$R *.DFM}

const siMDIChilds = 'OpenMDIChilds';

procedure TStaftForm.SetUserLevel; begin case glUserLevel of ulOperator: begin

DictSetupMenu.Visible := False;

DictSetupMenu.Enabled := False;

UserMenuItem.Visible := False;

UserMenuItem.Enabled := False; end; ulManager: begin

DictSetupMenu.Visible := True;

DictSetupMenu.Enabled := True;

UserMenuItem.Visible := False;

UserMenuItem.Enabled := False; end; ulAdministrator: begin

DictSetupMenu.Visible := True;

DictSetupMenu.Enabled := True;

UserMenuItem.Visible := True;

UserMenuItem.Enabled := True; end; end; end;

procedure TStaftForm.TileMenuItemClick(Sender: TObject); begin
Tile; end;

procedure TStaftForm.CascadeMenuItemClick(Sender: TObject); begin
Cascade; end;

procedure TStaftForm.MinimizeAllMenuItemClick(Sender: TObject); var
I: Integer; begin for I := MDIChildCount - 1 downto 0 do

MDIChildren[I].WindowState := wsMinimized; end;

procedure TStaftForm.ArrangeAllMenuItemClick(Sender: TObject); begin
ArrangeIcons; end;

procedure TStaftForm.AboutMenuItemClick(Sender: TObject); begin
ShowAboutDialog('Расчет тюбинговой обделки', 'Королев А.В.',

'МГГУ', nil, 1, 0, 1996); end;

procedure TStaftForm.PrinterSetupMenuItemClick(Sender: TObject); begin
PrinterSetup.Execute; end;

procedure TStaftForm.ExitMenuItemClick(Sender: TObject); begin
Close; end;

function TStaftForm.ShowForm(FormClass: TFormClass): TForm; var
Form: TForm; begin
Result := nil;
StartWait; try

Form := FindForm(FormClass); if Form = nil then

Application.CreateForm(FormClass, Form); with Form do begin if WindowState = wsMinimized then WindowState := wsNormal;

Show; end;

Result := Form; finally

StopWait; end; end;

procedure TStaftForm.FormStorageRestorePlacement(Sender: TObject); var
IniFile: TrxIniFile;
List: TStrings;
I: Integer;
FormClass: TFormClass;
Form: TForm; begin
StartWait; try

SpeedBar.Visible := True;

IniFile := TrxIniFile.Create(FormPlacement.IniFileName); try if (glUserLevel in [ulManager, ulAdministrator]) then begin

List := TStringList.Create; try

IniFile.ReadList(siMDIChilds, List); for I := 0 to List.Count - 1 do begin

FormClass := TFormClass(GetClass(List[I])); if FormClass nil then ShowForm(FormClass); end; finally

List.Free; end; end; finally

IniFile.Free; end; finally

StopWait; end; end;

procedure TStaftForm.FormStorageSavePlacement(Sender: TObject); var
IniFile: TrxIniFile;
List: TStrings;
I: Integer; begin
IniFile := TrxIniFile.Create(FormPlacement.IniFileName); try

IniFile.EraseSection(siMDIChilds);

List := TStringList.Create; try for I := MDIChildCount - 1 downto 0 do

List.Add(MDIChildren[I].ClassName); if List.Count > 0 then

IniFile.WriteList(siMDIChilds, List); finally

List.Free; end; finally

IniFile.Free; end; end;

function TStaftForm.DBSecurity1CheckUser(UsersTable: TTable; const
Password: String): Boolean; begin
Result := (Password = UsersTable.FieldByName('Password').AsString); if Result then begin glUserName := UsersTable.FieldByName('UserName').AsString; glUserID := UsersTable.FieldByName('ID').AsInteger; glUserLevel := cUserLevel(UsersTable.FieldByName('UserLevel')

.AsInteger);

Result := (glUserLevel ulInvalid); end; if Result then SetUserLevel; end;

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



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

Поделитесь этой записью или добавьте в закладки