begin

Form1.Visible:= true;

Form2.Visible:= false;

Form3.Visible:= false;

Form4.Visible:= false;

Form5.Visible:= false;

Form6.Visible:= false;

Form8.Visible:= false;

end; 

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Visible:= false;

Form2.Visible:= true;

Form3.Visible:= false;

Form4.Visible:= false;

Form5.Visible:= false;

Form6.Visible:= false;

Form8.Visible:= false;

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

Form1.Visible:= false;

Form2.Visible:= false;

Form3.Visible:= true;

Form4.Visible:= false;

Form5.Visible:= false;

Form6.Visible:= false;

Form8.Visible:= false;

end; 

procedure TForm1.Button5Click(Sender: TObject);

begin

close;

end; 

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.Visible:= false;

Form2.Visible:= false;

Form3.Visible:= false;

Form4.Visible:= false;

Form5.Visible:= true;

Form6.Visible:= false;

Form8.Visible:= false;

end; 

procedure TForm1.N5Click(Sender: TObject);

begin

Form1.Visible:= false;

Form2.Visible:= false;

Form3.Visible:= false;

Form5.Visible:= false;

Form4.Visible:= true;

Form6.Visible:= false;

Form8.Visible:= false;

end; 

procedure TForm1.N6Click(Sender: TObject);

begin

//Form1.Visible:= false;

Form2.Visible:= false;

Form3.Visible:= false;

Form5.Visible:= false;

Form6.Visible:= true;

Form4.Visible:= false;

Form8.Visible:= false;

end; 

procedure TForm1.N21Click(Sender: TObject);

begin

Form1.Visible:= false;

Form2.Visible:= false;

Form3.Visible:= false;

Form5.Visible:= false;

Form8.Visible:= true;

Form4.Visible:= false;

Form6.Visible:= false;

end; 

end.

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

   unit Unit3; 

   interface 

   uses

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

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

   type

     TForm3 = class(TForm)

       Table1: TTable;

       DataSource1: TDataSource;

       DBGrid1: TDBGrid;

       DBEdit1: TDBEdit;

       DBEdit2: TDBEdit;

       DBEdit3: TDBEdit;

       DBEdit4: TDBEdit;

       DBEdit5: TDBEdit;

       DBEdit6: TDBEdit;

       Button1: TButton;

       Button2: TButton;

       Edit1: TEdit;

       Button6: TButton;

       Label1: TLabel;

       DBNavigator1: TDBNavigator;

       Label2: TLabel;

       Label3: TLabel;

       Label4: TLabel;

       Label5: TLabel;

       Label6: TLabel;

       Label7: TLabel;

       RadioGroup1: TRadioGroup;

       Button7: TButton;

       procedure Button3Click(Sender: TObject);

       procedure Button4Click(Sender: TObject);

       procedure Button5Click(Sender: TObject);

       procedure Button1Click(Sender: TObject);

       procedure Button6Click(Sender: TObject);

       procedure Button2Click(Sender: TObject);

       procedure Button7Click(Sender: TObject);

       procedure FormCreate(Sender: TObject);

     private

       { Private declarations }

     public

       { Public declarations }

     end; 

   var

     Form3: TForm3; 

   implementation 

   uses Unit1, Unit2, Unit4, Unit5, Unit6; 

   {$R *.dfm} 

   procedure TForm3.Button3Click(Sender: TObject);

   begin

   If Table1.State = dsBrowse THEN

   Table1.Insert;

   Table1.Post;

   end; 

   procedure TForm3.Button4Click(Sender: TObject);

   begin

    If Table1.State = dsBrowse THEN

   Table1.Edit;

   Table1.Post;

   end; 

   procedure TForm3.Button5Click(Sender: TObject);

   begin

    If Table1.State = dsBrowse THEN

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

   Table1.Delete;

   end; 

   procedure TForm3.Button1Click(Sender: TObject);

   begin

   Form1.Visible:= true;

   Form2.Visible:= false;

   Form3.Visible:= false;

   Form4.Visible:= false;

   Form5.Visible:= false;

   end; 

   procedure TForm3.Button6Click(Sender: TObject);

   begin

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

   end; 

   procedure TForm3.Button2Click(Sender: TObject);

   begin

   close;

   end; 

   procedure TForm3.Button7Click(Sender: TObject);

   begin

   case RadioGroup1.ItemIndex of

         0: Table1.IndexFieldNames:= 'Familiya';

         1: Table1.IndexFieldNames:= 'Pol';

   end;

   end;

   procedure TForm3.FormCreate(Sender: TObject);

   begin 

   end; 

   end. 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЕ  2

   Инструкция  по работе с программой

    После запуска программы открывается  форма с заставкой и с главным  меню. При нажатии на одну из кнопок на меню: «Номер», «Тип номера», «Отдыхающие», «Размещение», «Запросы», «Питание» -  заставка скрывается, и открывается одна из выбранных форм.

    Работа  с формой «Номер»:

    Данная  форма предназначена для внесения данных о номере. Для того чтобы добавить нужно нажать на кнопку «+», добавиться пустая строка, где вы должны занести данные, аналогично можно удалить данные, нажав при этом кнопку «-» .Когда вы внесли данные в таблицу, для того чтоб компьютер мог запомнить данные нажимаем стрелочку «вниз» на клавиатуре. Для того чтобы осуществить фильтр по коду номера вам нужно набрать соответствующий код номера, по которому вы хотели совершить фильтрацию, затем вам надо нажать кнопку «Фильтр», в противном случае нажать кнопку «Отменить». А если вы набрали не существующую запись, тогда программа вам выведет сообщение об ошибки «Проверти заполнения поля». Для выхода из программы необходимо нажать кнопку «Закрыть».

    Работа  с формой «Тип номера»:

    На  форме расположена таблица с  данными о типе номера. Для того чтобы  добавить нужно нажать на кнопку «+», добавиться пустая строка, где вы должны занести данные, аналогично можно удалить данные, нажав при этом кнопку «-» .Когда вы внесли данные в таблицу, для того чтоб компьютер мог запомнить данные нажимаем стрелочку «вниз» на клавиатуре. Так же в этой форме можно вернуться на исходную форму надо нажать кнопку «Вернуться». Для выхода из программы необходимо нажать кнопку «Закрыть».

    Работа  с формой «Отдыхающие»:

    На  форме расположена таблица с  данными об отдыхающих. Для того чтобы  добавить нужно нажать на кнопку «+», добавиться пустая строка, где вы должны занести данные, в данной форме можно данные вносить как с таблице так и в ячейках в левом нижнем углу, аналогично можно удалить данные, нажав при этом кнопку «-» .Когда вы внесли данные в таблицу, для того чтоб компьютер мог запомнить данные нажимаем стрелочку «вниз» на клавиатуре. Так же в этой форме можно вернуться на исходную форму надо нажать кнопку «Вернуться». Для сортировки данных в таблице по фамилии отдыхающего выбираем «Сортировка по фамилии» и нажимаем кнопку сортировка, анологично делаем для «Сортировки по полу».Так же можно осуществить «Поиск по фамилии отдыхающго» в ячейке набираем фамилию и нажимаем кнопку «Поиск». Для выхода из программы необходимо нажать кнопку «Закрыть».

    Работа  с формой «Размещение»:

    На  форме расположена таблица с  данными о размещении отдыхающих. Для того чтобы  добавить нужно нажать на кнопку «+», добавиться пустая строка, где вы должны занести данные, в данной форме можно данные вносить как с таблице так и в ячейках в левом нижнем углу, аналогично можно удалить данные, нажав при этом кнопку «-» .Когда вы внесли данные в таблицу, для того чтоб компьютер мог запомнить данные нажимаем стрелочку «вниз» на клавиатуре. Так же в этой форме можно вернуться на исходную форму надо нажать кнопку «Вернуться». Нажав на кнопку «Запрос» можно увидеть занятые комнаты. Для того чтобы осуществить  запроса по дате, надо написать дату в пустой ячейки, затем нажать кнопку «Запрос» появиться список отдыхающих у которых дата заезда совпадает с датой которую внесли вы. В этом списке можно увидеть Ф.И.О отдыхающего и вид питание. Для выхода из программы необходимо нажать кнопку «Закрыть».

    Работа  с формой «Питание»:

    На  форме расположена таблица с  данными о питании. Для того чтобы  добавить нужно нажать на кнопку «+», добавиться пустая строка, где вы должны занести данные, в данной форме можно данные вносить как с таблице так и в ячейках в левом нижнем углу, аналогично можно удалить данные, нажав при этом кнопку «-» .Когда вы внесли данные в таблицу, для того чтоб компьютер мог запомнить данные нажимаем стрелочку «вниз» на клавиатуре. В этой форме можно вернуться на исходную форму надо нажать кнопку «Вернуться».Так же можно осуществить «Поиск по виду питания» в ячейке набираем вид питанияи  нажимаем кнопку «Поиск». Для выхода из программы необходимо нажать кнопку «Закрыть».

    Работа  с формой «Запросы»:

    В данной форме осуществляется действия с запросами. Запрос по виду номера , для этого нужно в пустую ячейку внести существующий вид номера затем  нажать кнопку «Запрос». Запрос по фамилии отдыхающего, для этого нужно в пустую ячейку внести существующую фамилию, затем нажать кнопку «Запрос», в таблице выведутся данные об этом отдыхающем. Можно просмотреть отчет об отдыхающем нажав кнопку «Отчет». В этой форме можно вернуться на исходную форму надо нажать кнопку «Вернуться». выхода из программы необходимо нажать кнопку «Закрыть».