2. Клієнти
Ім'я поляТіп даннихФІО КлиентаТекстовыйСтатусТекстовыйПолТекстовыйНациональностьТекстовыйКоличество человекЦіфровой Мета пріездаТекстовий
Таблиця 3.3. Номери кімнат
Ім'я поляТіп даннихНомер комнатиТекстовийКласс комнатиТекстовийСтоімость проживання в суткіДенежнийКолічество комнатЧісловой
Таблиця 3.4. Дата прибуття
Ім'я поляТіп данихДата заселеніяДата/ВремяФІО КліентаТекстовий
База даних готова, після цього приступили до основного етапу курсової роботи - реалізації програми для взаємодії з створеною базою даних.
Для початку створено чотири форми. На першій формі зображено головне меню і таблиця Реєстраційна карта raquo ;, представлені на малюнку 3.1, в якому розташовується меню для відкриття інших форм.
При натисканні кожній кнопці в головному меню прописана процедура для відкриття відповідної форми. Загальний код процедури для цих кнопок наведений нижче:
procedure TForm1.ButtonNClick (Sender: TObject) ;. show;// форма яку треба открить.hide;// форма яку треба закрити;
Загальний код для процедури повернення на головну форму:
procedure TFormN.ButtonNClick (Sender: TObject);
begin.show;// Головна форма.hide;// форма яку треба закрити;
Рисунок 2.5. Головна форма
Для портативності програми база даних перенесена в папку з проектом. На головній формі завантажений компонент ADOConnection, в якому встановлено зв'язок з створеною базою даних. Так як системою користуватимуться тільки співробітники готелю, захист від пароля можна прибрати. Для цього потрібно включити опцію Порожній пароль і у властивості LoginPrompt компонента ADOConnection прописати параметр False, щоб не відкривалося вікно для введення логіна і пароля. Налаштування доступу до бази даних показано на малюнку 2.6.
Малюнок 2.6. Налаштування доступу до бази даних
На інших формах додані наступні компоненти, охарактеризовані в таблиці 3.5:
інформаційний готельний база delphi
Таблиця 3.5. Властивості компонентів
КомпонентСвойствоЗначеніеTable1DataBaseNameAlias ??курсової работиTableName Ім'я таблиці, відповідне формі ActiveTrueDataSource1DataSetTable1DBGrid1DataSourceDataSource1DBNavigator1DataSourceDataSource1
Приклади інтерфейсів форм представлені на малюнках 2.7-2.8
Малюнок 2.7. Форма Клієнти
Малюнок 2.8. Форма Номери кімнат
Основні вимоги до інтерфейсу програмного продукту виконані. Кожна форма тепер відображає відповідну таблицю з бази даних, і з'явилася можливість додавання і редагування записів. Але, крім цього, корисно додати в інформаційну систему які-небудь додаткові функції для ще спрощеного користування базою даних. Серед таких функцій були обрані фільтрація та сортування.
Код сортування по ПІБ співробітника, дату заселення й номеру кімнат:
procedure TForm1.Button1Click (Sender: TObject); RadioGroup1.ItemIndex of
: ADOTable1.IndexFieldNames:= ФІО_Кліента raquo ;;
: ADOTable1.IndexFieldNames:= Дата_заселенія raquo ;;
: ADOTable1.IndexFieldNames:= Номер_комнати raquo ;;
end ;;
Код скасування застосування сортування:
procedure TForm1.Button2Click (Sender: TObject) ;. ItemIndex:=- 1; .IndexFieldNames:= ID_Klienty raquo ;;
end;
Результати роботи сортувань наведені на малюнках 2.9-2.12.
Малюнок .2.9 Форма перед сортуванням
Малюнок 2.10 Форма після застосування сортування по ПІБ клієнта
Малюнок 2.11 Форма після застосування сортування за датою заселення
Малюнок 2.12 Форма після застосування сортування за номером кімнат
Код фільтрації:
TForm2.Button1Click (Sender: TObject) ;. Filtered:=true; RadioGroup1.ItemIndex of
: ADOTable1.Filter:= ФІО_кліента= + # 39 + edit1.Text + # 39;
: ADOTable1.Filter:= Статус= + # 39 + edit1.Text + # 39;
: ADOTable1.Filter:= Національність= + # 39 + edit1.Text + # 39;
: ADOTable1.Filter:= Пол= + # 39 + edit1.Text + # 39;
: ADOTa...
