2.4. Редактирование формы
Удаление из формы автоинкрементного столбца. Этот столбец необходим для обеспечения уникальности записей и не несет никакой смысловой нагрузки. Его можно убрать из формы. Для этого поступают следующим образом.
1. Открыть окно редактора полей. Для этого дважды щелкнуть по компоненту Table2 в окне формы (или щелкнуть по нему правой кнопкой мыши, выбрать Fields Editor). На экране появится пустое окно редактора полей.
2. Щелкнуть по окну редактора полей правой кнопкой мыши и выбрать пункт меню Add Fields. Будет показан список всех полей таблицы. Выделить (при помощи мыши и клавиши Shift) все поля, кроме автоинкрементного и нажать кнопку ОК. Теперь список редактора полей будет включать все отмеченные поля.
Редактирование и русификация названий столбцов в компоненте 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.2).
|
|
|||||||||
|
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
Рис. 2.2. Кнопки панели навигации
Первая кнопка (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 набрать список, например,
ФАЭМ
РТФ
ЕГФ
после набора списка щелкнуть по кнопке ОК.
Создание в форме поля с раскрывающимся списком, который выбирается из другой таблицы.
Создание поля со списком осуществляется следующим образом:
добавить на форму компоненты таблицы, из которой будет выбираться список (вкладка BDE, кнопка Table, установить для свойства DatabaseName псевдоним БД, для свойства TableName - имя таблицы, для свойства Active устанавливают значение True; выбрать вкладку Data Access, кнопку DataSource, в свойстве DataSet установить имя выбранного компонента Table, например, Table2);
щелкнуть по форме, в окне свойств выбрать вкладку Events, событие OnActivate;
для выбранного события создать процедуру (обозначения: Table2 – таблица, содержащая список; DBGrid1.Columns.Items[0] – столбец с номером 0, для которого создают список; PickList – список значений)
Table2.First; (*установка указателя на первую запись*)
while not Table2.Eof do (*цикл – пока не конец таблицы*)
begin
(*формирование списка значений из поля Nomer_bil*)
DBGrid1.Columns.Items[0].PickList.add
(Table2.fieldByName('Nomer_bil').Value);
Table2.Next; (* переход на следующую строку таблицы *)
end; (* конец цикла *)
Пример формы для работы с одной таблицей представлен на рис. 2.3.
Пример составной формы представлен на рис. 2.4.
Рис. 2.3. Форма для работы с одной таблицей
Рис. 2.4. Окно составной формы