Обделка вертикальных стволов
Дипломная работа - География
Другие дипломы по предмету География
/p>
begin
EditUserData(, UsersTable, True);
end;
nbEdit:
begin
EditUserData(, UsersTable, False);
end;
end;
end;
procedure TUserListForm.UsersGridDblClick(Sender: TObject);
begin
EditUserData(, UsersTable, False);
end;
procedure TUserListForm.FormPlacementSavePlacement(Sender: TObject);
var
IniFile: TIniFile;
I: Integer;
begin
IniFile := TIniFile.Create(FormPlacement.IniFileName);
try
for I := 0 to ComponentCount - 1 do begin
if Components[I] is TrxDBGrid then
TrxDBGrid(Components[I]).SaveLayout(IniFile);
end;
finally
IniFile.Free;
end;
end;
procedure TUserListForm.FormPlacementRestorePlacement(Sender:
TObject);
var
IniFile: TIniFile;
I: Integer;
begin
IniFile := TIniFile.Create(FormPlacement.IniFileName);
try
for I := 0 to ComponentCount - 1 do begin
if Components[I] is TrxDBGrid then
TrxDBGrid(Components[I]).RestoreLayout(IniFile);
end;
finally
IniFile.Free;
end;
end;
procedure TUserListForm.FormCreate(Sender: TObject);
begin
if not (glUserLevel in [ulAdministrator]) then begin
raise Exception.Create(SAccessDenied);
end;
UsersTable.Open;
end;
procedure TUserListForm.FormClose(Sender: TObject;
var
Action: TCloseAction);
begin
Action := caFree;
end;
end.
program Shaft;
uses
Forms,
Main in MAIN.PAS {StaftForm},
Global in GLOBAL.PAS,
EditUser in EDITUSER.PAS,
UserList in USERLIST.PAS {UserListForm},
Edittub in EDITTUB.PAS {EditDataForm},
Editform in EDITFORM.PAS {EdTubForm},
Calc1 in CALC1.PAS {Form1},
Draw in DRAW.PAS {DrawForm};
{$R *.RES}
begin
Application.CreateForm(TStaftForm, StaftForm);
Application.CreateForm(TEditDataForm, EditDataForm);
Application.CreateForm(TEdTubForm, EdTubForm);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDrawForm, DrawForm);
Application.Run;
end.