Разработка автоматизированной информационной системы на примере предприятия (гостиницы, туристская фирма, туристическая база отдыха)

Программа «Информационная система гостиничного комплекса» была разработана, прошла тестирование и готова к эксплуатации.

 

Список литературы

 

1. Архангельский А. Я.  Программирование Delphi7 - Москва, 2005;

2. Благодатских В. А. и др. Экономика, разработка и использование программного обеспечения ЭВМ - Москва, 1995;

3. Благодатских В. А. и др. Стандартизация разработки программных средств - Москва, 2003;

4. Бобровский С. И.  Delphi 7 - Москва, 2005;

5. Голицина О. Л.,  Максимов Н. В. и др. База данных - Москва, 2003;

6. Коннолли Т. А., Бег К. В. Базы данных. Проектирование, реализация и сопровождение - Москва, 2001;

7. Океанова З. К. Основы экономической теории -Москва, 2003;

8. Орлов С. К. Технологии разработки программного обеспечения - Санкт-Петербург, 2002;

9. Полещук Н. Н. AutoCAD 2005, Санкт - Петербург, 2004;

10. Рудаков А. В. Технология разработки программных продуктов - Москва, 2005;

11. Семакин И. Г., Шестаков А. П. Основы программирования - Москва, 2001;

12. Фаронов В. В.  Программирование баз данных в Delphi 7, Санкт-Петербург, 2003;

13. Фигунов В. Э.  IBM PC для пользователей - Москва, 1996;

14. Якубайтис Э. А. Информационные сети и системы - Москва, 1996.

 

Приложение

 

Листинг программы «Информационная система гостиничного комплекса»

 

unit Unit1;

interface

uses

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

  Dialogs, Menus, Grids, DBGrids, DB, DBTables, jpeg, ExtCtrls, ComCtrls,

  StdCtrls;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N21: TMenuItem;

    N9: TMenuItem;

    N22: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N23: TMenuItem;

    N31: TMenuItem;

    N41: TMenuItem;

    N51: TMenuItem;

    N61: TMenuItem;

    N71: TMenuItem;

    N81: TMenuItem;

    N91: TMenuItem;

    N101: TMenuItem;

    N111: TMenuItem;

    N121: TMenuItem;

    N131: TMenuItem;

    N141: TMenuItem;

    N151: TMenuItem;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Query1: TQuery;

    StatusBar1: TStatusBar;

    Label1: TLabel;

    Label2: TLabel;

    N13: TMenuItem;

    Button1: TButton;

    N14: TMenuItem;

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N31Click(Sender: TObject);

    procedure N41Click(Sender: TObject);

    procedure N61Click(Sender: TObject);

    procedure N81Click(Sender: TObject);

    procedure N71Click(Sender: TObject);

    procedure N91Click(Sender: TObject);

    procedure N51Click(Sender: TObject);

    procedure N101Click(Sender: TObject);

    procedure N121Click(Sender: TObject);

    procedure N131Click(Sender: TObject);

    procedure N141Click(Sender: TObject);

    procedure N151Click(Sender: TObject);

    procedure N23Click(Sender: TObject);

    procedure N111Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit11, Unit7, Unit3, Unit2, Unit4, Unit5, Unit6, Unit8, Unit9, Unit10,

  Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit21,

  Unit20, Unit22, Unit23, Unit24, Unit25, Unit26, Unit28, Unit29, Unit30;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form11.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form2.showmodal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form5.showmodal;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form8.showmodal;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

form9.showmodal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Button1.Visible:=true;

dbgrid1.Visible:=true;

form13.ShowModal;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form24.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N41Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

Form14.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N61Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form15.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N81Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form28.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N71Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form16.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N91Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form29.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N51Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form17.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N101Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form18.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N121Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form19.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N131Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form20.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N141Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form22.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N151Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form23.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form25.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N111Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form26.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

DBGrid1.Visible:=false;

button1.Visible:=false;

Form1.Query1.SQL.Clear;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

Form30.showmodal;

end;

end.

unit Unit20;

interface

uses

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

  Dialogs, StdCtrls, DBCtrls;

type

  TForm20 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    ComboBox2: TComboBox;

    Label6: TLabel;

    Label7: TLabel;

    DBComboBox1: TDBComboBox;

    procedure Button1Click(Sender: TObject);

    procedure FormPaint(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form20: TForm20;

implementation

uses Unit1, Unit17, Unit13, Unit2;

{$R *.dfm}

procedure TForm20.Button1Click(Sender: TObject);

begin

if (dbcombobox1.Text = '') or  (edit1.Text = '') or (edit2.Text = '')  then

MessageBox(Application.Handle, 'Заполните все поля', 'Ошибка', MB_OK + MB_ICONHAND) else

begin

Form1.Query1.SQL.Clear;

Form1.Query1.SQL.Add('SELECT DISTINCT  Naimenovanie_gost as Наименование_гостиницы, N_klienta as Номер_клиента, FIO as ФИО_клиента, Z_s_b as Занят_Свобод_Заброн, Data_zaselenia as Дата_заселения FROM гост_комплекс, общая, клиенты, клиенты2 ');

Form1.Query1.SQL.Add('WHERE гост_комплекс.N_gost=общая.N_gost and клиенты2.N_klienta=клиенты.N_klienta and клиенты2.N_nomera=общая.N_nomera and Naimenovanie_gost='''+dbcomboBox1.Text+''' and Data_zaselenia between '''+edit1.text+''' and '''+edit2.text+''' and Z_s_b='''+combobox2.text+'''');

Form1.Query1.Open;

end;

if Form1.Query1.RecordCount = 0 then showmessage ('Данной записи не существует') else

form20.Close;

end;

procedure TForm20.FormPaint(Sender: TObject);

begin

DBCombobox1.Items.Clear;

form2.Query1.First;

while not   form2.Query1.Eof do

begin

DBCombobox1.Items.Add( form2.query1.Fields.FieldByName('Naimenovanie_gost').AsString);

form2.Query1.Next;

end;

form2.Query1.First;

end;

end.