поля 50.
Шаблони формованих документів наведено на малюнках 5 і 6 додатка.
Зразки заповнених формованих документів наведено на малюнках 7 і 8 додатка.
Схеми даних з інформацією про формування документів наведено на малюнках 9 і 10 додатка.
Реалізація завдання за допомогою Delphi
Для реалізації в середовищі Delphi створюємо порожній проект, зображений на малюнку 11 додатка 1. Далі з панелі інструментів BDE перетягуємо на форму компонент Query (DBTables). Для того щоб з таблиці, раніше створеної в СУБД Microsoft Access можна було використовувати дані в додатку на Delphi нам необхідно їх експортувати. У даному випадку формат експорту DBF. p align="justify"> У компонента Query (DBTables) в Object Insperctor, встановлюємо властивості DatabaseName в папку з екпортірованним файлом DBF = C: project1, властивість SQL, встановлюємо select * from абоненти.dbf, для запиту даних їх таблиці.
Потім додаємо на форму компоненти:
З панелі управління Servers:
MS WordMS ExcelWordApplication - робота з додатком MS Word ExcelApplication - робота з додатком MS Excel ExcelWorkbook - робота з книгою MS Excel WordDocument - робота з документом MS Word ExcelWorksheet - робота з листом книги MS Excel ExcelChart - робота з діаграмою
Вони служать для взаємодії Delphi c Excel і Word і використовуються для побудови документів довідкової інформації і типових документів.
З панелі управління Data Acces додаємо компонент DataSource (DB)
У компонента DataSource (DB) в Object Insperctor, встановлюємо властивості DataSet рівним Query1.
З панелі управління Data Controls додаємо компонент Dbgrid (Dbgrids)
У компонента Dbgrid (Dbgrids) в Object Insperctor, встановлюємо властивості DataSource рівним DataSource1.
З панелі управління Standart додаємо компоненти:
компонента Button
компонент GroupBox в нього додаємо 2 компонента Label і 2 компоненти StaticText з панелі Additional.
Результат проектування і розміщення компонентів на формі наведено на малюнку 12 додатка 1.
Для підключення запиту використовується Button1, для неї створюємо подія по кліку:
procedure TForm1.Button1Click (Sender: TObject);. Active: = true;; оздаем подія для Dbgrid DBGrid1CellClick: TForm1.DBGrid1CellClick (Column: TColumn);. Caption: = Query1.fieldbyname ('FAMILYA '). AsString;// Показуємо короткий зміст поточної запісі.Caption: = Query1.fieldbyname (&#...
