// қонақ үй түрлері
procedure TFrmmain.ActiKlOperationExecute(Sender: TObject);
begin
Application.CreateForm(TFrmSmplTbl, FrmSmplTbl);
FrmSmplTbl.DsLoc.DataSet := dm.TblKlHotel;
dm.TblSity.ReadOnly := not admin;
FrmSmplTbl.Caption := 'Виды проживания';
dm.TblKlHotel.Open;
FrmSmplTbl.ShowModal;
FrmSmplTbl.Free;
dm.ADOTableVIEWHotelsNames.Close;
dm.ADOTableVIEWHotelsNames.Open;
end;
//тізімді баспаға шығару
procedure TFrmmain.ActPrintExecute(Sender: TObject);
var word:TMSWord;
begin
word:=TMSWord.Create;
//TMSWord класты құру
if not word.Open then
//Ole объектісімен байланыс орнату
Ф-ОБ-001/033
74
begin
MessageBox(0, 'Ашу қатесі Word. '+#13+#10+
'Microsoft Office пакеті орнатылмауы мүмкін', 'Қате', MB_ICONSTOP or
MB_OK);
exit;
end;
word.New;
//жаңа құжат
word.InsertCenterText(caption+#13); //құжат тақырыбын қою
DataSetToWordTable(Grid,Qry,word,true); //кестені қою
word.Show;
//Word көрсету
word.Free;
//жадыны босату
end;
end;
// Көлік түрлері
procedure TFrmmain.ActTechTypeExecute(Sender: TObject);
begin
Application.CreateForm(TFrmSmplTbl, FrmSmplTbl);
FrmSmplTbl.DsLoc.DataSet := dm.TblTranspType;
dm.TblTranspType.ReadOnly := not admin;
FrmSmplTbl.Caption := TAction(Sender).Caption;
FrmSmplTbl.DsLoc.DataSet.Open;
FrmSmplTbl.ShowModal;
FrmSmplTbl.DsLoc.DataSet.close;
FrmSmplTbl.Free;
LoadFiltres;
end;
// сорттау панелін жасыру
procedure TFrmmain.BtnHideSortPanelClick(Sender: TObject);
begin
ActShowSortPanelExecute(nil);
end;
Достарыңызбен бөлісу: |
