ПРИЛОЖЕНИЕ  1

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

Модуль  «Тип номера»

unit Unit2; 

interface 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls; 

type

  TForm2 = class(TForm)

    Table1: TTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBEdit1: TDBEdit;

    Button4: TButton;

    Button5: TButton;

    DBNavigator1: TDBNavigator;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit8; 

{$R *.dfm} 

procedure TForm2.Button1Click(Sender: TObject);

begin

If Table1.State = dsBrowse THEN

Table1.Insert;

end; 

procedure TForm2.Button2Click(Sender: TObject);

begin

If Table1.State = dsBrowse THEN

Table1.Edit;

end; 

procedure TForm2.Button3Click(Sender: TObject);

begin

If Table1.State = dsBrowse THEN

If MessageDlg ('Подтвердите удаление записи', mtConfirmation,[mbYes, mbNo],0) = mrYes THEN

Table1.Delete;

end; 

procedure TForm2.Button4Click(Sender: TObject);

begin

Form2.Visible:= false;

Form1.Visible:= true;

Form3.Visible:= false;

Form4.Visible:= false;

Form5.Visible:= false;

end; 

procedure TForm2.Button5Click(Sender: TObject);

begin

close;

end; 

end.

Модуль «Запросы»

unit Unit6; 

interface 

uses

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

  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, QRCtrls, QuickRpt,

  ExtCtrls; 

type

  TForm6 = class(TForm)

    Query1: TQuery;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Edit1: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Query2: TQuery;

    DataSource2: TDataSource;

    DBGrid2: TDBGrid;

    Edit2: TEdit;

    Button2: TButton;

    Label2: TLabel;

    Button3: TButton;

    Button4: TButton;

    QuickRep1: TQuickRep;

    QRBand1: TQRBand;

    QRBand2: TQRBand;

    ChildBand1: TQRChildBand;

    QRLabel1: TQRLabel;

    QRLabel2: TQRLabel;

    QRDBText1: TQRDBText;

    QRDBText2: TQRDBText;

    QRDBText3: TQRDBText;

    QRDBText4: TQRDBText;

    QRDBText5: TQRDBText;

    Button5: TButton;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRLabel5: TQRLabel;

    QRLabel6: TQRLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form6: TForm6; 

implementation 

uses Unit1, Unit2, Unit3, Unit4, Unit5; 

{$R *.dfm} 

procedure TForm6.Button1Click(Sender: TObject);

begin 

with Query1 do

begin

close;

ParamByName ('n').Value:=Edit1.Text;

open; 

     end;

     end; 
 
 

procedure TForm6.Button2Click(Sender: TObject);

begin

with Query2 do

begin

close;

ParamByName ('fam').Value:=Edit2.Text;

open;

end;

  end;

procedure TForm6.Button3Click(Sender: TObject);

begin

Form1.Visible:= true;

Form2.Visible:= false;

Form3.Visible:= false;

Form4.Visible:= false;

Form5.Visible:= false;

Form6.Visible:= false;

end; 

procedure TForm6.Button4Click(Sender: TObject);

begin

close;

end; 

procedure TForm6.Button5Click(Sender: TObject);

begin

QuickRep1.Preview;

end; 

end.

Модуль  «Информация о  размещении отдыхающих»

unit Unit5; 

interface 

uses

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

  Dialogs, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, ExtCtrls, Mask; 

type

  TForm5 = class(TForm)

    Table1: TTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBLookupComboBox1: TDBLookupComboBox;

    DBLookupComboBox2: TDBLookupComboBox;

    DBLookupComboBox3: TDBLookupComboBox;

    Button1: TButton;

    Button2: TButton;

    DBGrid2: TDBGrid;

    Query1: TQuery;

    DataSource2: TDataSource;

    Button3: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    DBNavigator1: TDBNavigator;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5; 

implementation 

uses Unit1, Unit2, Unit3, Unit4; 

{$R *.dfm} 

procedure TForm5.Button1Click(Sender: TObject);

begin

Form1.Visible:= true;

Form2.Visible:= false;

Form3.Visible:= false;

Form4.Visible:= false;

Form5.Visible:= false;

end; 

procedure TForm5.Button2Click(Sender: TObject);

begin

close;

end; 

procedure TForm5.Button3Click(Sender: TObject);

begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('Select distinct R.kod_nomera, N.tip_nomera, N.status_nomera');

Query1.SQL.Add('From razmeshenie R, nomer N');

Query1.SQL.Add('where N.status_nomera=false');

Query1.Open;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

Query2.Close;

Query2.SQL.Clear;

Query2.SQL.Add ('SELECT R.Familiya, R.Imya, M.Vid_pitaniya, U.Data_zaezda');

Query2.SQL.Add ('FROM otdihaushiy R, pitanie M, razmeshenie U');

Query2.SQL.Add ('Where U.razmeshenie=R.razmeshenie, U.razmeshenie=M.razmeshenie U.Data_zaezda='+'"'+Edit1.Text+'"');

Query2.Open; 

end;

end.

Модуль  «Информация о  питании»

unit Unit4; 

interface 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls; 

type

  TForm4 = class(TForm)

    Table1: TTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    Button4: TButton;

    Button5: TButton;

    Edit1: TEdit;

    Button6: TButton;

    Label1: TLabel;

    DBNavigator1: TDBNavigator;

    Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form4: TForm4; 

implementation 

uses Unit1, Unit2, Unit3, Unit5; 

{$R *.dfm} 

procedure TForm4.Button1Click(Sender: TObject);

begin

If Table1.State = dsBrowse THEN

Table1.Insert;

Table1.Post;

end; 

procedure TForm4.Button2Click(Sender: TObject);

begin

If Table1.State = dsBrowse THEN

Table1.Edit;

Table1.Post;

end; 

procedure TForm4.Button3Click(Sender: TObject);

begin

If Table1.State = dsBrowse THEN

If MessageDlg ('Подтвердите удаление записи', mtConfirmation,[mbYes, mbNo],0) = mrYes THEN

Table1.Delete;

end; 

procedure TForm4.Button4Click(Sender: TObject);

begin

Form1.Visible:= true;

Form2.Visible:= false;

Form3.Visible:= false;

Form4.Visible:= false;

Form5.Visible:= false;

end; 

procedure TForm4.Button5Click(Sender: TObject);

begin

close;

end; 

procedure TForm4.Button6Click(Sender: TObject);

begin 

Table1.Locate('Vid_pitaniya',edit1.Text,[]); 
 

end; 

end. 

Модуль  «Информация о  номере»

procedure TForm1.FormCreate(Sender: TObject);

begin

close;

end; 

procedure TForm1.N1Click(Sender: TObject);