2.4. Редактирование формы

Удаление из формы автоинкрементного столбца. Этот столбец необходим для обеспечения уникальности записей и не несет никакой смысловой нагрузки. Его можно убрать из формы. Для этого поступают следующим образом.

Выделить компонент DBGrid. Вызвать на нем контекстное меню и выбрать пункт Columns Editor. На экране появится окно редактора столбцов. Для отображения в данном окне списка полей щелкают по кнопке Add All Fields. Выделить в окне нужное поле, вызвать контекстное меню и удалить его.

Редактирование и русификация названий столбцов в компоненте DBGrid. Выделить компонент DBGrid. Вызвать на нем контекстное меню и выбрать пункт Columns Editor. На экране появится окно редактора столбцов. Для отображения в данном окне списка полей щелкают по кнопке Add All Fields. Выделить в окне нужное поле. В окне Инспектора Объектов можно изменить следующие свойства.

Раскрыть список Title (щелчок по плюсу).

1. В поле Caption задать имя на русском языке.

2. В поле Color выбрать из списка цвет фона.

3. В поле Alignment выбрать способ выравнивания (например, taCenter – по центру).

Раскрыть список Font (щелчок по плюсу).

1. В поле Size выбрать размер шрифта.

2. В поле Color выбрать цвет символов.

Создание надписи. Перейти во вкладку Standard. Щелкнуть по кнопке Label и в форме, где будет надпись. В окне Инспектора Объектов задают:

в строке Caption русское название надписи;

в строке Aligment способ выравнивания (например, taCenter – по центру);

в строке Color цвет фона;

в раскрывающемся списке Font и в поле Color выбирают цвет символов, в поле Size вводят размер;

в списке Style для нужного начертания устанавливают значение True;

в строке Transparent устанавливают True для прозрачного фона надписи.

Создание панели кнопок навигации. Перейти во вкладку DataControls, щелкнуть по кнопке DBNavigator и в форме там, где будет панель с кнопками (например, под формой для каждой таблицы). Выделить компонент и в окне Инспектора Объектов в поле DataSourse выбрать значение DataSource1 (рис. 2.5).

1	2	3	4	5	6	7	8	9	10

Рис. 2.5. Кнопки панели навигации

Первая кнопка (First) устанавливает курсор на первую запись.

Вторая кнопка (Prior) устанавливает курсор на предыдущую запись.

Третья кнопка (Next) устанавливает курсор на следующую запись.

Четвертая кнопка (Last) устанавливает курсор на последнюю запись.

Пятая кнопка (Insert) переводит набор данных в режим вставки новой записи.

Шестая кнопка (Delete) удаляет текущую запись.

Седьмая кнопка (Edit) переводит набор данных в режим редактирования.

Восьмая кнопка (Post) запоминает изменения, сделанные в текущей записи.

Девятая кнопка (Cancel) отменяет изменения, сделанные в текущей записи.

Десятая кнопка (Refresh) обновляет набор данных.

Создание кнопки выхода из формы. Перейти во вкладку Standard. Щелкнуть по кнопке Button и в форме, где будет кнопка выхода. В окне Инспектора объектов в поле Caption набрать слово Выход. Перейти во вкладку Events. Дважды щелкнуть по строке onClick, при этом происходит переход в процедуру обработки событий, где необходимо набрать оператор:

Form1.Close;

Номер или имя формы могут быть другими.

Проверить работу формы (F9). Осуществить возврат в редактор (Ctrl+F2).

Создание в форме поля с фиксированным списком. Создание поля с фиксированным списком осуществляется следующим образом:

на компоненте DBGrid вызвать контекстное меню и выбрать пункт Columns Editor…;

выделить в окне имя поля; для данного поля в окне свойств в списке PickList щелкнуть по кнопке …;

в окне String List Editor набрать список, например,

ФАЭМ

РТФ

ЕГФ

после набора списка щелкнуть по кнопке ОК.

Создание в форме поля с раскрывающимся списком, который выбирается из другой таблицы.

Создание поля со списком осуществляется следующим образом:

щелкнуть по форме, в окне свойств выбрать вкладку Events, событие OnActivate;

для выбранного события создать процедуру (обозначения: ADOTable1 – таблица, содержащая поле, из которого формируется список, предполагается, что таблица находится на модуле данных; DBGrid1.Columns.Items[0] – столбец с номером 0, для которого создают список; PickList – список значений)

имя_модуля_данных.ADOTable1.First; (*установка указателя на первую запись таблицы*)

while not имя_модуля_данных.ADOTable1.Eof do (*цикл – пока не конец таблицы*)

begin

(*формирование списка значений из поля Nomer_bil*)

DBGrid1.Columns.Items[0].PickList.add

(имя_модуля_данных.ADOTable1.fieldByName('Nomer_bil').Value);

имя_модуля_данных.ADOTable1.Next; (* переход на следующую строку таблицы *)

end; (* конец цикла *)

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

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

Рис. 2.6. Форма для работы с одной таблицей

Рис. 2.7. Окно составной формы