ються всі поля таблиці (малюнок № 23).
Малюнок № 23. Вікно ADOTable
? Далі щоб в нашій таблиці з'явилися нові поля, клацаємо правою кнопкою миші по вікну ADOTable, вибираємо пункт New Field. У вікні прописуємо Name (ім'я, яке потрібно додати в таблицю «ФОНД»), вибираємо Type, Field type: Lookup (пошук), в Key Fields (ключ області) вибираємо код поставки, в Dataset (встановлені дані) вибираємо Form4.ADOTable1 (таблиця номера з якої нам треба буде взяти номер кімнати), в Lookup Keys (пошук ключів) вибираємо ключове поле таблиці «ФОНД» і в Result Field (результат області) вибираємо поле код_кнігі.
? Аналогічно виконаємо для додавання нових записів «код книги» і «назва» (малюнок № 24 і малюнок № 25).
Малюнок № 24. Вікно для створення нового поля «код книги»
Малюнок № 25. Вікно для створення нового поля «назва»
Зберігаємося. У результаті форма повинна виглядати так:
Малюнок № 26. Форма «Читальний зал» з усіма компонентами
-ой крок. Створення довільних запитів до БД.
Додаємо елемент PageControl зі вкладки Win32 і створимо на ньому шість вкладок з іменами завдань. Додаємо компонент Edit 1 і кнопку Button. У Edit 1 пишемо: Select * from (назва таблиці) БІБЛІОТЕКА where 1=1.
Малюнок № 27. Компонент Edit і кнопка Button
Далі подвійним клацанням натискаємо на кнопку Button і прописуємо там:
procedure TForm1.Button2Click (Sender: TObject);. Active:=False;. SQl.Text:=Edit1.Text;. Active:=True;;
Малюнок № 28. Код програми
Запускаємо програму. Припустимо нам потрібні всі дані по двадцять друге коду операції. Для цього в компоненті Edit вписуємо Select * from БІБЛІОТЕКА where код_операціі=22. Після цього натискаємо кнопку «Виконати запит». У результаті перед нами з'явиться таблиця з даними по двадцять друге коду операції.
Малюнок № 29. Результат запиту по9-ому коду туриста
-ий шаг.Созданія звіту: на формі розміщуємо компоненти RvProject і RvDtataSetConnection зі вкладки Rave. У властивостях компонента RvDtataSetConnection вказуємо в DataSet - ADOQuery1. При запуску компонента RvProject, в діалоговому вікні в меню виберемо команду File / New Data Object. У діалоговому вікні DataConection виберемо рядок Direct Data View (малюнок № 30).
Малюнок № 30. Діалогове вікно Data Connections
Потім виконаємо команду Tools / Report Wizards / Simple table. У вікні виберемо імена полів необхідних для звіту (рис. 31).
Малюнок № 31. Діалогове вікно Simple Table
Малюнок № 32. Звіт в Rave Visual Disainer
Потім даний файл збережений під ім'ям Project1. Створюємо кнопку Button, подвійним клацанням натискаємо на неї і прописуємо:
procedure TForm1.Button5Click (Sender: TObject);. RvProject1.Execute;;
В RvProject за допомогою властивості ProjectFile - вказуємо місце, де зберігається звіт.
Ма...
