// шрифті өзгерту
procedure TFrmmain.BtnFontClick(Sender: TObject);
Ф-ОБ-001/033
72
begin
FontDialog.Font := grid.Font;
if not FontDialog.Execute then exit;
grid.Font:=FontDialog.Font;
end;
//выход
procedure TFrmmain.ActExitExecute(Sender: TObject);
begin
close;
end;
//бағдарлама туралы
procedure TFrmmain.ActAboutExecute(Sender: TObject);
begin
Application.CreateForm(TAboutBox, AboutBox);
AboutBox.ShowModal;
AboutBox.free;
end;
// Іздеу панелі
procedure TFrmmain.ActFindExecute(Sender: TObject);
begin
ActFind.Checked := not ActFind.Checked;
PanelFind.Visible := ActFind.Checked;
PageFIndTypeChange(nil);
end;
// іздеу панелін жасыру
procedure TFrmmain.BitBtn1Click(Sender: TObject);
begin
// ActFind.Checked:=False;
ActFindExecute(nil);
end;
// қосымша ақпарат панелі
procedure TFrmmain.ShowAddExecute(Sender: TObject);
begin
ShowAdd.Checked:= not ShowAdd.Checked;
PanelAdd.Visible := ShowAdd.Checked;
end;
// қолданушыны баптау
procedure TFrmmain.ActUserExecute(Sender: TObject);
begin
Application.CreateForm(TFrmUsers, FrmUsers);
FrmUsers.ShowModal;
FrmUsers.Free;
end;
Ф-ОБ-001/033
73
// Ауданы
procedure TFrmmain.KlUsersExecute(Sender: TObject);
begin
Application.CreateForm(TFrmSmplTbl, FrmSmplTbl);
FrmSmplTbl.DsLoc.DataSet := dm.TblStarns;
dm.TblStarns.ReadOnly := not admin;
FrmSmplTbl.Caption := 'Районы';
dm.TblStarns.Open;
FrmSmplTbl.ShowModal;
FrmSmplTbl.Free;
end;
//қала
procedure TFrmmain.KlAdminsExecute(Sender: TObject);
begin
Application.CreateForm(TFrmSmplTbl, FrmSmplTbl);
FrmSmplTbl.DsLoc.DataSet := dm.TblSity;
dm.TblSity.ReadOnly := not admin;
FrmSmplTbl.Caption := 'Города';
dm.TblSity.Open;
FrmSmplTbl.ShowModal;
FrmSmplTbl.Free;
dm.ADOTableVIEWSityNames.Close;
dm.ADOTableVIEWSityNames.Open;
end;
Достарыңызбен бөлісу: |
