Анықтамалық ақпараттық жүйесін құру
жүктеу/скачать 192.89 Kb.
|
Ф-ОБ-001/033 101 begin Word.FileSave; end; //////////////////////////////////////////////////////// end. procedure TFrmSmplTbl.DsLocDataChange(Sender: TObject; Field: TField); begin StatusBar.SimpleText:=format('Всего%d запись(сей)',[DsLoc.DataSet.RecordCount]); end; procedure TFrmSmplTbl.BtnCloseClick(Sender: TObject); begin close; end; procedure TFrmSmplTbl.BtnRepClick(Sender: TObject); var word:TMSWord; begin 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,DsLoc.DataSet,word,true); //вставить таблицу word.Show; //показать Word word.Free; //Освободить памятьend; end; end. жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|