4. Построение интерфейса приложения базы данных

Создание модуля (Рисунок 1.1).

Создадим модуль данных, чтобы некоторые компоненты не загромождали основное окно.

Для этого сделаем следующее: File – New – Others, чтобы открыть окно хранилища объектов, и на вкладку New открывшегося окна дважды щелкните на значке DataModule. Сохраняем модуль. Далее прикрепим его к форме (Shift + F11) и выбираем только что созданный файл. Теперь поместим в модуль 3 объекта TTable с закладки BDE, также 4 объекта TDataSource с закладки Data Access и объект TQuery.

Объект TTable	DataBase Name	TableName	Active	Master Sourse	IndexField Name
Table1	BASA	AvtoPark1.db	True	DataSource1
Table2	BASA	Perevozki.db	True	DataSource2
Table3	BASA	Zarabotki.db	True	DataSource3

Объект TDataSource	DataSet
DataSource1	Table1
DataSource2	Table2
DataSource3	Table3
DataSource4	Query1

Создание первой формы (Рисунок 1.2).

File – Use Unit свяжем нашу форму с модулем данных.

Поместим на форму компонент TDBGrid с закладки DataControls и компонент TDBNavigator с той же закладки.

Теперь выделим DBGrid1 и в свойстве DataSourse, выберем DataModule2.DataSourse1. Затем установим свойства для компонентов TDBNavigator:

Объект TDBNavigator	DataSourse	VisibleButton (True)
DBNavigator1		nbFirst nbPrior nbNext nbLast nbInsert nbDelete nbEdit nbPost nbCancel nbRefresh

Создадим главное меню, этой формы. Для этого поместим на форму компонент TMainMenu c закладки Standart. Затем щелкнем 2 раза по этому значку и создадим следующее:

Сортировка Автопарк

Экспорт в Excel

Перевозки

Заработки Заработки

Автопарк

Печать таблицы

О программе

Выход

Создадим контекстное меню, этой формы. Для этого поместим на форму компонент TPopupMenu c закладки Standart. Затем щелкнем 2 раза по этому значку и создадим следующее:

Поиск

Сортировка

Добавим на форму объекты Timer1, Timer2, Label1, Gauge1(visible:false), Button1.

Создание второй формы (Рисунок 1.3).

Создадим другую форму (File-New-Form). Сохраним. Также свяжем нашу форму (File – Use Unit) и прикрепим её (Shift + F11).

Теперь займемся интерфейсом второй формы. Поместим на форму 2 компонента TLabel, TButton с закладки Standart; компонент TDBGrid и TDBNavigator; 9 компонентов TRadioButton.

Объект TDBNavigator	DataSourse	VisibleButton (True)
DBNavigator1		nbFirst nbPrior nbNext nbLast

Объект TRadioButton	Visible
TRadioButton1	True
TRadioButton2	False
TRadioButton3	True
TRadioButton4	False
TRadioButton5	False
TRadioButton6	False
TRadioButton7	False
TRadioButton8	False
TRadioButton9	False

Создадим главное меню, этой формы.

Справка

О программе

Создание третьей формы (Рисунок 1.4).

Создадим другую форму (File-New-Form). Сохраним. Свяжем нашу форму (File – Use Unit) и прикрепим её (Shift + F11). Поместим на форму Поместим на форму 2 компонента TButton, TLabel с закладки Standart; компонент TDBGrid; 2 компонента TRadioButton; а также ТPrinterSetupDialog и ТPrintDialog из вкладки Dialogs.

Создание четвертой формы (Рисунок 1.5).

Создадим следующую форму (File-New-Form). Сохраним. Свяжем нашу форму (File – Use Unit) и прикрепим её (Shift + F11). Поместим по одному компоненту TLabel, TЕdit; по 2 компонента TButton и TImage.

Создание пятой формы (Рисунок 1.6).

Создадим другую форму (File-New-Form). Сохраним. Свяжем нашу форму (File – Use Unit) и прикрепим её (Shift + F11). Поместим на форму компонент TDBGrid с закладки DataControls, 3 компонента TRadioButton, 2 компонента TButton, а также ТPrinterSetupDialog и ТPrintDialog из вкладки Dialogs.

Сделаем эту форму главной: Проект – Опции – Главная форма.

Создание окна формы «О программе» и «Справка» (Рисунок 1.7 – 1.8).

Прибавляем к проекту новое окно формы типа About box (File => New... => Закладка Forms => About box => Ok).

Поменяем тексты, заголовок формы и изображение.