даних» вкажемо шлях до нашої бази даних з ім'ям і розширенням. Якщо створюване додаток і сама база даних знаходяться в одному каталозі на жорсткому диску комп'ютера, то досить вказати тільки ім'я файлу бази даних і розширення. Далі натиснемо кнопку «Перевірити підключення» і якщо підключення вдалося, то натискаємо кнопку Ok.
У компонента ADOConnection1 змінимо властивість LoginPromt на значення false (виключимо запит пароля при зверненні до бази даних).
Наша база даних складається з п'яти таблиць. Кожну таблицю потрібно підключити до компоненту ADOTable. Покажемо підключення на прикладі таблиці Тури.
Виділимо компонент ADOTable1. Змінимо його властивості:
§ Name на Tur,
§ Connection: ADOConnection,
§ TableName: Тури,
§ Active: true.
Аналогічно підключаємо решту чотири таблиці, міняючи властивість Name компонентів ADOTable на:
Туроператори - Operator,
Путівки - Putevka,
Замовлення - Zakaz,
Країни -Contry.
Для подальшого підключення цих таблиць до компонентів для візуалізації даних, додамо на DataModule ще п'ять компонентів DataSource зі вкладки DataAccess.
Властивості DataSet і Name кожного з них змінимо. На прикладі таблиці Тури, яку підключили до компоненту Tur:
DataSet: Tur,
Name: DSTur.
На малюнку 6 представлений компонент DataModule.
Малюнок 6. Компонент DataModule.
У таблицях «Країни», «Путівки», «Замовлення» існують поля, що мають логічний тип. Наприклад, у таблиці «Країни» логічний тип має поле «Віза». Це поле зберігає одне з двох значень: true або False. Для користувача ці слова можуть бути не зовсім зрозумілі. Зрозуміліше було б, якщо виводилися значення для поля «Віза», приміром, «потрібна» або «не потрібна». Щоб виправити цю незручність, необхідно викликати редактор полів, двічі клацнувши на компонент Contry. У контекстному меню вибрати пункт «Add all fields». З'явиться список полів. Виділивши поле «Віза», у вікні інспектора об'єктів (Object Inspector), на вкладці Events знайти рядок OnGetText. Двічі клацнувши по ній сформується процедура. У ній необхідно написати наступний код:
if Contry.Fields [2] .AsBoolean//якщо значення поля True Text:= необхідна // то виводимо запис «необхідна» Text:= не потрібна raquo ;;// в іншому випадку - «не потрібна»
У результаті замість слів true або false будуть відображатися «необхідна» або «не потрібна».
Аналогічно можна задати значення полів «Харчування» і «Проживання» для таблиці «Путівки» і для поля «Оплата» таблиці «Замовлення».
2.2.3 Головна форма програми
Додаток буде складатися з головної форми, а всі інші форми, необхідні для перегляду і редагування даних будуть MDI вікнами, тобто при відкритті будуть знаходитися всередині головної форми.
Та форма, яка створилася по умовчання у момент створення проекту, і буде головною. Змінимо властивість FormStyle цієї форми на fsMDIForm.
Додамо на цю форму компонент MainMenu зі вкладки Standard. Цей компонент буде головним меню форми. Напишемо пункти і підпункти головного меню:
§ Меню
· Вихід
§ Списки даних
· Туроператори
· Країни
§ Тури і путівки
· Тури і путівки
· Редагувати тури
· Редагувати путівки
§ Замовлення
· Перегляд
· Оформити
Зовнішній вигляд головної форми представлена ??на малюнку 7.
Малюнок 7. Форма главою форми програми
Для переходу на іншу форму з головного меню, на подію OnClick (на натискання) необхідного пункту меню, виконується код:
N:=TFormN.Create (Application);
де FormN - необхідна форма для відображення. Цей код створює екземпляр форми. Тобто скільки разів ми натиснемо на пункт меню для цієї форми, стільки ж разів вона і відобразитися.
2.2.4 Створення форм для перегляду і редагування списків даних
Створимо форму для перегляду і редагування списку Туроператори.
Додамо нову форму в проект (File - gt; New - gt; Form). Властивість FormStyle ...
