Рассмотрим свойства DBGrid:

DataSource – для подключения формы

 

    Дальше  откроем третью форму (Рис.16.) и разместим на ней следующие компоненты:

Label(5 штук),DBEdit(4 штук), DBNavigator1 и DBGrid1 

Рис.16. Таблица «Список номеров гостиницы» 
 

Все свойства DBEdit1,DBGrid1 DBNavigator1 аналогичны второй форме.

 

       Дальше  открываем четвертую форму (Рис.17) и разместим на ней следующие компоненты: DBEdit, Label, DBNavigator и DBGrid 

Рис.17 Таблица «Заселение в гостиницу» 
 
 

Свойства DBEdit, Label, DBNavigator и DBGrid аналогичны второй форме.

 

3.5. Создание запросов.

 

       Компоненты  Delphi для работы с базами данных были созданы в расчете на работу с SQL и архитектурой клиент/сервер. При работе с ними  можно воспользоваться характеристиками расширенной поддержки удаленных серверов. Delphi осуществляет эту поддержку двумя способами. Во-первых, непосредственные команды из Delphi позволяют разработчику управлять таблицами, устанавливать пределы, удалять, вставлять и редактировать существующие записи. Второй способ заключается в использовании запросов на языке SQL, где строка запроса передается на сервер для ее разбора, оптимизации выполнения и передачи обратно результатов. При создании данного курсового проекта я создал три запроса: Динамический, Статический, Параметрический. 
 

3.5.1. Создание статического запроса. 

       Статические запросы – текст запроса полностью формируется на этапе разработки приложения.

       Поместим  на DataModule2 компонент ADOQuery1 с панели ADO и DataSource4 с панели Data Access.

       Создаем новую форму File/New/Form. Разместим на ней компоненты: Label, DBGrid. В свойстве DataSource4 компонента DBGrid указываем связь DataModule2.DataSource4. В свойстве SQL компонента ADO Query1 пишем запрос: SELECT*FROM Spisok_klientov_gostinici WHERE kod_klienta='333';Из таблицы «Spisok_klientov_gostitnici» выбираем поля с «kod_klienta='333'»

      Ниже  представлен результат выполнения (Рис.18).

Рис.18 Статический запрос 
 

3.5.2. Создание динамического запроса. 

       Динамический  запрос – текст запроса полностью формируется на этапе разработки приложения.

       Поместим  на DataModule2 компонент ADOQuery2 с панели ADO и DataSource4 с панели DataAccess.

       Создал  новую форму File/New/Form. Разместил компоненты: Label, DBGrid, Button и Memo. В свойстве DataSource компонента DBGrid указал связь DataModule2.DataSource6.

       Дважды  щелкнем по кнопке Выполнение и войдем в программу и напишем программный код, заключающийся в запуске SQL запроса на исполнение:

       DataModule2.ADOQuery2.close;

       DataModule2.ADOQuery2.SQL.Assign(Memo1.Lines);

       DataModule2.ADOQuery2.Open;

       Ниже  представлен результат выполнения (Рис.19) 

Рис.19 Динамический запрос

 

 

3.5.3. Создание параметрического запроса. 

       Параметрический запрос – текст запроса полностью  формируется на этапе разработки приложения.

Поместим на DataModule2 компонент ADO Query3 c панели ADO и DataSourse3 с панели компонентов DataAccess.

       Создаем новую форму File/New/Form. Разместим на ней компоненты: DBGrid1 c панели компонентов DataControls, Button1 и Edit1 Edit2 c панели компонентов Standard. Указываем связь DataModule2.DataSource3 Сonnection=ADOConnection1. Прописываем код для кнопки Button1:

DataModule2.ADOQuery3.Close;

DataModule2.ADOQuery3.Parameters.ParamByName(номер_рейса).Value:=Edit1.text;

DataModule2.ADOQuery3.Parameters.ParamByName('код_класса).Value:=Edit2.text;

DataModule2.ADOQuery3.Open;

Результат на рисунке 20.

Рис.20 Параметрический  запрос 

3.6. Создание отчетов.

3.6.1. Отчет1.

Данный отчет  выводит данные из таблицы zaselenie_v_gostinicu.(Заселение в гостиницу)

    На  DataModule2 размещаем компонент RvDataSetConnection1 из вкладки Rave. В инспекторе объектов устанавливаем его свойство

    DataSet= ADOQuery3.

    Таким образом в Rave будут передаваться данные из Query3. Далее в Delphi ищем подменю Tools, нажмем на него и найдем Rave Designer – эта программа позволит нам создать отчет.

Рис.21(Rave Designer)

 

 

    Далее рассмотрим быстрый способ создания отчета. Переходим в Rave Designer (Toolsà Rave Designer).

Автоматически будет создан новый проект. Свяжем проект с Table1 через RvDatasetConnection1. Для этого нажмите кнопку New Data Object и выберите Direct Data View (рис.22) 

Рис.22 Подключение  таблицы 
 

    Нажимаем Next и в появившемся окне должны быть отражены все активные Rave соединения. В нашем случае это будет выглядеть так (рис.23)

      Рис.23 Окно Data Connections. 

    После нажатия Finish справа в Rave Designer в Data View Dictionary появится Dataview1, раскрыв который можно увидеть поля Query3. 

    Теперь  создадим быстро простой отчет. Для этого воспользуемся Tools>Report Wizards>Simple Table.Выберем Dataview1, выделим все поля и завершим создание. После небольшой корректировки полученный лист отчета будет выглядеть следующим образом (Рис.24) 

Рис.24 Оформление отчета. 
 

    В верхнем поле (TitleBand) заголовок страницы, ниже заголовки колонок и в последней помещаются DataText Component, которые будут принимать значения соответвующего поля (колонки).

    Загляните в Report Library (справа) и посмортите, что бы имя текущего листа отчета было Report1. Сохраним полученный проект в папку с проектом Delphi. Получится файл Project1.rav.  

    Теперь  вернемся к нашему проекту в Delphi и напишем обработчик события для кнопки печать отчета. Соединим RvProject1 с полученным файлом Project1.rav. Можно сделать это программно.

    Код на кнопку… 

    procedure TForm9.Button1Click(Sender: TObject);

    begin

    DataModule2.RvProject1.Execute;

    end;

    Далее вы может просмотреть свой отчет, нажав на кнопку у вас вылезет  диалоговое окно (Рис.25)

      Рис.25 Диалоговое окно

Выберем Preview а нажмем на ок. 
 

Результат представлен  на рисунке 26.

Рис.26 (Отчет1) 
 
 
 
 
 
 

3.6.2. Отчет 2

Данный отчет выводит данные из двух таблиц, Spisok_nomerov_gostinici, Spisok_klientov_gostinici.(Список номеров гостиницы, Список клиентов гостиницы) 

    На  DataModule2 размещаем уже два компонента RvDataSetConnection1 из вкладки Rave. В инспекторе объектов устанавливаем в одном свойство

    DataSet= ADOTable1, в другом DataSet=ADOTable2.

    Таким образом в Rave будут передаваться данные из Table1 и Table2. Далее в Delphi ищем подменю Tools, нажмем на него и найдем Rave Designer. 

    Свяжем  наши таблицы с программой, как я показывал в первой отчете (рис.27)

    

          Рис.27 Окно Data Connections 

    После нажатия Finish справа в Rave Designer в Data View Dictionary появится   Dataview1 и Dataview2, раскрыв их можно увидеть поля Table1 и Table2

(Рис.28) 

Рис.28 Просмотр Data View Dictionary. 
 

    Далее размещаем компонент Region1 из вкладки Report и на нем размещаем компоненты Band1,DataBand1,Band2,DataBand2. 

    На  Band1 размещаем компоненты Text, как заголовки. 

    В инспекторе объектов DataBand1 устанавливаем свойство DataView=DataView1. И вставляем на него компоненты DataText которые следует подключить следующим образом.

    В инспекторе объектов ставим свойства DataView=DataView1, DataField=” Выбираем нужное поле”

    В инспекторе объектов Band2 кликнем на Band Style и в открывшемся окне поставим галочку на “Body Header”. Как это показано на рисунке 29.

Рис.29 Окно BandStyle. 

 

Оставшееся поле DataBand2 тоже подключаем, пример на рис.30

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

    Рис.30 Пример

И размещаем компоненты  DataText, и их тоже следуют подключить. 

 

Вот у нас  получился второй отчет,  рисунок 31. 

Рис.31 Второй отчет. 

 

4. Заключение

 

       Создание  АИС для администратора гостиницы способствует уменьшению трудоемкости работников по резервированию номеров и обеспечивает качество управления.

       Результатом данного курсового проекта является  создания программы по обслуживанию администратора гостиницы.

       Использование данной системы в реальных условиях позволит повысить эффективность работы, уменьшить издержки, снизить трудоемкость выполняемых операций.

       Данная  работа позволяет перейти на качественно  новый уровень эффективности  работы с резервированием номера, принципиально более эффективно.

       Использование данного автоматизированного приложения в реальных условиях приведет к улучшению ряда показателей:

       - улучшение показателей качества обработки информации

       - увеличение числа обслуживаемых  клиентов.

       -быстрое  обслуживание клиентов.

       К составляющим эффективность при использовании данной системы можно отнести также следующее:

       - появляется возможность проверить занятость любого номера.

       -выбор  класса номера

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

 

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

1. Р. Дженнингс  Microsoft Access 97 в подлиннике. Том I: пер. с англ.- СПБ.: BHV- Санкт – Петербург, 1997. – 624 с., ил.
2. Р. Дженнингс Microsoft Access 97 в подлиннике. Том II: пер. с англ.- СПБ.: BHV- Санкт – Петербург, 1997. – 688 с., ил.
3. Фаронов В.В. Ф24 Программирование баз данных в Delphi 7. Учебный курс. – СПБ.: Питер, 2005 – 459.: ил.
4. Бобровский С.И. Б72  Delphi 7. Учебный курс. – СПБ.: Питер, 2005 – 736.: ил.
5. Фленов М.Е. Библия  Delphi. - СПБ.: БХВ – Петербург, 2004. – 880 с.: ил.
6. Фаронов В.В. Ф24  Delphi. Программирование  на языке высокого уровня: Учебник для вузов – СПБ.: Лидер, 2010. – 640.: ил.
7. Климова Л.М. Основа программирования Решение типовых задач Delphi 7.Самоучитель. Кудиц-Образ Москва 2005.- 479.: ил.