2.2. Ввод данных в таблицу с помощью созданной формы

Для добавления записи нужно нажать на клавиатуре клавишу Insert или, находясь на последней записи набора данных, нажать стрелку вниз. Таблица автоматически перейдет в режим добавления новой записи.

После ввода значений в поля записи запомнить запись в наборе данных можно, перейдя на другую запись при помощи клавиш управления курсором.

Отказаться от запоминания записи можно, нажав кнопку Esc.

Для изменения записи следует переместить указатель текущей записи в нужное место и изменить значения там, где это нужно. Набор данных автоматически перейдет в режим редактирования.

Для удаления записи следует установить на нее указатель текущей записи и нажать Ctrl+Del.

После ввода и редактирования данных вернуться в режим редактирования формы, закрыв окно просмотра формы.

2.3. Создание формы для работы с двумя таблицами

Необходимо в одной форме связать два набора данных (главный и подчиненный) так, чтобы в подчиненном наборе всегда показывались записи, соответствующие текущей записи в главном наборе. Для этого поступают следующим образом.

1. Создать форму для главной таблицы, как это было описано выше (создание формы для работы с одной таблицей).

2. Поместить на форму компоненты ADOTable вкладка (ADO) и DataSource (вкладка Data Access) для работы с подчиненной таблицей.

3. Для компонента ADOTable в свойстве Connection выставить имя_модуля_данных.ADOConnection1, в свойстве TableName выбрать имя второй подчиненной таблицы, в свойстве Active выставить true.

4. Для компонента DataSource в свойстве установить значение ADOTable1, выбрав его из списка.

5. Выбрать вкладку Data Controls. Щелкнуть по кнопке DBGrid и в форме. Данный компонент служит для отображения записей набора данных в табличной форме. Можно изменить размер формы, растащив границы. Для данного компонента в свойстве DataSource устанавливают значение DataSource2 (это имя присвоено по умолчанию), выбрав его из списка.

6. Выделить компонент ADOTable1, в свойстве Active установить значение False. В свойстве MasterSource выбрать единственное имеющееся в нем значение DataSource1. Затем щелкнуть по правой части строки MasterFields в окне Инспектора Объектов и по появившейся в ней кнопке с тремя точками, чтобы раскрыть окно редактора связей.

7. В списке Available Indexes выбрать имя поля, по которому таблицы связаны между собой. В окне Detail Fields появится выбранное имя поля для связи с главной таблицей. Выбрать в окне Master Fields поле для связи в главной таблице, щелкнуть по кнопке Add. Щелкнуть по кнопке ОК (рис. 2.2).

Рис. 2.2. Связывание двух таблиц при создании

составной формы

8. Закрыть окно редактора связей. Для компонента ADOTable1 в свойстве Active установить значение True.

9. Щелкнуть по форме, в окне свойств выбрать вкладку Events, событие OnActivate и создать следующую процедуру

ADOTable1.Active := true;

10. Сохранить произведенные изменения.

11. Запустить приложение. При перемещении указателя в главной таблице происходит смена информации в отображаемых данных подчиненной таблицы. Осуществить ввод данных в подчиненную таблицу, при этом перед вводом данных в подчиненную таблицу щелкнуть по нужной записи в форме главной таблицы.

Пример составной формы в режиме редактирования приведен на рис. 2.3.

Рис. 2.3. Составная форма в режиме редактирования

Пример составной формы в режиме ввода данных представлен на рис. 2.4.

Рис. 2.4. Составная форма в режиме ввода данных