зв'язку. У полі Available Indexes виберемо як поточного індексу по полю Material raquo ;. У списку Detail Fields виберемо поле Material, у списку Master Fields виберемо поле Material і натиснемо кнопку Add. У полі Joined Fields буде сформовано вираз Material ® Material ). Натиснемо кнопку Ok.
Рис. 12.6. Вікно установки значення властивості MasterFields
Як можна помітити, в компоненті Таblе2 поточний індекс (властивість FieldIndexNames ) замінений на індекс, побудований по полю Material .
Тепер в наборі даних Table2 показуються тільки записи по приходу матеріалу, поточного в наборі даних Table1 (рис. 12.7).
Рис. 12.7. Зв'язок Master-Detail - в дочірньому наборі даних показуються тільки підлеглі записи
Створення екранної форми для введення даних в базі даних
Для подальшої роботи підготуємо контейнер DataModule5. З палітри компонентів Delphi на сторінці Data Access додамо невізуальний компонента TTаblе, встановимо значення властивостей DatabaseName (псевдонім БД) в PRIMER за допомогою випадаючого списку або ввівши його вручну. У Tаblе3 встановимо значення властивості TableName (ім'я таблиці БД) в PRIHOD.DB. Після цього встановимо значення властивості Active в True. Розташуємо компонента TDataSource, встановимо властивість DataSet (ім'я набору даних) компонента DataSource3 в значення Table3. Додавання невізуальних компонентів для зв'язку з таблицею PRIHOD.DB в контейнер обов'язково, тому аналогічні компоненти в контейнері DataModule взаємно пов'язані і в подальшому може статися циклічне звернення.
Додамо в форму №2 компонент TDBGrid з палітри компонентів Data Controls. Встановимо властивість DataSource компонента TDBGrid в значення DataSource3, попередньо додавши ім'я модуля Unit5 в текст модулів unit форми №2.
Тепер зробимо так, щоб до полів запису в наборі даних Table3 можна було звертатися не тільки з сітки компонента DBGrid1, а з окремих візуальних компонентів, що дозволяють здійснювати доступ до окремих полів запису набору даних.
Додамо в форму №2 два компоненти TDBEdit (палітра компонентів Data Controls). Визначимо поле, до якого можна мати доступ через компонент DBEdit1. Для цього встановимо значення його властивостей - DataSource в DataSource3 і DataField в DatPrih. Визначимо поле, до якого можна мати доступ через компонент DBEdit2. Для цього встановимо значення його властивостей - DataSource в DataSource3 і DataField в Kolvo.
Для доступу до полю Material нам потрібен більш складний компонент, який дозволяв би вводити в поле Material таблиці Prihod.DB значення полів Material з таблиці Materialy.DB, і ніякі інші значення. Для цієї мети розмістимо компонент TDBLookupComboBox з ім'ям за замовчуванням DBLookupComboBox1. Встановимо властивості цього компонента:
DataSource - в значення DataModule5.DataSource3;
DataFiled - в значення Material;
List Source - в значення DataModule5.DataSource1
ListField - в значення Material;
KeyField - в значення Material.
Додавання кнопок управління даними бази даних на екранній формі
Далі на екранній формі можна створити набір кнопок, які дозволять проводити навігацію за таблицями БД і управляти її станом, тобто її записами.
Для цього в додаток додамо п'ять компонентів кнопок TButton (сторінка Standard палітри компонентів). Змінимо імена цих компонентів (властивість Name), використовуючи інспектор об'єктів, відповідно на InsertButton, EditButton, DeleteButton, PostButton, CancelButton. Змінимо заголовки цих кнопок (властивість Caption), використовуючи інспектор об'єктів, відповідно на Додати raquo ;, Змінити raquo ;, laquo ; Видалити raquo ;, Запам'ятати raquo ;, Закрити (рис. 12.8).
Рис. 12.8. Форма з візуальними компонентами для роботи з полями поточного запису набору даних
Виберемо за допомогою миші кнопку InsertButton і два рази клацнемо на ній. Після цього ми перейдемо в редактор коду і визначимо для кнопки InsertButton обробник події натискання кнопки, OnClick ...
