ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное учреждение

среднего  профессионального образования

Уфимский  колледж статистики информатики  и

вычислительной  техники

Автоматизация РАБОТЫ АГЕНТСТВА

  ПО ПРОДАЖЕ АВИАБИЛЕТОВ

Пояснительная записка к курсовому проекту

 
 
 
 
 

2007

 

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное учреждение

среднего  профессионального образования

Уфимский  колледж статистики информатики  и

вычислительной  техники

 

    ЗАДАНИЕ

На курсовой проект студенту дневного отделения, группы 3П-4, специальности 230105     «Программное обеспечение ВТ и АС»  Конкину Дмитрию Игоревичу

      ^{(Фамилия,  имя, отчество)}

Тема: «Автоматизация работы агентства по продаже авиабилетов»

1. При выполнении курсового проекта должна быть представлена пояснительная записка, состоящая из следующих разделов и подразделов:

 

Введение

1. Постановка задачи

1.1     Описание предметной области

1.2     Информационная модель

1.3     Входная информация

1.4     Выходная информация

1.5     Описание структуры  БД

1.6     Функциональная схема  задачи

1.7     Контрольный пример 

2.       Экспериментальный раздел

2.1     Техническое задание

2.1.1  Основание для  разработки

2.1.2  Назначение разработки

2.1.3  Требования к программе

2.1.4  Требования к надёжности

2.1.5  Требования к составу  и параметрам технических  средств

2.2     Описание программы

2.2.1  Описание модулей

2.2.2  Модульная схема  задачи

2.2.3  Описание алгоритма

2.3     Руководство пользователя

3.       Программа и протокол  тестирования

     Заключение

     Приложения

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

II.       Графическая часть должна содержать лист формата А1 Информационная модель.

III.     Электронный носитель должен содержать исходные тексты программ

          и выполняемые файлы.

IV.     Список рекомендуемой литературы:

1. Гофман В.Э., Хомоненко А.Д. Работа с базами данных в Delphi. –       СПб.: БХВ – Петербург, 2002г.
2. Базы данных: модели, разработка, реализация/ Т.С. Карпова. – СПб.: Питер, 2001г.

 

Задание к выполнению получил  «13 февраля 2007г.

Студент  Конкин Дмитрий Игоревич

Срок  окончания «30» мая 2007г.

Руководитель  курсового проекта _______________ О.Н. Петрова

Задание рассмотрено на заседании цикловой комиссии информатики и программирования №6 «03» февраля 2007г.

Председатель  комиссии _____________ Р.Ф. Каримова

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное учреждение

среднего  профессионального образования

Уфимский  колледж статистики информатики и

вычислительной  техники 

ЗАКЛЮЧЕНИЕ

на курсовой проект по теме: «Автоматизация работы агентства по продаже авиабилетов»

Студент – Конкин Д.И. группа 3П-4, специальность 230105, дневное отделение

    Текст заключения: ____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

Руководитель  курсового проекта ___________ О.Н. Петрова

«___» ________________ 2007г.

Должность и место работы: заведующая отделением ПО Уфимского колледжа статистики информатики и вычислительной техники 

 
 
 
 
 
 

АННОТАЦИЯ 

     Пояснительная записка к курсовому проекту содержит постановку и программу решения задачи «Автоматизация работы агентства по продаже авиабилетов».

     Задача  написана в среде Delphi 7 на языке Object Pascal, автоматизирована программой Agentstvo.exe и отлажена на данных контрольного примера. 
 
 
 
 
 
 
 
 

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

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

           В 1949г. был построен первый компьютер на электронных  лампах, в котором были воплощены  принципы работ фон Неймана. За все  это время сменилось четыре поколения ЭВМ. Ясно, что каждое новое поколение является модернизированной формой старых поколений. Эта модернизация заключается в улучшении технико-экономических показателей: быстродействия, надежности, стоимости.

           Последнее поколение  ВТ – это микропроцессорные вычислительные машины, которые популярны во многих странах вот уже на протяжении многих лет.

           В настоящее время  индустрия производства компьютеров  и программного обеспечения для  них является одной из наиболее важных сфер экономики развитых стран. Ежегодно в мире продаются десятки миллионов компьютеров.

     

           Можно выделить несколько  основных направлений использования  ВТ:

1. Использование ЭВМ для решения громоздких математических задач, требующих высокую точность;
2. Сортирование и упорядочивание информации;
3. Хранение огромной справочной информации в виде библиотек, текстов, аудио- и видео - информации.

     

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

      В наши дни развитие такой сферы  общества, как авиационный транспорт,  очень важно. Множеству людей  изо дня в день, в любое время  года необходимо использование воздушного транспорта – для путешествий, бизнеса и т.д. Надежное распределение билетов играет в этом одну из главных ролей. Автоматизация продажи билетов существенно облегчит деятельность предприятий, занимающихся этим. Необходимость автоматизации данной задачи появилась в связи с тем, что информация о рейсах, которые имеются в агентстве (номер рейса, количество свободных мест, пункты отправления и назначения, дата, время вылета и другие сведения) могут быть затребованы, а поиск их на бумажных носителях затруднителен. 
 
 
 
 
 
 
 
 
 
 
 
 
 

1. ПОСТАНОВКА  ЗАДАЧИ

1.1. Описание предметной области

   Рассмотрим  агентство по продаже авиабилетов  на различные рейсы. Агентство ведёт  учёт проданных билетов и учёт пассажиров, купивших билеты.

   Необходимо  обеспечить ввод, хранение и редактирование данных. В определенных случаях необходимо выполнять удаление данных.

В связи  с этим существует необходимость  в хранении информации и обработке  данных, сгруппированных следующим  образом:

- информация  о расписании рейсов (номер рейса,  тип самолёта, пункт отправления,  пункт назначения, дата вылета, время вылета, время полёта, цена билета);

- информация  о свободных местах на рейс (номер рейса,  дата вылета, общее  количество мест, количество свободных  мест);

- информация  о пассажирах, заказавших билет  (фамилия, имя, отчество, предъявленный документ, его серия и номер, номер рейса, дата вылета);

   Особенностью  данной задачи является разграничение  прав доступа определённых групп  пользователей, т.е. информация в базе данных может использоваться как  пассажирами, так и служащими  агентства: кассирами и диспетчерами. Таким образом,  для защиты базы данных от несанкционированного использования выделяются три группы пользователей: пассажир, кассир и администратор. Кроме того, для каждой из групп пользователей следует предусмотреть набор механизмов по управлению данными, обеспечивающих лёгкость применения и функциональность этого программного продукта (например, фильтрация, сортировка и поиск записей).

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

    

   Входными  данными для базы пассажиров являются:

ФИО; Серия, номер паспорта; Класс; Место; Номер рейса 

   Входными  данными для базы самолётов являются:

Код самолёта; Тип самолёта; Общее количество мест;

Входными  данными для базы расписания рейсов являются:

Код рейса; Номер рейса; Код самолёта; Дата отправления; День отправления;  Время отправления; Дата прибытия; День прибытия; Время прибытия; 

Входными  данными для базы рейсов являются:

Номер рейса; Пункт отправления; Пункт  назначения; Время полёта; Цена билета 

    Основной  экономический эффект достигается  за счёт сокращения времени оформления входной и выходной информации. Сокращение времени происходит за счет компактного отображения данных. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

1.2. Информационная модель.

 

     

1.3. Описание входной информации

     Входным документоми, предоставляемыми пассажиром  для базы данных является паспорт, загранпаспорт (предоставляется по мере необходимости). 

     Таблица 1

     Описание  входных документов

       
 
 
 
 
 
 

     Входные данные, предоставляемые администратору: расписание рейсов и технические характеристики самолетов. 

     Таблица 2

     Описание  входных документов 
 

 

     На  основании этих данных создаются  следующие файлы: Passagiry.db, Raspisanie_reysov.db, Reysy.db, Samolety.db, Sam_pas_promeg.db, Sam_rasp_promeg.db. 
 
 

     Формы входных документов:

 
 

Рис.1 «Паспорт» 

     

     Рис.2 «Расписание рейсов»

     

Рис.3 «Технические характеристики самолетов» 
 
 

     1.4. Описание выходной информации

     Выходной  информацией для данной задачи является архив с информацией о выполненных  рейсах и отчёт о выполненных  рейсах.

     Таблица 3

     Описание  выходной информации

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Формы выходных документов: 

 

Рис.4 «Выполненные рейсы» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

7. Описание структуры БД

Таблица 4

 
 
 
 
 
 
 
 
 
 
 
 
 

8. Функциональная  схема задачи

 

 
 

 

 
 
 

 

 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

9. Контрольный пример

 

      Контрольный пример является ручным подсчётом задачи. Он представляет собой вариант задачи с известными результатами и используется для проверки правильности решения на ПЭВМ.

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

      

     На  основании документа, удостоверяющего личность, пассажир заносится в таблицу базы данных «Пассажиры»:

     - Passigiry.db

 

     На  основании расписания рейсов заносятся данные в таблицу базы данных «Расписание рейсов»:

     - Raspisanie_reysov.db

     На основании характеристик самолетов заносятся новые данные о самолете в таблицу базы данных «Самолеты»:

     - Samolety.db

     

     

     Выходные  документы целиком и полностью зависят от входных данных:  

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     2. ЭКСПЕРИМЕНТАЛЬНЫЙ РАЗДЕЛ

     2.1 Техническое задание

     2.1.1. Основание для разработки

     Задание преподавателя для проведения практических занятий и выполнения курсовой работы.

     2.1.2. Назначение разработки

     Программа предназначена для автоматизации работы агентства.

     2.1.3. Требования к программе.

• Программа должна работать в многооконном  графическом  режиме и поддерживать работу, как клавиатуры, так и манипулятора типа "мышь".
• Информация должна постоянно храниться на жестком диске ЭВМ.
• Должен быть обеспечен просмотр базы данных с возможностью удаления из нее указанной информации.
• Программа должна уметь  считывать  информацию из файла заданной структуры.

     Что касается защиты базы данных от несанкционированного доступа, то включаются несколько уровней доступа.

     2.1.4. Требования к надежности

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

     2.1.5. Требования к составу и параметрам технических средств

• Программное обеспечение разрабатывается для персональной вычислительной техники типа не ниже IBM PC-386 со следующими характеристиками:

     - объем ОЗУ не ниже 16 Mb;

     - графический адаптер SVGA;

     - манипулятор типа "мышь". 

2.2 Описание программы 

2.2.1. Модульная схема задачи  

 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

2.2.2. Описание модулей

 

    Программа «Автоматизация работы агентства по продаже авиабилетоа» состоит из 13 модулей, содержащих 10 форм и один модуль данных (DataModule). 

    Unit13

    Модуль  содержит главное меню (главная форма)

 

    Unit1

    Модуль  содержит данные о рейсах

 

    Unit3

    Модуль ввода пароля Администратора для доступа к данным

 

    Unit10

    Модуль ввода пароля Кассира для доступа к данным

    

      

    Unit7

    Модуль  для вызова справки «О программе…». 

    Unit6

    Модуль  отображения данных для Администратора.

 

    Unit5

    Модуль  отображения данных для Кассира.

    

    Unit8

    Модуль операций над базами данных.

 

    Unit11

    Модуль  для ввода и сохранения данных о пассажирах

 

    Unit12

    Модуль  для ввода и сохранения данных о самолетах, рейсах и расписании рейсов

 
 
 
 
 

2.2.3. Описание алгоритма

 

 
 

      Операции  с бд

                                                                
 
 

       Администратор

           

                                                                                            Кассир

                                            Ввод в бд Работа с бд       Ввод в бд

 

 О программе

 
 
 

 
 

 
 
 
 

2.3. Руководство пользователя

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

 

При нажатии  в главном меню на пункт «Агентство»  появляется форма с данными о рейсах и их расписании.

При нажатии  на кнопку «Отобразить расписание выбранного рейса» происходит соответствующее  действие. При нажатии на пункт  меню «Операции с БД» появляется следующая форма, на которой имеется возможность отсортировать, отфильтровать данные и найти нужную запись:

Также на форме «Агентство по продаже авиабилетов» имеется возможность перехода к просмотру большей информации, при нажатии на соответствующий пункт меню, через разграничение прав доступа: Кассир и Администратор

 

 
 

При входе  как Администратор появляется форма:

на которой  имеется возможность просмотреть  все данные (помимо данных о рейсах и их расписании) о пассажирах и самолетах. При нажатии на кнопку «Отобразить пассажиров на рейс» происходит соответствующее действие Также при нажатии на пункт меню «Работа с БД» можно добавить во все базы данных новые данные:

  

    При входе как Кассир появляется форма:

    

    При нажатии на пункт «Работа с  БД» появляется возможность произвести разлчные операции с базами данных: сортировку, фильтрацию, поиск. Кнопка «Показать сведения» дает возможность просмотра на какой рейс записан пассажир.

При нажатии  на пункт меню «Ввод в БД» можно  добавить новые данные о пассажирах:

 

    При нажатии в главном окне на пункт  меню «О программе» появится справочная информация о данном приложении:

      

    

    

    При нажатии в меню на пункт «Выход» осуществляется выход из программы. 
 
 
 
 
 

     

     

     3. ПРОГРАММА И ПРОТОКОЛ  ТЕСТИРОВАНИЯ 

     1. В таблице «Пассажиры» может возникнуть проблема с вводом номера паспорта из-за невнимательности.

     2. В таблице «Расиписание рейсов» из-за невнимательности могут быть неправильно записаны данные.

     3.  Программа не имеет контекстной справки.

     4. Выход из программы, командой «Выход». Вывод сообщения о подтверждении выхода из приложения.

     5. Ввод неправильного пароля доступа. Вывод сообщения пользователю о том, что пароль неверный.

     6. Качество программного средства незначительно снижено оформлением некоторых таблиц (не помещаются на экране), используются термины, которые могут быть недоступны простому пользователю.

      7. Защита от несанкционированного доступа к данным БД, т.е. разграничение прав      доступа различных групп пользователей

     8. При вводе некорректной даты выдаётся сообщение программы с просьбой исправить исходные данные 
 
 
 
 
 
 
 
 
 
 

     ЗАКЛЮЧЕНИЕ

     В процессе выполнения курсового проекта были разработаны структура и алгоритм работы приложения «Agentstvo.exe»

     При этом были учтены особенности реализации других компонентов информационной системы.

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

     Программное обеспечение написано на языке Object Pascal с использованием среды разработки Delphi 7.0.

     Были  приобретены навыки в области  построения баз данных, а также  их программной защиты. Кроме того, в стороне не осталось стилистическое и эстетическое оформление программного продукта, привлекающее внимание потенциального покупателя. Изучены приемы ускорения вычислений и исчислений, данных программой, в частности ускорен вывод информации отчетов при помощи RaveDesigner, FreeReport.

     Был проведен комплекс тестирования в составе  программы «Agentstvo.exe», в результате которого были устранены некоторые недостатки, а программа получила свое дальнейшее развитие и несколько расширила свои функции.

     После этого были написаны руководства пользователя и руководства по установке и настройке приложения.

     Приложение  было выполнено на данных контрольного примера. Полученные результаты полностью  совпали с полученными данными  контрольного примера. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЯ 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

1. Наименование  программного продукта – «Автоматизация агентства по продаже авиабилетов» («Agentstvo.exe»)
2. Поставщик – Конкин Д. И.
3. Дата разработки – 30.05.07г.
4. Дата выпуска – 30.05.07 г.
5. Данная программа занимает на диске 2,3 Мб
6. Адрес поставщика – г. Уфа, Левченко, 8 - 100
7. Основной задачей программного продукта является – облегчение работы кассира в агентстве.
8. Автором программы является Конкин Дмитрий Игоревич, который обучается в ГОУ УКСИВТ по специальности "Программное обеспечение ВТ и АС", в группе 3П-4

 

unit Unit13; 

interface 

uses

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

  Dialogs, jpeg, ExtCtrls, StdCtrls, Menus, DB, DBTables; 

type

  TForm13 = class(TForm)

    TableReis: TTable;

    Tablerasp: TTable;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem; 

    procedure N1Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N5Click(Sender: TObject); 

    procedure N6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form13: TForm13; 

implementation 

uses Unit1, Unit10, Unit3, Unit7; 

{$R *.dfm} 
 

procedure TForm13.N1Click(Sender: TObject);

begin

form1.show;

end; 

procedure TForm13.N4Click(Sender: TObject);

begin

form10.show

end; 

procedure TForm13.N3Click(Sender: TObject);

begin

form3.show;

end; 

procedure TForm13.N5Click(Sender: TObject);

begin

Form7.show;

end; 

procedure TForm13.N6Click(Sender: TObject);

begin

if MessageDlg('Вы  действительно хотите выйти?',mtWarning,mbOKCancel,1)=1

then Close;

end; 

end.

 

 

unit Unit1; 

interface 

uses Unit2, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls,

  Menus, jpeg;

type

  TForm1 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N8: TMenuItem;

    DBNavigator3: TDBNavigator;

    DBGrid2: TDBGrid;

    N6: TMenuItem;

    Button1: TButton;

    Button2: TButton;

    Table1: TTable;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    procedure N8Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Image1Click(Sender: TObject);

    procedure Label3Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject); 

  

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

uses Unit13, Unit10, Unit3, Unit7, Unit9, Unit8; 

{uses Unit1, Unit3, Unit4, Unit7, DBTables, Unit8, Unit9, Unit5, Unit6, Unit10,

     Unit13;

}

{$R *.dfm} 

procedure TForm1.N8Click(Sender: TObject);

begin

form13.close;

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

form10.show;

end; 

procedure TForm1.N4Click(Sender: TObject);

begin

form3.Show;

end; 

procedure TForm1.Image1Click(Sender: TObject);

begin

Form7.Show;

end; 

procedure TForm1.Label3Click(Sender: TObject);

begin

Form7.Show;

end; 

procedure TForm1.N9Click(Sender: TObject);

begin

Form9.show;

end; 

procedure TForm1.N10Click(Sender: TObject);

Var Krit:string;

begin

Krit:=InputBox('Фильтрация','Фильтровать по пункту отправления:','') ;

With DataModule2.TableReis do

begin

Filter:='punkt_naznach='''+Krit+'*''';

filtered:=true;

end;

end; 

procedure TForm1.N6Click(Sender: TObject);

begin

Form8.show;

end; 

procedure TForm1.Button2Click(Sender: TObject);

begin

DataModule2.TableRasp.MasterFields:='';

end; 
 

procedure TForm1.Button1Click(Sender: TObject);

begin

with DataModule2 do

begin

   TableRasp.MasterSource:=DSReis;

   TableRasp.IndexName:='ind_nomer';

   TableRasp.MasterFields:='Nomer_reisa';

 end; 

end; 

end. 
 
 
 

unit Unit2; 

interface 

uses

  SysUtils, Classes, DB, DBTables; 

type

  TDataModule2 = class(TDataModule)

    TableReis: TTable;

    TableRasp: TTable;

    TableSamol: TTable;

    TablePassagiry: TTable;

    DSReis: TDataSource;

    DSRasp: TDataSource;

    DSsamol: TDataSource;

    DSPassagiry: TDataSource;

    TableSamPasPromeg: TTable;

    TableSamRaspPromeg: TTable;

    DSSamPasProm: TDataSource;

    DSSamRaspPromeg: TDataSource;

    TableSamolKod_samoleta: TAutoIncField;

    TableSamolTip_samoleta: TStringField;

    TableSamolKol_vo_mest: TSmallintField;

    TableSamPasPromegKod_samoleta: TSmallintField;

    TableSamPasPromegKod_passagira: TFloatField;

    TableRaspKod_reisa: TSmallintField;

    TableRaspNomer_reisa: TFloatField;

    TableRaspKod_samoleta: TSmallintField;

    TableRaspData_otpravleniya: TDateField;

    TableRaspDen_otpravleniya: TStringField;

    TableRaspVremya_otpravleniya: TTimeField;

    TableRaspData_pribytiya: TDateField;

    TableRaspDen_pribytiya: TStringField;

    TableRaspVremya_pributiya: TTimeField;

    TableReisNomer_reisa: TAutoIncField;

    TableReisPunkt_otpravl: TStringField;

    TableReisPunkt_naznach: TStringField;

    TableReisCena_bileta: TCurrencyField;

    TableReisVremya_poleta: TTimeField;

    TableDocument: TTable;

    DSDocum: TDataSource;

    TablePassagiryKod_passagira: TAutoIncField;

    TablePassagiryFIO: TStringField;

    TablePassagiryDocument: TStringField;

    TablePassagirySeriyanomer: TStringField;

    TablePassagiryMesto: TSmallintField;

    TablePassagiryKlass: TStringField;

    TablePassagiryKod_reisa: TFloatField;

    procedure TableRaspCalcFields(DataSet: TDataSet);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  DataModule2: TDataModule2; 

implementation 

{$R *.dfm} 

procedure TDataModule2.TableRaspCalcFields(DataSet: TDataSet);

Var Kol:integer;

begin

DataModule2.TableRasp.FieldByName('').AsString:='';

end; 

end. 
 

unit Unit3; 

interface 

uses

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

  Dialogs, Grids, DBGrids, StdCtrls, Mask, ExtCtrls; 

type

  TForm3 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    LabeledEdit1: TLabeledEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3; 

implementation 

uses Unit5, Unit6, Unit1; 

{$R *.dfm} 

procedure TForm3.Button1Click(Sender: TObject);

begin

if LabeledEdit1.Text='1' then Form6.show

else begin ShowMessage('Пароль неверный');

LabeledEdit1.Text:='';

Form3.Hide;

form1.show;

end;

Form3.Hide;

end; 
 

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Hide;

end; 

end. 
 

unit Unit5; 

interface 

uses

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

  Dialogs,Unit2, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls; 

type

  TForm5 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBGrid2: TDBGrid;

    DBNavigator2: TDBNavigator;

    DBGrid4: TDBGrid;

   DBNavigator4: TDBNavigator;

    MainMenu1: TMainMenu;

    N3: TMenuItem;

    RadioGroup1: TRadioGroup;

    RadioGroup2: TRadioGroup;

    Edit1: TEdit;

    Label5: TLabel;

    N2: TMenuItem;

    N7: TMenuItem;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    N1: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Label4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure CheckBox2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5; 

implementation 

uses Unit10, Unit1, DBTables, DateUtils, Unit11; 

{$R *.dfm} 

procedure TForm5.N3Click(Sender: TObject);

begin

Form1.Close;

end; 

procedure TForm5.N4Click(Sender: TObject);

begin

RadioGroup2.Visible:=True;

end; 

procedure TForm5.Label4Click(Sender: TObject);

begin

Form5.Hide;

Form1.Show;

end; 
 

procedure TForm5.N5Click(Sender: TObject);

begin

RadioGroup1.Visible:=True;

end; 

procedure TForm5.RadioGroup1Click(Sender: TObject);

Var Fam,Klass:string;

begin

case RadioGroup1.ItemIndex of

0:with DataModule2.TablePassagiry do

    begin

     Fam:=InputBox('Агентство по продаже авиабилетов','Фильтровать по ФИО:','') ;

     begin

      Filter:='fio='''+Fam+'*''';

      filtered:=true;

    end;

  end;

1: with DataModule2.TablePassagiry do

    begin

     KLass:=InputBox('Агентство по продаже авиабилетов','Фильтровать по классу:','') ;

     begin

      Filter:='klass='''+KLass+'*''';

      filtered:=true;

    end;

  end;

2:DataModule2.TablePassagiry.Filtered:=False;

  end;

end; 
 

procedure TForm5.RadioGroup2Click(Sender: TObject);

begin

With DataModule2.TablePassagiry do

Case RadioGroup2.ItemIndex of

   0:IndexName:='';

   1:IndexName:='ind_fio';

   2:IndexName:='ind_kodReisa';

end;

end; 

procedure TForm5.N2Click(Sender: TObject);

begin

Edit1.Visible:=true;

Label5.Visible:=true;

With DataModule2.TablePassagiry do

   begin

    IndexName:='Ind_nomer';

    FindNearest([Edit1.Text]);

   end;

end; 

procedure TForm5.N6Click(Sender: TObject);

Var fio:string;

begin

Fio:=InputBox('Агентство  по продаже авиабилетов','Поиск  по фамилии:','');

 DataModule2.TablePassagiry.Locate('fio',fio,[{loPartiaiKey}]);

end; 

procedure TForm5.N7Click(Sender: TObject);

begin

DataModule2.TablePassagiry.Append;

form11.show;

end; 

procedure TForm5.CheckBox2Click(Sender: TObject);

begin

with DataModule2 do

begin

   TablePassagiry.MasterSource:=DSRasp;

   TableRasp.IndexName:='ind_kod';

   TableRasp.MasterFields:='kod_reisa';

end

end; 

procedure TForm5.Button3Click(Sender: TObject);

begin

with DataModule2  do begin

TablePassagiry.MasterSource:=DSRasp;

TablePassagiry.IndexName:='ind_kodReisa';

TablePassagiry.MasterFields:='kod_reisa';

end;

end; 

procedure TForm5.Button4Click(Sender: TObject);

begin

DataModule2.TablePassagiry.MasterFields:='';

end; 

procedure TForm5.Button1Click(Sender: TObject);

begin

with DataModule2 do

begin

   TableRasp.MasterSource:=DSReis;

   TableRasp.IndexName:='ind_nomer';

   TableRasp.MasterFields:='Nomer_reisa';

end;

end; 

procedure TForm5.Button2Click(Sender: TObject);

begin

DataModule2.TableRasp.MasterFields:='';

end; 

procedure TForm5.N9Click(Sender: TObject);

begin

Form13.RvProject1.Execute;

end;  

procedure TForm5.N10Click(Sender: TObject);

begin

Form13.RvProject2.Execute;

end; 

end. 
 

unit Unit6; 

interface 

uses

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

  Dialogs, Unit2, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls; 

type

  TForm6 = class(TForm)

    MainMenu1: TMainMenu;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBNavigator2: TDBNavigator;

    DBGrid3: TDBGrid;

    DBNavigator3: TDBNavigator;

    DBGrid4: TDBGrid;

    DBNavigator4: TDBNavigator;

    CheckBox1: TCheckBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    N1: TMenuItem;

    N2: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N6: TMenuItem;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

  

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form6: TForm6; 

implementation 

uses Unit1, Unit12, Unit13, DBTables; 

{$R *.dfm} 
 
 

procedure TForm6.Button1Click(Sender: TObject);

begin

with DataModule2 do

begin

   TableRasp.MasterSource:=DSReis;

   TableRasp.IndexName:='ind_nomer';

   TableRasp.MasterFields:='Nomer_reisa';

end;

end; 

procedure TForm6.Button2Click(Sender: TObject);

begin

DataModule2.TableRasp.MasterFields:='';

end; 

procedure TForm6.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then

  with DataModule2 do

  begin

   TableSamol.MasterSource:=DSRasp;

   TableSamol.IndexFieldNames:='kod_samoleta';

   TableSamol.MasterFields:='kod_samoleta';

  end

else    DataModule2.TableSamol.MasterFields:=''; 
 

end; 

procedure TForm6.Button3Click(Sender: TObject);

begin

with DataModule2  do begin

TablePassagiry.MasterSource:=DSRasp;

TablePassagiry.IndexName:='ind_kodReisa';

TablePassagiry.MasterFields:='kod_reisa';

end;

end; 

procedure TForm6.Button4Click(Sender: TObject);

begin

DataModule2.TablePassagiry.MasterFields:='';

end;

procedure TForm6.N11Click(Sender: TObject);

begin

DataModule2.TableSamol.Append;

form12.show;

form12.PageControl1.TabIndex:=0;

end; 

procedure TForm6.N12Click(Sender: TObject);

begin

DataModule2.TableReis.Append;

form12.show;

form12.PageControl1.TabIndex:=1;

end; 

procedure TForm6.N13Click(Sender: TObject);

begin

DataModule2.TableRasp.Append;

form12.show;

form12.PageControl1.TabIndex:=2;

end; 

procedure TForm6.N6Click(Sender: TObject);

begin

form13.hide;

close;

end; 

procedure TForm6.N2Click(Sender: TObject);

begin

Form13.RvProject1.Execute;

end; 

procedure TForm6.N8Click(Sender: TObject);

begin

Form13.RvProject2.Execute;

end; 

end. 

unit Unit7; 

interface 

uses

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

  Dialogs, jpeg, ExtCtrls, StdCtrls; 

type

  TForm7 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form7: TForm7; 

implementation 

{$R *.dfm} 

end. 
 

unit Unit8; 

interface 

uses

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

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

type

  TForm8 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    RadioGroup1: TRadioGroup;

    DBGrid2: TDBGrid;

    DBNavigator2: TDBNavigator;

    RadioGroup2: TRadioGroup;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    RadioGroup3: TRadioGroup;

    Button1: TButton;

    Button2: TButton;

    Label3: TLabel;

    Label2: TLabel;

    Button3: TButton;

    procedure RadioGroup1Click(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);

    procedure RadioGroup3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form8: TForm8; 

implementation 

uses DBTables, DB, ComObj; 

{$R *.dfm} 

procedure TForm8.RadioGroup1Click(Sender: TObject);

Var Krit1,Krit:string; 

begin

case RadioGroup1.ItemIndex of

0:begin

with DataModule2.TableReis do

   begin

        Krit:=InputBox('Агентство по продаже авиабилетов','Фильтровать по пункту отправления:','') ;

         begin

        Filter:='punkt_otpravl='''+Krit+'*''';

        Filtered:=True;

      end;

         end;

   end;

1:begin

   with DataModule2.TableReis do

    begin

     Krit:=InputBox('Агентство по продаже  авиабилетов','Фильтровать по пункту  назначения:','') ;

      Filter:='punkt_naznach='''+Krit+'*''';

      Filtered:=true;

   end; 

  end;

2:begin

  with DataModule2.TableRasp do

   begin

     IndexFieldNames:='data_otpravleniya';

     SetRangeStart;

     FieldByName('data_otpravleniya').AsDateTime:=DateTimePicker1.Date;

     SetRangeEnd;

     FieldByName('data_otpravleniya').AsDateTime:=DateTimePicker2.Date;

     ApplyRange;

    end;

  end;

3:begin

  DataModule2.TableReis.Filtered:=False;

  DataModule2.TableRasp.Filtered:=False; 

  DataModule2.TableRasp.CancelRange;

  end;

end;

end; 

procedure TForm8.RadioGroup2Click(Sender: TObject);

begin

with DataModule2.TableReis do

    case RadioGroup2.ItemIndex of

      0:IndexName:='ind_otpravl';

      1:IndexName:='ind_naznach';

    end;

end; 

procedure TForm8.RadioGroup3Click(Sender: TObject);

var punkt:String;

begin

case RadioGroup3.ItemIndex of

0:begin

  punkt:=InputBox('Агентство  по продаже авиабилетов','Поиск  по пункту назначения:','');

  DataModule2.TableReis.locate('Punkt_naznach',punkt,[loPartialKey]);

  end;

1:begin

  Button3.Visible:=true;

  DataModule2.TableRasp.locate('Data_otpravleniya',DateTimePicker1.Date,[loPartialKey]);

  end; 

end; 

end; 
 

procedure TForm8.Button1Click(Sender: TObject);

begin

with DataModule2 do

begin

   TableRasp.MasterSource:=DSReis;

   TableRasp.IndexName:='ind_nomer';

   TableRasp.MasterFields:='Nomer_reisa';

end; 

end; 

procedure TForm8.Button2Click(Sender: TObject);

begin

DataModule2.TableRasp.MasterFields:='';

end; 

procedure TForm8.Button3Click(Sender: TObject);

begin

form8.Hide;

end;

end.

unit Unit10; 

interface 

uses

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

  Dialogs, StdCtrls, Mask, ExtCtrls; 

type

  TForm10 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    LabeledEdit1: TLabeledEdit;

    procedure Button1Click(Sender: TObject);

   

    procedure Button2Click(Sender: TObject);

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form10: TForm10; 

implementation 

uses Unit5, Unit1; 

{$R *.dfm} 

procedure TForm10.Button1Click(Sender: TObject);

begin

if  labelededit1.Text='1' then Form5.show

else begin ShowMessage('Пароль неверный');

labelededit1.Text:='';

Form10.hide;

form1.show;

end;

Form10.hide;

end; 
 
 

procedure TForm10.Button2Click(Sender: TObject);

begin

Form10.Hide;

end; 

end. 
 
 

unit Unit11; 

interface 

uses

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

  Dialogs, DBCtrls, StdCtrls, Mask, unit2, Grids, DBGrids, Menus; 

type

  TForm11 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBLookupComboBox2: TDBLookupComboBox;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form11: TForm11; 

implementation 

{$R *.dfm} 

procedure TForm11.Button1Click(Sender: TObject);

begin

//сохранить

DataModule2.TablePassagiry.Post

end; 

procedure TForm11.FormActivate(Sender: TObject);

begin

DataModule2.TablePassagiry.Insert

end; 

procedure TForm11.Button2Click(Sender: TObject);

begin

form11.Hide;

end; 

end. 

unit Unit12; 

interface 

uses

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

  Dialogs, ComCtrls, unit2, StdCtrls, DBCtrls, Mask, ExtCtrls; 

type

  TForm12 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    Button2: TButton;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    DBEdit9: TDBEdit;

    DBEdit10: TDBEdit;

    DBEdit11: TDBEdit;

    DBEdit12: TDBEdit;

    DBEdit13: TDBEdit;

    DBEdit14: TDBEdit;

    DBEdit15: TDBEdit;

    DBEdit16: TDBEdit;

    DBEdit17: TDBEdit;

    Button3: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form12: TForm12; 

implementation 

{$R *.dfm} 
 

procedure TForm12.Button1Click(Sender: TObject);

begin

//сохранить

DataModule2.TableSamol.Post

end; 

procedure TForm12.Button2Click(Sender: TObject);

begin

//сохранить

DataModule2.TableReis.Post

end; 

procedure TForm12.Button3Click(Sender: TObject);

begin

//сохранить

DataModule2.TableRasp.Post

end; 

procedure TForm12.FormActivate(Sender: TObject);

begin

DataModule2.TableReis.MasterFields:='';

DataModule2.TablePassagiry.MasterFields:='';

DataModule2.TableRasp.MasterFields:='';

end; 

procedure TForm12.FormCreate(Sender: TObject);

begin

with PageControl1.Pages[0] do

DBEdit1.Text:='';

DBEdit2.Text:='';

DBEdit3.Text:=''; 

with PageControl1.Pages[1] do

DBEdit4.Text:='';

DBEdit5.Text:='';

DBEdit6.Text:='';

DBEdit7.Text:='';

DBEdit8.Text:=''; 

with PageControl1.Pages[1] do

DBEdit9.Text:='';

DBEdit10.Text:='';

DBEdit11.Text:='';

DBEdit12.Text:='';

DBEdit13.Text:='';

DBEdit14.Text:='';

DBEdit15.Text:='';

DBEdit16.Text:='';

DBEdit17.Text:='';

end; 

end. 
 
 
 
 

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

1. С.А. Орлов. Технологии разработки программного обеспечения. Санкт-Петербург. «Питер»,2002
2. Эрик Дж. Брауде. Технология разработки программного обеспечения. Санкт-Петербург. «Питер», 2004
3. ГОСТ Р ИСО/МЭК 9294-93. Информационная технология. Руководство по управлению документированием программного обеспечения.
4. ГОСТ Р ИСО/МЭК 9126-93. Информационная технология. Оценка программной продукции. Характеристика качества и руководство по их применению.
5. ГОСТ Р ИСО/МЭК 12119:2000. Информационная технология. Пакеты программных средств.        Требования к качеству и испытаниям