Анықтамалық ақпараттық жүйесін құру
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- // фильтрацияда қалай бастау қосқышы
- // үлгіні көрсет
- Page 78 Ф - ОБ -001/033
| // жаңалау батырмасы
procedure TFrmmain.BtnRefrFilterParamClick(Sender: TObject); begin LoadFiltres;
Ф-ОБ-001/033 78 end; // фильтрацияда кез-келген өзгертулер procedure TFrmmain.AnyCh(Sender: TObject); begin Refresh; end; // фильтрацияда қалай бастау қосқышы procedure TFrmmain.PageFIndTypeChange(Sender: TObject); begin qry.Filtered:= PanelFind.Visible and ( ((PageFIndType.ActivePageIndex=0) and CheckFilter.Checked) or (PageFIndType.ActivePageIndex=1) ); end; // үлгіні көрсет procedure TFrmmain.FormActivate(Sender: TObject); begin BtnAdd.Enabled := admin; ActUser.Enabled := admin; GridTitleClick(Grid.Columns[0]); LoadFiltres; Refresh(-1); end; // бағыттар бойынша ақпаратты баспаға шығару procedure TFrmmain.FrmDocExecute(Sender: TObject); var word:TMSWord; i:integer; begin i:=0; 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.InsertFile(ExtractFilePath(ParamStr(0))+'doc.doc'); Word.Replace('_STRGOR_' ,QrySityName .AsString);
Ф-ОБ-001/033 79 Word.Replace('_NAME_' ,QryName .AsString); Word.Replace('_TRANSP_' ,QryTranspName .AsString); Word.Replace('_HOTELNAME_' ,QryHotelName.AsString); Word.Replace('_COST_' ,QryCost.AsString); Word.Replace('_DAYS_' ,QryDays.AsString); Word.Replace('_INFO_' ,Qryinfo.AsString); word.Show; //Word-ты көрсету word.Free; //жадыны босату end; end.
жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|