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

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

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

• 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.