цієї форми змінимо на fsMDIChild. На подію OnClose цієї форми напишемо код: Action:=caFree. Цей код потрібен для того, щоб при закритті форми форма не «згорталася», а закривалася.
Додамо на форму компоненти DBGrid, DBMemo і DBNavigator зі вкладки DataContols. Властивість DataSource цих компонентів змінимо на DM.DSOperator. Тим самим ми підключили компоненти до набору даних Operator, яка підключена в свою чергу до таблиці Туроператори. Компонент DBMemo потрібен для відображення поля «Інформація про туроператора» таблиці «Туроператори». Щоб визначити це поле для компонента DBMemo, змінимо властивість DataField цього компонента на «Інформація про туропер?? оре ».
На головній формі програми в головному меню виберемо пункт Списки даних - gt; Туроператори. На подію OnClick напишемо код для відкриття форми: Form3:=TForm3.Create (Application). Щоб форма не відкривалася разом з головною формою при запуску програми, виберемо в Delphi в основному меню наступні пункти: Project - gt; Options. З'явиться вікно для зміни властивостей програми. На вкладці Forms в поле Auto-create forms виберемо рядок Form3 і за допомогою кнопки « gt;» перемістимо її в полі Available forms. Після цього форма для перегляду списку туроператорів буде створюватися тільки після вибору пункту меню Списки даних - gt; Туроператори на основній формі додатку.
Зовнішній вигляд форми для перегляду списку туроператорів показаний на малюнку 8.
Малюнок 8. Форма для перегляду списку туроператорів
За аналогією створюються форми для перегляду і редагування списків «Країни», «Тури і путівки», «Замовлення».
2.2.5 Створення форм для редагування турів і путівок
Створимо нову форму для редагування турів. На форму додамо компонент DBGrid, на якій будемо відображати список турів, причому будемо виводити тільки поля «Код туру» і «Назва туру». Для цього, двічі клацнувши по компоненту DBGrid, з'явиться вікно для редагування полів сітки DBGrid. Вибравши всі поля, крім зазначених вище, змінимо у них властивість Visible з True на False. За аналогією з формами з п.2.2.4 цієї роботи, додамо компоненти DBMemo для виведення значення поля «Інформація про турі» і DBNavigator для навігації по таблиці «Тури».
Так як в таблиці «Тури» відображені тільки відомості про код країни і коді туроператора, що незручно для користувача, то додамо два компоненти DBLookupComboBox (вкладка DataControls). Цей компонент виводить дані у вигляді списку. Розглянемо список з таблиці «Країни». Змінимо властивості одного компонента DBLookupComboBox:
DataSource: DM.DSTur
DataField: код_країни
Цим ми показуємо, що компонент посилається на таблицю «Тури» поле «Код країни».
Далі, в цьому ж компоненті налаштовуємо список для відображення:
ListSource: DM.DSContry: Назва країни: Код країни
Цими властивостями ми вказуємо, що в списку буде відображатися поле «Назва країни» з таблиці «Країни», причому, відповідно до полем «Код країни» в таблиці «Тури».
За аналогією встановлюємо другий компонент DBLookupComboBox для відображення списку туроператорів.
Для введення і редагування поля «Назва туру» додамо на форму компонент DBEdit. Властивість DataSource змінимо на DM.DSTur, а DataField на «Назва туру». Таким чином, цей компонент буде відображати поле «Назва туру» поточного запису таблиці «Тури»
Зовнішній вигляд форми «Редагування турів» представлено на малюнку 9.
Малюнок 9. Форма «Редагування турів»
За аналогією створимо форму для редагування даних про путівки.
2.2.6 Створення форми для оформлення замовлень
Створимо форму для оформлення замовлень (продажу) путівок. На формі розмістимо два компоненти DBGrid, які відображатимуть таблиці «Тури» і «Путівки». Для введення прізвища замовника (покупця) додамо зі вкладки Standard компонент Edit, а для визначення статусу оплати - CheckBox.
Зовнішній вигляд форми показаний на малюнку 10.
Малюнок 10. Форма оформлення замовлень.
Для введення даних в таблицю «Замовлення», додамо кнопку BitBtn. Властивість Caption визначимо як «Оформити». На подію OnClick (натискання) напишемо код:
{якщо компонент Edit1 порожній, тобто не введена прізвище замовника, то виводимо навідне повідомлення}
if Edit1.Text= ShowMessage ( введіть прізвище замовника )
{якщо прізвище замовника введена, то}
...