Функции приложения и главная форма
Наше приложение должно позволять:
- просматривать и редактировать справочники (Аэропорт, Авиакомпания, Город, Роль члена экипажа, Тип Самолета, Тип Салона);
- просматривать и редактировать данные по Авиалиниям и по Расписанию для каждой авиалинии;
- просматривать и редактировать данные по Рейсам и по Члена экипажа для каждого рейса;
- просматривать и редактировать данные по Личностям и по Билетам для каждой личности;
- просматривать и редактировать Тарифы, просматривать проданные Билеты, а также продавать новые Билеты.
Каждая из этих групп функций должна выполняться при помощи вызова своей формы. Для вызова этих форм на главной форме приложения располагаем кнопки (TSpeedButton). Каждая из кнопок при нажатии просто вызывает соответствующую форму, например, так:
procedure TFormMain.SpeedButtonRefClick(Sender: TObject);
Begin
FormRef. ShowModal;
end;
Приведем название каждого из модулуй и форм (для лучшей читаемости текста программы каждый модуль и соответствующую форму нужно назвать осмысленным именем).
- Справочники – TFormRef, FormRef
- Расписание – TFormTimeTable, FormTimeTable
- Рейсы – TFormFlight, FormFlight
- Пассажиры – TFormPass, FormPass
- Тарифы и Билеты – TFormTicket, FormTicket
Для удобного закрытия приложения внизу главной формы располагается кнопка (TBitBtn), у которой свойство Kind установлено в bkClose. При нажатии на эту кнопку главная форма закроется, т.е. приложение завершит свою работу.
Вот как это будет выглядеть.
Рисунок 13 Вид главной формы приложения "Воздушное сообщение"
Работа со справочниками
Первым делом научимся работать с простыми запросами, которые просто отображают и позволяют редактировать содержание одной таблицы. Такая задача стоит при работе со справочниками.
Мы должны обеспечить просмотр и модификацию таблиц, которые являются справочниками, в нашем случае это таблицы: AIRPORT (Аэропорт), AIRCOMPANY (Авиакомпания), CITY (Город), RANK (Роль члена экипажа), PLANE (Тип Самолета), SALON (Тип Салона). Как видно, все эти таблицы устроены очень просто, у всех у них имеется два атрибута код и наименование.
Подготовим форму, на которой будут размещаться наши справочники. Полезно переименовать модуль и форму, чтобы они имели осмысленные наименования. Переименуем форму в FormRef, а модуль сохраним с новым именем UnitRef. Так этот модуль должен работать с компонентами IBDataBase и IBTransaction расположенными в модуле данных включим его имя (UnitData) в секцию uses.
Будем выводить содержимое всех справочников в одну и ту же таблицу (TDBGrid размещена на вкладке Data controls). Для управления отображаемым списком разместим над решеткой навигатор (DBNavigator).
Чтобы переключаться между различными справочниками воспользуемся компонентом TRadioGroup (группа зависимых переключателей). Этот компонент позволяет задавать список радиокнопок при помощи свойства
property Items:TStrings;
Каждый элемент списка является строкой, к которой можно получить доступ по ее номеру в массиве строк Items. Отсчет элементов списка начинается с нуля. Для обращения к первому элементу нужно указать items [0], ко второму — items [1], к третьему — items [2] и так далее.
Редактируя свойство Items, зададим список всех используемых справочников (рис. 14).
Рисунок 14 Список названий справочников в RadioGroup. Items
Получаем форму для работы со справочниками.