Автоматизована система "Готель"

Размещено на http://www.allbest.ru/

Міністерство освіти і науки України

Тернопільський національний технічний університет

імені Івана Пулюя

Кафедра комп'ютерних наук

Курсовий проект з дисципліни

“Основи бази даних і занань”

спеціальності 5.05010301

“Автоматизована система «Готель»”

Виконав студент групи СНзс - Яцкевич Ю.М.

№ зал. _н.. 12.126

Керівник роботи асистент Боднарчук І.О.



Зміст

Вступ

1. Аналіз предметної області і постановка задачі на розробку програми

2. Опис структур та методів оброки даних

2.1 Обґрунтування вибору методів та засобів обробки даних

2.2 Опис структур даних

3. Опис алгоритму функціонування програмного засобу

4. Основна частина програми

5. Основна частина

Висновок

Список використаних джерел

Додаток

Вступ

Автоматичний облік є одною із основних напрямків у розробці сучасного програмного забезпечення, яке спрямоване на вирішення конкретно поставленої системи задач .

Прикладом реалізації саме такої системи є запропонований програмний засіб “Готель”, призначений для автоматизації ведення записів даних людей, які відвідують готель, розроблений у відповідності до завдання на курсове проектування із дисципліни “Технологія розробки програмного забезпечення”. програмний довідковий обробка алгоритм

Основною метою даного курсового проекту є розробка розгорнутого технічного завдання на основі вивчення та аналізу заданої предметної області, розробка структур та вибір методів обробки даних, алгоритмів функціонування програмних модулів, забезпечення якісних показників роботи програми: створення зручного графічного інтерфейсу користувача, розробка інтегрованої довідкової системи та супроводжувальної документації, засобів для розгортання програмної системи в інформаційному середовищі користувачів.

Для реалізації поставленого завдання обрано сучасні інструментальні середовища і засоби програмування Borland Delphi 7.0, та відповідні засоби підтримки процесу розробки програм.

Не зважаючи на те, що проект носить навчальний характер, він має певне практичне значення і може бути застосований для автоматизації вказаної прикладної задачі на підприємствах із різною формою діяльності.

1. Аналіз предметної області і постановка задачі на розробку програми

У відповідності до технічного завдання програма “АС Готель” повинна забезпечувати облік даних про клієнтів та номерів готелю і можливість отримання інформації, вибраної за певними властивостями, а також формування звітів у вигляді стандартизованих паперових документів.

На основі проведеного аналізу предметної області встановлено, що облік клієнтів та кімнат ведеться у вигляді декількох основних паперових форм:

журнал реєстрації клієнтів (їх приїзд, від'їзд);

інформація про клієнтів (П.І, П, паспортні дані, борг,);

загальний список клієнтів.

Якщо приїжджає новий клієнт то у журнал реєстрації вноситься відповідний запис з вказівкою дати реєстрації та можливого від'їзду, № конати про поселення клієнта у відповідний номер готелю, прізвища та ініціалів клієнта, документ що засвідчує особу, номер паспорту , додаткові відомості.

При звільненні номеру готелю клієнтом в журналі реєстрації, вказується дата і номер кімнати , прізвище та ініціали працівника, додаткові відомості.

Для спрощення процедур обліку і пошуку потрібної інформації, допускається для кожного типу реєстраційних даних вести окремий журнал.

Для кожного клієнта заповнюється картка обліку, що представляє собою паперовий документ, у якому вказується:

прізвище, ім'я, по батькові;

дата приїзду;

номер кімнати ;

дата від'їзду;

документ що засвідчує особу;

номер паспорту чи посвідчення;

При зміні у вказаних даних, клієнт повинен повідомити про це власника, або відповідальну особу і зміни вносяться в особисту картку клієнта.

При від'їзді клієнта з готелю картка залишається на обліку деякий час по бажанню власника.

На основі журналу (журналів) реєстрації операцій і карток особистих даних клієнтів формується загальний список клієнтів, який періодично оновлюється.

Загальний список працівників включає наступне:

прізвище та ініціали працівника;

дата приїзду;

номер кімнати;

дата від'їзду;

нараховані за послуги та борги ;

документ що засвідчує особу;

номер паспорту чи посвідчення;

Іншими паперовими документами, які повинні формуватися періодично або за вимогою є наступні:

Список клієнтів, які в даний час проживають в готелі;

Розрахунковий чек клієнта;

Список боржників;

Список вільних номерів;

Зведені дані за місяць.

Всі перераховані паперові документи завіряються підписами власником, або відповідальних осіб.

У відповідності до аналізу предметної області можна зробити висновок, що задача, яка підлягає автоматизації відноситься то складу типових аналітично - облікових задач і може бути вирішена з використанням програмних та інструментальних засобів, передбачених технічним завданням, а саме з використанням елементів файл - серверних баз даних.

2. Опис структур та методів обробки даних

2.1 Обґрунтування вибору методів та засобів обробки даних

Оскільки, у відповідності до технічного завдання і аналізу предметної області, розробка автоматизованої системи обліку клієнтів та номерів готелю проводиться на основі принципів та елементів систем управління базами даних, то логічним є - збереження даних здійснювати у вигляді файлів таблиць бази даних певного типу, вибір і обробку інформації виконувати на основі запитів, для введення і відображення даних використовувати діалогові екранні форми, а вихідні паперові документи формувати у вигляді звітів.

Однією із сучасних універсальних інструментальних систем програмування є Borland Delphi, яка має розвинені засоби для програмування та обробки баз даних, і в той же час підтримує майже всі відомі формати даних, що при необхідності дозволить перевести створені файли даних на іншу програмну платформу.

Одним із самих розповсюджених форматів даних є формат таблиць баз даних Paradox, крім того обрана система програмування спеціалізована саме під цей формат і надає більше засобів для на лаштування таблиць баз даних при їх створенні. Тому саме формат таблиць баз даних Paradox використовується в даній системі. Створення файлів таблиць бази даних та визначення їх структури здійснюється за допомогою утиліти Database Desktop, яка входить до складу програмного комплекту Delphi.

Для обробки даних на рівні запитів використовується мова SQL, яка є стандартною мовою для побудови структурованих запитів у базах даних.

Для створення звітів використовується генератор звітів QuickReport фірми QuSoft, компоненти якого представлені окремим додатком програмного середовища Delphi.

Для забезпечення прискорення виконання операцій пошуку і вибірки даних, а також незалежності від шляху розташування фалів бази даних на дисках комп'ютерів користувачів, базі даних ставиться у співвідношення псевдонім (загальне ім'я бази даних), який створюється і обробляється за допомогою спеціалізованої утиліти BDE Administrator.

2.2 Опис структур даних

Як було зазначено вище основними структурними елементами даних є файли таблиць бази даних у форматі Paradox. Нижче наведено перелік цих файлів із вказівкою назви файлу, структури полів та пояснень, що до призначення файлу. Для збереження файлів таблиць використовують каталог yurka.db - файл, у якому зберігається загальна інформація про клієнтів готелю.



3. Опис алгоритму функціонування програмного забезпечення

Інформаційна модель системи

Інформаційна модель відображує загальний склад інформаційних об'єктів автоматизованої системи, яка проектується та зв'язки між ними. Структура інформаційної моделі системи наведена на рис. 3.1.

Рис. 3.1. Інформаційна модель системи

4. Основна частина програми

Модульна структура програмного засобу

Програма складається з набору програмних модулів, кожний з яких виконує одну чи декілька функцій. Модульна структура програми зображена на малюнку. У таблиці наведено призначення програмних модулів.

Таблиця 1 - Призначення програмних модулів

№ з/п	Позначення	Призначення
1	Unit1	Модуль бази даних клієнтів.Містить 3 форми :форма для загального обліку даних клієнтів, пошуку клієнтів;форма для введення даних клієнтів;форма для бронювання номерів клієнтами.
2	Unit2	Модуль бази даних. Містить форму для підключення (роботи) з базами даних.
3	Unit3	Модуль «про програму». Містить інформацію по розробника програми.



5. Основна частина

Опис програмних модулів

Модуль “Unit1”

Модуль Unit1 є головним модулем програми через який здійснюється зв'язок з іншими програмними модулями, виконується введення клієнтів у базу даних готелю їх облік та пошук. Перехід на інші програмні модулі виконується з використанням системи меню. Екранна форма модуля в режимі виконання програми, з розкритим елементом меню зображена на малюнку Рис.4.1

Рис.4.1 Екранна форма пункту головного меню «БД клієнтів» в режимі виконання програми



Рис.4.2 Екранна форма пункту головного меню «БД клієнтів» в режимі конструювання

Програмна специфікація меню «БД клієнтів» наведена у таблиці

Таблиця 2 - Програмна специфікація БД клієнтів

Компонент програми	Позначення	Зміст
Стандартні модулі	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg, ComCtrls, unit2, Buttons, RpCon, RpConDS, RpDefine, RpRave;	Стандартні модулі, з якими встановлюється зв'язок
Візуальні компонети	MainMenu1: TMainMenu;	Програмне меню, яке забезпечує перехід на інші програмні форми
	DBGrid1: TDBGrid;	Блок який містить інформацію про клієнтів готелю
	DBNavigator1: TDBNavigator;	Блок кнопок які дають змогу редагувати дані у блоці DBGrid1: TDBGrid;
	GroupBox1: TGroupBox;	Блок призначений для пошуку у бд клієнтів
	BitBtn1: TBitBtn;	Кнопка призначена для пошуку за прізвищем
	BitBtn2: TBitBtn;	Кнопка призначена для пошуку за № паспорта
	Edit1: TEdit;	Поле введення тексту для пошуку за прізвищем
	Edit2: TEdit;	Поле введення тексту для пошуку за № паспорта

Пункт головного меню «Введення даних» призначений для введення інформації про клієнтів.

Рис. 4.3 екранна форма пункту головного меню «Введення даних» в режимі виконання програми

Рис. 4.4 екранна форма пункту головного меню «Введення даних» в режимі конструювання

Програмна специфікація Введення даних наведена у таблиці

Таблиця 6 - Програмна специфікація Ввнднння даних

Компонент програми	Позначення	Зміст
Стандартні модулі	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg, ComCtrls, unit2, Buttons, RpCon, RpConDS, RpDefine, RpRave;	Стандартні модулі, з якими встановлюється зв'язок
Візуальні компонети	Label3: TLabel;	Містить назву поля Edit3: TEdit;
	Label4: TLabel;	Містить назву поля Edit4: TEdit;
	Label5: TLabel;	Містить назву поля Edit5: TEdit;
	Label6: TLabel;	Містить назву поля Edit6: TEdit;
	Label7: TLabel;	Містить назву поля Edit7: TEdit;
	Label8: TLabel;	Містить назву поля Edit8: TEdit;
	Edit3: TEdit;	Поле для введення Прізвища імя по батькові
	Edit4: TEdit;	Поле для введення № паспорта
	Edit5: TEdit;	Поле для введення Кількість кімнат номеру
	Edit6: TEdit;	Поле для введення Номер для виїзду
	Edit7: TEdit;	Поле для введення Дата заїзду
	Edit8: TEdit;	Поле для введення Дата виїзду
	BitBtn3: TBitBtn;	Виконання запиту Введення даних

Пункт головного меню «Бронювання номерів»



Рис. 4.5 екранна форма пункту головного меню «Бронювання номерів» в режимі виконання програми

Рис. 4.6 екранна форма пункту головного меню «Бронювання номерів» в режимі конструювання

Програмна специфікація «Бронювання номерів» наведена у таблиці



Таблиця 7 - Програмна специфікація Бронювання номерів

Компонент програми	Позначення	Зміст
Стандартні модулі	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DBTables, Db, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;	Стандартні модулі, з якими встановлюється зв'язок
Візуальні компоненти	DBGrid2: TDBGrid;	Блок який містить інформацію про бронювання номерів та заборгованість клієнтів по передоплаті
	DBNavigator2: TDBNavigator;	Група кнопок для управління введення даних
Візуальні компоненти	BitBtn7: TBitBtn;	Кнопка виконує запит «Друк»

Модуль Unit2 призначений звязку програми з базою даних.

Рис. 4.8 екранна форма модуля Unit2 в режимі конструювання

Таблиця 8 - Програмна специфікація модуля Unit2

Компонент програми	Позначення	Зміст
Стандартні модулі	SysUtils, Classes, DB, ADODB;	Стандартні модулі, з якими встановлюється зв'язок
Модулі програміста	ADOConnection1: TADOConnection;	Забезпечує зєднання інших компонентів ADO з базою даних і виконує керування транзакціями
Модулі програміста	ADOTable1: TADOTable;	Забезпечує використання таблиць БД,використовує ресурс DataSource1: TDataSource;
Модулі програміста	ADOTable2: TADOTable;	Забезпечує використання таблиць БД,використовує ресурс DataSource2: TDataSource;
Модулі програміста	DataSource1: TDataSource;	Діє як посередник між компонентом ADOTable1 та Data Controls
Модулі програміста	DataSource2: TDataSource;	Діє як посередник між компонентом ADOTable2 та Data Controls

Модуль Unit3 призначений для показу інформації про програму.

Рис. 4.9 екранна форма модуля Unit3 в режимі виконання програми

Таблиця 9 - Програмна специфікація модуля Unit3

Компонент програми	Позначення	Зміст
Стандартні модулі	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls;	Стандартні модулі, з якими встановлюється зв'язок
Візуальні компоненти	Label1: TLabel; Label2: TLabel;	Інформація про програму

Висновок

Навчальна програма «Готель» була виконана в повному обсязі. В процесі розробки були реалізовані всі задачі. Програма являється спрощеним варіантом для готелів нижчого порядку .Функціонал програми може збільшуватись шляхом додавання модулів (по потребі).

Список використаних джерел

1. http://citforum.ru/

2. Сборник советов по Delphi



Додаток

Лістинг програми

Лістинг модуля unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg,

ComCtrls, unit2, Buttons, RpCon, RpConDS, RpDefine, RpRave;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

TabSheet4: TTabSheet;

MainMenu1: TMainMenu;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

DBGrid2: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

BitBtn3: TBitBtn;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBNavigator2: TDBNavigator;

BitBtn7: TBitBtn;

RvProject1: TRvProject;

RvDataSetConnection1: TRvDataSetConnection;

N7: TMenuItem;

N1: TMenuItem;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if not DAtamodule2.ADOTable1.Locate('Прізвище імя по батькові',Edit1.Text,[]) then ShowMessage ('Запис не знайдений ...');

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if not DAtamodule2.ADOTable1.Locate('№ паспорта',Edit2.Text,[]) then ShowMessage ('Запис не знайдений ...');

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

if (edit3.Text='') or (edit4.Text='') or (edit5.Text='')or (edit6.Text='') then begin

messagedlg('Введіть дані!!!',

mtinformation, [mbOk], 0);

abort;

end;

if (edit3.Text<>'') or (edit4.Text<>'') or (edit5.Text<>'')or (edit6.Text<>'') then begin Datamodule2.ADOtable1.Insert;

Datamodule2.ADOtable1.Fields[1].Text:=edit3.Text;

Datamodule2.ADOtable1.Fields[2].Text:=edit4.Text;

Datamodule2.ADOtable1.Fields[3].Text:=edit5.Text;

Datamodule2.ADOtable1.Fields[4].Text:=edit6.Text;

Datamodule2.ADOtable1.Fields[5].Text:=edit7.Text;

Datamodule2.ADOtable1.Fields[6].Text:=edit8.Text;

//Form1.adoTable1.Fields[7].AsVariant:=form1.Table1.Fields[5].AsVariant - form1.Table1.Fields[6].AsVariant;

Datamodule2.ADOtable1.Refresh;

//form1.table1.first;

end;

edit3.clear;

edit4.clear;

edit5.clear;

edit6.clear;

edit7.clear;

edit8.clear;

pagecontrol1.ActivePageIndex:=1;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

var C,T:string; F:integer;

begin

C:=datamodule2.ADOTable1.FieldValues['Прізвище імя по батькові'];

T:=datamodule2.ADOTable1.FieldValues['№ паспорта'];

F:=datamodule2.ADOTable1.FieldByName('Сумма до оплати').AsInteger;

datamodule2.ADOTable2.Edit;

datamodule2.ADOTable2.Insert;

datamodule2.ADOTable2.FieldValues['Прізвище імя по батькові']:=C;

datamodule2.ADOTable2.FieldValues['Дата заїзду']:=T;

datamodule2.ADOTable2.FieldValues['Сумма до оплати']:=F;

datamodule2.ADOTable2.Post;

pagecontrol1.ActivePageIndex:=3;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

pagecontrol1.ActivePageIndex:=1;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

pagecontrol1.ActivePageIndex:=2;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

pagecontrol1.ActivePageIndex:=3;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

pagecontrol1.ActivePageIndex:=0;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

var j:integer; ci:array[1..100] of real; l2:real; s:string; //введення змінних //

begin

datamodule2.ADOTable2.First; // початок виконання //

for j:=1 to datamodule2.ADOTable2.RecordCount do begin // задаємо икл//

ci[j]:=datamodule2.ADOTable2.FieldValues['Сумма до оплати']; // змінні присвоюєм значення поля даних //

datamodule2.ADOTable2.Next; // переходим до наступного //

l2:=l2+ci[j]; // сумуєм значення //

end;

datamodule2.ADOTable2.Edit; // дозвіл на редагування //

datamodule2.ADOTable2.Insert; // дозвіл на вставку //

datamodule2.ADOTable2.FieldValues['ціна']:=l2; // записуєм значення в поле //

datamodule2.ADOTable2.Post; // збереження змін //

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

var j:integer;

begin

datamodule2.ADOTable2.First;

for j:=1 to datamodule2.ADOTable2.RecordCount do begin

datamodule2.ADOTable2.Delete;

end;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

RvProject1.ExecuteREport('Report2');

end;

procedure TForm1.N1Click(Sender: TObject);

begin

if messagedlg('Ви дійсно бажаєте завершити програму',mtConfirmation,[mbYes,mbNo],0)=mrYes then Form1.Close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Лістинг модуля unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

procedure DataModuleCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);

begin

end;

end.

Лістинг модуля unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

Размещено на Allbest.ru

...