Між заголовком процедури і операторної дужки begin потрібно помістити опис локальних змінних: var i, RC: integer; .
Клацання на вільному місці форми і вибір події OnActivate для неї дасть можливість створити обробник події, пов'язаного з активізацією форми. Він повинен бути таким:
if DataModule2.Table1.Active = False then
Форма, яку ми сконструювали, повинна з'являтися при виборі пункту меню "Введення даних | Список" головною форми нашого застосування.
Перевірте працездатність розробленої частини програми із залученням програми DatabaseDesktop.
Конструюємо нову форму. Напис на формі - "Атестація". Помістимо на форму два компоненти DBGrid і одну кнопку. Властивість DataSourse компонента DBGrid1 - DataModule2.DataSourse3. а компонента DBGrid2 - DataModule2.DataSourse2. Встановимо розміри компонентів і інші властивості відповідно до малюнком 6.6.
У головному меню виберемо пункт File | UseUnit .... у вікні ім'я Unit2. натиснемо Ok. Цим самим ми підключили модуль Unit2 для його використання в якості інтерфейсного елемента. Структура взаємозв'язку компонентів може бути представлена у відповідності з малюнком 6.7.
Малюнок 6.6 - Вид четвертої форми
Обробників подій буде два: Один з них буде запускатися при активізації форми, а інший - при натисканні кнопки "Вихід". Перший з обробників має вигляд:
with DataModule2.Query1 do
SQL.Add ( 'SELECT ФІОFROM спісок.DB');