Анықтамалық ақпараттық жүйесін құру
Page 90 Ф-ОБ-001/033
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- Page 91 Ф-ОБ-001/033
| Page 90
Ф-ОБ-001/033 91 FrmUsers.Free; end; // страны 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; // виды отелей 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
Ф-ОБ-001/033 92 word:=TMSWord.Create; //создать класс TMSWord if not word.Open then //открыть связь с Ole объектом 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; // покахать/скрыть панель сортировки procedure TFrmmain.ActShowSortPanelExecute(Sender: TObject); begin ActShowSortPanel.Checked := not ActShowSortPanel.Checked; PabelSort.Visible := ActShowSortPanel.Checked; if not ActShowSortPanel.Checked then begin edit.Text:=''; end else begin CheckFilterClick(nil);
жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|