Заключение. 
Разработка информационной системы "Гостиница"

Разработанная в ходе выполнения дипломного проекта Информационная система «Гостиница», является актуальной на сегодняшний день и имеет большую практическую значимость.

В результате выполнения данного дипломного проекта были решены задачи, поставленные в начале работы. Была разработана структура базы данных; в программу были включены функции поиска, выполнения различных запросов. При этом были учтены все требования, выдвинутые в начале выполнения данного проекта.

Разработанная программа устойчиво выполняет все свои функции.

СПИСОК ЛИТЕРАТУРЫ

• 1. ГОСТ 2. 105−95 ЕСКД. Общие требование к текстовым документам
• 2. ГОСТ 2. 004−68 ЕСКД. Общие требования к выполнению конструкторских и технологических документов на печатных графических устройствах вывода ЭВМ
• 3. ГОСТ 2. 104−68 ЕСКД. Основные надписи
• 4. ГОСТ 2. 106−96 ЕСКД. Текстовые документы
• 5. Архангельский А. Я. Программирование Delphi7 — Москва, 2005;
• 6. Благодатских В. А. и др. Экономика, разработка и использование программного обеспечения ЭВМ — Москва, 1995;
• 7. Благодатских В. А. и др. Стандартизация разработки программных средств — Москва, 2003;
• 8. Бобровский С. И. Delphi 7 — Москва, 2005;
• 9. Голицина О. Л., Максимов Н. В. и др. База данных — Москва, 2003;
• 10. Коннолли Т. А., Бег К. В. Базы данных. Проектирование, реализация и сопровождение — Москва, 2001;
• 11. Океанова З. К. Основы экономической теорииМосква, 2003;
• 12. Орлов С. К. Технологии разработки программного обеспечения — Санкт-Петербург, 2002;
• 13. Полещук Н. Н. AutoCAD 2005, Санкт — Петербург, 2004;
• 14. Рудаков А. В. Технология разработки программных продуктов — Москва, 2005;
• 15. Семакин И. Г., Шестаков А. П. Основы программирования — Москва, 2001;
• 16. Фаронов В. В. Программирование баз данных в Delphi 7, Санкт-Петербург, 2003;
• 17. Фигунов В. Э. IBM PC для пользователей — Москва, 1996;
• 18. Якубайтис Э. А. Информационные сети и системы — Москва, 1996.

ПРИЛОЖЕНИЯ

Приложение А

Исходный код программы

Главная форма.

unit Unit1;

interface.

uses.

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

Dialogs, Menus, jpeg, ExtCtrls;

type.

TForm1 = class (TForm).

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure N2Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N5Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}.

procedure TForm1. N2Click (Sender: TObject);

begin.

Form3.Show;

end;

procedure TForm1. N4Click (Sender: TObject);

begin.

Form4.Show;

end;

procedure TForm1. N3Click (Sender: TObject);

begin.

Form5.Show;

end;

procedure TForm1. N7Click (Sender: TObject);

begin.

Application.Terminate;

end;

procedure TForm1. N8Click (Sender: TObject);

begin.

AboutBox.ShowModal;

end;

procedure TForm1. N5Click (Sender: TObject);

begin.

Form7.Show;

end;

end.

Модуль данных.

unit Unit2;

interface.

uses.

SysUtils, Classes, DB, ADODB;

type.

TDataModule2 = class (TdataModule).

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TdataSource;

ADOTable2: TADOTable;

DataSource2: TdataSource;

ADOTable3: TADOTable;

DataSource3: TdataSource;

ADOTable4: TADOTable;

DataSource4: TdataSource;

ADOQuery1: TADOQuery;

DataSource5: TdataSource;

ADOQuery2: TADOQuery;

DataSource6: TdataSource;

ADOQuery3: TADOQuery;

DataSource7: TdataSource;

procedure DataModuleCreate (Sender: Tobject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

DataModule2: TdataModule2;

implementation.

uses.

Unit1, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}.

procedure TdataModule2. DataModuleCreate (Sender: Tobject);

begin.

AdoConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetCurrentDir+'Gost.mdb;Persist Security Info=False';

AdoConnection1.Connected:=true;

AdoTable1.Connection:=AdoConnection1;

AdoTable1.TableName:='Заселение';

AdoTable1.Active:=True;

AdoTable2.Connection:=AdoConnection1;

AdoTable2.TableName:='Клиент';

AdoTable2.Active:=True;

//AdoTable3.Connection:=AdoConnection1;

//AdoTable3.TableName:='Номер';

//AdoTable3.Active:=True;

AdoTable4.Connection:=AdoConnection1;

AdoTable4.TableName:='Оплата';

AdoTable4.Active:=True;

AdoQuery1.Connection:=AdoConnection1;

AdoQuery1.Close;

AdoQuery1.SQL.Text:='Select Код, Свободные, Наименование, Описание, Стоимость From Номер';

AdoQuery1.ExecSQL;

AdoQuery1.Open;

{AdoQuery3.Connection:=AdoConnection1;

AdoQuery3.Close;

AdoQuery3.SQL.Text:='Select Код, Код заселения, ФИО плательщика, Сумма From Оплата';

AdoQuery3.ExecSQL;

AdoQuery3.Open; }.

end;

end.

Форма ЗАСЕЛЕНИЕ КЛИЕНТОВ.

unit Unit3;

interface.

uses.

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

Dialogs, Grids, DBGrids, DBCtrls, ExtCtrls, StdCtrls, Buttons, ComCtrls;

type.

TForm3 = class (Tform).

Panel1: Tpanel;

Splitter1: Tsplitter;

Panel2: Tpanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label1: Tlabel;

Edit1: Tedit;

SpeedButton1: TspeedButton;

GroupBox1: TgroupBox;

Label2: Tlabel;

DateTimePicker1: TdateTimePicker;

Label3: Tlabel;

DateTimePicker2: TdateTimePicker;

BitBtn1: TbitBtn;

BitBtn2: TbitBtn;

RadioGroup1: TradioGroup;

procedure FormActivate (Sender: Tobject);

procedure FormClose (Sender: Tobject; var Action: TcloseAction);

procedure Edit1Change (Sender: Tobject);

procedure SpeedButton1Click (Sender: Tobject);

procedure FormCreate (Sender: Tobject);

procedure BitBtn1Click (Sender: Tobject);

procedure BitBtn2Click (Sender: Tobject);

procedure RadioGroup1Click (Sender: Tobject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form3: Tform3;

implementation.

uses.

Unit2, Unit1;

{$R *.dfm}.

procedure Tform3. FormActivate (Sender: Tobject);

begin.

DataModule2.ADOTable1.Close;

DataModule2.AdoQuery2.Connection:=DataModule2.AdoConnection1;

DataModule2.AdoQuery2.Close;

DataModule2.AdoQuery2.SQL.Text:='Select * From Заселение';

DataModule2.AdoQuery2.ExecSQL;

DataModule2.AdoQuery2.Open;

DBGrid1.DataSource:=DataModule2.DataSource6;

end;

procedure Tform3. FormClose (Sender: Tobject; var Action: TcloseAction);

begin.

DataModule2.AdoQuery2.Close;

DataModule2.AdoTable1.Open;

end;

procedure Tform3. Edit1Change (Sender: Tobject);

begin.

with DataModule2. ADOQuery2 do.

begin.

close;

SQL.Clear;

SQL.Add (`Select *');

SQL.Add (`From Заселение');

SQL.Add (`Where (Клиент Like «%'+Edit1.Text+'%»)');

//SQL.Add (`Order By Name');

OPEN;

end;

DataModule2.DataSource6.DataSet:=DataModule2.ADOQuery2;

end;

procedure Tform3. SpeedButton1Click (Sender: Tobject);

begin.

Form3.Close;

end;

procedure Tform3. FormCreate (Sender: Tobject);

begin.

DateTimePicker1.DateTime:=now;

DateTimePicker2.DateTime:=now;

RadioGroup1.ItemIndex:=-1;

end;

procedure Tform3. BitBtn1Click (Sender: Tobject);

begin.

Datamodule2.ADOQuery2.Filter:='[Дата заселения]>=' + DateToStr (DateTimePicker1.Date) +.

` AND [Дата заселения]<=' + DateToStr (DateTimePicker2.Date) ;

Datamodule2.ADOQuery2.Filtered :=True;

end;

procedure Tform3. BitBtn2Click (Sender: Tobject);

begin.

Datamodule2.ADOQuery2.Filtered :=False;

end;

procedure Tform3. RadioGroup1Click (Sender: Tobject);

begin.

case RadioGroup1. ItemIndex of.

• 0: DataModule2. ADOQuery2. Sort:='Клиент';
• 1: DataModule2. ADOQuery2. Sort:='[Дата заселения]';
• 2: DataModule2. ADOQuery2. Sort:='Код';

end;

end;

end.

Форма НОМЕРА ГОСТИНИЦЫ.

unit Unit4;

interface.

uses.

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

Dialogs, Grids, DBGrids, DBCtrls, ExtCtrls, StdCtrls, Buttons;

type.

TForm4 = class (Tform).

Panel1: Tpanel;

Panel2: Tpanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

DBMemo1: TDBMemo;

Panel3: Tpanel;

Splitter1: Tsplitter;

Splitter2: Tsplitter;

RadioGroup1: TradioGroup;

SpeedButton1: TspeedButton;

RadioGroup2: TradioGroup;

procedure DBGrid1CellClick (Column: Tcolumn);

procedure FormCreate (Sender: Tobject);

procedure RadioGroup1Click (Sender: Tobject);

procedure SpeedButton1Click (Sender: Tobject);

procedure RadioGroup2Click (Sender: Tobject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form4: Tform4;

implementation.

uses.

Unit2, Unit1;

{$R *.dfm}.

procedure Tform4. DBGrid1CellClick (Column: Tcolumn);

begin.

DBMemo1.Text:=DataModule2.ADOQuery1.Fields[3]. AsString;

end;

procedure Tform4. FormCreate (Sender: Tobject);

begin.

DBGrid1.Columns[0]. FieldName:='код';

DBGrid1.Columns[1]. FieldName:='Наименование';

DBGrid1.Columns[2]. FieldName:='Свободные';

DBGrid1.Columns[3]. FieldName:='Стоимость';

RadioGroup1.ItemIndex:=1;

RadioGroup2.ItemIndex:=1;

end;

procedure Tform4. RadioGroup1Click (Sender: Tobject);

begin.

Case RadioGroup1. ItemIndex of.

0: begin DataModule2. AdoQuery1.Connection:=DataModule2.AdoConnection1;

DataModule2.AdoQuery1.Close;

DataModule2.AdoQuery1.SQL.Text:='Select * From Номер Where Свободные=true';

DataModule2.AdoQuery1.ExecSQL;

DataModule2.AdoQuery1.Open;

end;

1: begin DataModule2. AdoQuery1.Connection:=DataModule2.AdoConnection1;

DataModule2.AdoQuery1.Close;

DataModule2.AdoQuery1.SQL.Text:='Select * From Номер';

DataModule2.AdoQuery1.ExecSQL;

DataModule2.AdoQuery1.Open;

end;

end;

end;

procedure Tform4. SpeedButton1Click (Sender: Tobject);

begin.

form4.Close;

end;

procedure Tform4. RadioGroup2Click (Sender: Tobject);

begin.

Case RadioGroup2. ItemIndex of.

0: begin.

DataModule2.AdoQuery1.Sort:='Наименование';

end;

1: begin.

DataModule2.AdoQuery1.Sort:='Код';

end;

end;

end;

end.

Форма КЛИЕНТЫ.

unit Unit5;

interface.

uses.

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

Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, ExtCtrls, Mask, Buttons,.

ComCtrls;

type.

TForm5 = class (TForm).

Panel1: TPanel;

Panel2: TPanel;

Splitter1: TSplitter;

GroupBox1: TGroupBox;

Splitter2: TSplitter;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

GroupBox2: TGroupBox;

DBComboBox1: TDBComboBox;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

DateTimePicker1: TDateTimePicker;

BitBtn1: TBitBtn;

Label4: TLabel;

ComboBox1: TComboBox;

Label5: TLabel;

Splitter3: TSplitter;

GroupBox3: TGroupBox;

BitBtn2: TBitBtn;

Label6: TLabel;

DateTimePicker3: TDateTimePicker;

Label7: TLabel;

Edit2: TEdit;

DateTimePicker2: TDateTimePicker;

Label8: TLabel;

ComboBox2: TComboBox;

BitBtn3: TBitBtn;

SpeedButton1: TSpeedButton;

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure ComboBox1Change (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form5: TForm5;

k, k1: byte;

i, j: Integer;

implementation.

uses Unit1, Unit2;

{$R *.dfm}.

procedure TForm5. FormCreate (Sender: TObject);

begin.

DateTimePicker1.Date:=now;

DateTimePicker2.Date:=now;

DateTimePicker3.Date:=now;

DateTimePicker1.Time:=0;

i:=0; j:=0;

While not DataModule2. ADOTable1. Eof do.

begin.

if DateTimePicker1. Date>DataModule2.ADOTable1.Fields[2]. AsDateTime then.

i:=DataModule2.ADOTable1.Fields[4]. AsInteger;

if DateTimePicker1. Date<=DataModule2.ADOTable1.Fields[2]. AsDateTime then.

j:=DataModule2.ADOTable1.Fields[4]. AsInteger;

while not DataModule2. ADOQuery1. Eof do.

begin.

if i=DataModule2.ADOQuery1.Fields[0]. AsInteger Then.

begin.

DataModule2.ADOQuery1.Edit;

DataModule2.ADOQuery1.Fields[1]. AsBoolean:=true;

end;

if j=DataModule2.ADOQuery1.Fields[0]. AsInteger Then.

begin.

DataModule2.ADOQuery1.Edit;

DataModule2.ADOQuery1.Fields[1]. AsBoolean:=false;

end;

DataModule2.ADOQuery1.Next;

end;

DataModule2.ADOTable1.Next;

end;

DBComboBox1.ItemIndex:=-1;

DataModule2.ADOTable2.Open;

DataModule2.ADOTable2.First;

while not DataModule2. ADOTable2. Eof do.

begin.

Form5.DBComboBox1.Items.Add (DataModule2.ADOTable2.Fields[1]. AsString);

DataModule2.ADOTable2.Next;

end;

DBComboBox1.DataField:='ФИО';

ComboBox1.ItemIndex:=-1;

DataModule2.ADOQuery1.Open;

DataModule2.ADOQuery1.First;

While not DataModule2. ADOQuery1. Eof do.

begin.

if DataModule2. ADOQuery1.Fields[1]. AsBoolean=true then.

ComboBox1.Items.Add (IntToStr (DataModule2.ADOQuery1.Fields[0]. AsInteger));

DataModule2.ADOQuery1.Next;

end;

end;

procedure TForm5. BitBtn1Click (Sender: TObject);

begin.

k:=0;

DataModule2.ADOTable2.Open;

DataModule2.ADOTable2.First;

while not DataModule2. ADOTable2. Eof do.

begin.

if Edit1. Text=DataModule2.ADOTable2.Fields[1]. AsString then k:=1;

DataModule2.ADOTable2.Next;

end;

if k=0 then.

begin.

DataModule2.ADOTable2.Append;

DataModule2.ADOTable2.Fields[1]. AsString:=Edit1.Text;

DataModule2.ADOTable2.Fields[2]. AsDateTime:=DateTimePicker1.Date;

DBComboBox1.Clear;

DBComboBox1.ItemIndex:=-1;

DataModule2.ADOTable2.Open;

DataModule2.ADOTable2.First;

while not DataModule2. ADOTable2. Eof do.

begin.

Form5.DBComboBox1.Items.Add (DataModule2.ADOTable2.Fields[1]. AsString);

DataModule2.ADOTable2.Next;

end;

end.

else ShowMessage ('Клиент уже зарегистрирован!');

end;

procedure TForm5. ComboBox1Change (Sender: TObject);

begin.

DataModule2.ADOQuery1.First;

While not DataModule2. ADOQuery1. Eof do.

begin.

If DataModule2. ADOQuery1.Fields[0]. AsInteger=StrToInt (ComboBox1.Text) then.

Edit2.Text:=IntToStr (DataModule2.ADOQuery1.Fields[4]. AsInteger);

DataModule2.ADOQuery1.Next;

end;

end;

procedure TForm5. BitBtn2Click (Sender: TObject);

begin.

if (DBComboBox1.Text'') and ((ComboBox1.Text'')or (ComboBox1.Text'нет')) then.

Begin.

DataModule2.ADOTable1.Append;

DataModule2.ADOTable1.Fields[3]. AsString:=DBComboBox1.Text;

DataModule2.ADOTable1.Fields[4]. AsInteger:=StrToInt (ComboBox1.Text);

DateTimePicker2.Time:=0;

DateTimePicker3.Time:=0;

DataModule2.ADOTable1.Fields[1]. AsDateTime:=DateTimePicker2.Date;

DataModule2.ADOTable1.Fields[2]. AsDateTime:=DateTimePicker3.Date;

DataModule2.ADOTable1.Post;

DataModule2.ADOTable1.Refresh;

DataModule2.ADOTable4.Append;

DataModule2.ADOTable4.Fields[1]. AsInteger:=DataModule2.ADOTable1.Fields[0].AsInteger;

DataModule2.ADOTable4.Fields[2]. AsString:=DataModule2.ADOTable1.Fields[3].AsString;

DataModule2.ADOTable4.Fields[3]. AsFloat:=(DateTimePicker3.Date-DateTimePicker2.Date)*strtoint (Edit2.Text);

DataModule2.ADOTable4.Post;

DataModule2.ADOTable4.Refresh;

DataModule2.ADOQuery1.First;

While not DataModule2. ADOQuery1. Eof do.

begin.

if strtoint (ComboBox1.Text)=DataModule2.ADOQuery1.Fields[0]. AsInteger Then.

begin.

DataModule2.ADOQuery1.Edit;

DataModule2.ADOQuery1.Fields[1]. AsBoolean:=false;

//if DataModule2. ADOQuery1.State in [dsEdit, dsInsert] then DataModule2. ADOQuery1. Post;

end;

DataModule2.ADOQuery1.Next;

end;

end.

else ShowMessage ('Не все поля заполнены');

Form5.Close;

end;

procedure TForm5. BitBtn3Click (Sender: TObject);

begin.

if ComboBox2. Text'' then.

begin.

Case ComboBox2. ItemIndex of.

• 0:DataModule2.ADOTable2.Sort:='ФИО';
• 1:DataModule2.ADOTable2.Sort:='[Дата регистраций]';

end;

end.

else ShowMessage ('Выберите поле для сортировки!');

end;

procedure TForm5. SpeedButton1Click (Sender: TObject);

begin.

Form5.Close;

end;

procedure TForm5. FormActivate (Sender: TObject);

begin.

k1:=0;

While not DataModule2. ADOQuery1. Eof do.

begin.

if DataModule2. ADOQuery1.Fields[1]. AsBoolean=true Then k:=1;

DataModule2.ADOQuery1.Next;

end;

if k1=1 then ComboBox1. Text:='';

if k1=0 Then ComboBox1. Text:='нет';

end;

end.

Форма О программе.

unit Unit6;

interface.

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,.

Buttons, ExtCtrls;

type.

TAboutBox = class (Tform).

Panel1: Tpanel;

ProgramIcon: Timage;

ProductName: Tlabel;

Version: Tlabel;

Copyright: Tlabel;

Comments: Tlabel;

OKButton: Tbutton;

procedure OKButtonClick (Sender: Tobject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

AboutBox: TaboutBox;

implementation.

{$R *.dfm}.

procedure TaboutBox. OKButtonClick (Sender: Tobject);

begin.

AboutBox.Close;

end;

end.

Форма ОПЛАТА.

unit Unit7;

interface.

uses.

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

Dialogs, Grids, DBGrids, DBCtrls, ExtCtrls;

type.

TForm7 = class (TForm).

Panel1: TPanel;

Splitter1: TSplitter;

Panel2: TPanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form7: TForm7;

implementation.

uses Unit2;

{$R *.dfm}.

end.

Приложение Б

Интерфейс программы

Рисунок 6. Главная форма.

Рисунок 7. Окно ЗАСЕЛЕНИЕ.

Рисунок 8. Окно клиенты.

Рисунок 9. Окно НОМЕРА.

Рисунок 10. Окно ОПЛАТА.

Рисунок 11. Окно О программе.