Автоматизированная система бронирования туристических путевок

Система реализована с помощью современной среды программирова-ния DELPHI и клиент серверных технологий на основе MS SQL.
Такая реализация позволяет решить поставленную задачу.
Программа позволяет вести автоматизированный контроль за распределением путевок в туристическом агентстве.
Кроме учета показателей программа позволяет редактировать списки покупателей, туров, анализировать количество свободных путевок в каждом туре.
Разработанная программа может быть использована в различных туристических агентствах. Это обусловлено компактностью и открытостью исходных модулей, обеспечивающих возможность модификации с учетом специальных требований предприятия, а также доказанной в разделе 3.3. экономической эффективностью внедрения.
Дальнейшее совершенствование данной работы может производиться в на ...

Введение 5
ГЛАВА1. ТЕОРЕТИЧЕСКИЕ ОСНОВЫ 7
1.1. Постановка задачи 7
1.2. Анализ существующих систем автоматизации 8
1.2.1. Программный продукт для автоматизации турагентств «САМО-ТурАгент» компании «САМО-Софт» 8
1.2.2. Программа автоматизации турагентств TourMANAGER 15
ГЛАВА2. ОБОСНОВАНИЕ ВЫБОРА ПРОГРАММНЫХ СРЕДСТВ 18
2.1 Программный продукт Delphi. 18
2.2. Анализ и выбор технологии баз данных 41
3.1. Функциональное моделирование работы проектируемой системы. 48
3.2. Структура базы данных 54
3.4. Экономическое обоснование разработки программного 74
продукта 74
3.4.1 Обоснование выбора объекта для сравнения 74
3.4.2 Расчёт затрат на разработку и цены программы 74
3.4.3 Расчёт капитальных вложений 76
Заключение 78
Список использованных источников 79
Приложение 1. Текст программы. 82

В настоящее время значительное внимание уделяется внедрению со-временных информационных технологий в различные сферы деятельности. Особенно активно использование вычислительной техники в системах бухгалтерского учета. Значительное количество служб и бюро связанных с оказанием услуг в сфере туристического бизнеса представляют собой малые предприятия, которые не могут себе позволить дорогостоящую вычислительную технику и громоздкое программное обеспечение.
Решение данной проблемы могла бы стать разработка мобильной, компактной и недорогой системы, позволяющей автоматизировать некоторые компоненты работы туристического агентства
Данная работа направлена на решение одной из задач автоматизации туристического агентства. Предлагаемая программа может быть использована различными предприятиями, оказывающими туристические услуги. В отличие от громоздких и дорогостоящих прототипов предлагаемая система является «легкой», клиент-серверной СУБД, простой в обслуживании и модификации.
Целью данной работы является создание системы автоматизации бронирования путевок в туристическом агентстве на основе среды DELPHI и MSSQL.
Для реализации поставленной цели рассматриваются следующие зада¬чи:
• Внедрение информационных технологий в малом бизнесе;
• Упрощение работы персонала туристического агентства;
Актуальность данной выпускной квалификационной работы заключается в том, что разработанная программа позволяет решить проблему контроля за распределением путевок в туристическом агентстве. Программа позволяет автоматизировать работу административно-управленческого персонала туристического агентства.
Объект исследования - автоматизация административно-управленческой деятельности в малом бизнесе.
Предмет исследования - автоматизация бронирования путевок в тури-стическом агентстве.
Квалификационная работа состоит из введения, трех глав, заключения, списка литературы и двух приложений.
Во введении рассматриваются актуальность данной темы, задачи, цель и основные характеристики.
В первой главе рассматриваются задачи в развернутом виде и анализ программных средств на предмет возможности решения этих задач.
Во второй главе мы описываем комплекс программных средств.
В третьей главе рассматривается структура баз данных и описываются компоненты, которые использовались в программе. Приводится экономическое обоснование внедрения предлагаемых программных средств.
В заключении приведены основные выводы и результаты работы.
Приложение 1: руководство пользователю по работе с программой.
Приложение 2: текст программы в среде программирования Delphi.
Литература содержит 45 источников

procedure QRForm.QuickReplPreview(Sender: TObject); begin
PrevForm.QRPreviewl.QRPrinter:= TQRPrinter(Sender);
if not PrevForm.Visible then
PrevForm.Show
end;
Здесь PrevForm – форма с размещенным на ней компонентом QRPreviewl, a QRForm – форма-контейнер для QuickRepl. Проверку видимости формы PrevForm можно убрать, если заведомо известно, что соответствующее окно имеется на экране. Чтобы явное приведение типа TQRPrinter (Sender) стало возможным, необходима ссылка на модуль QRPrntr в предложении uses соответствующего модуля.
КОМПОНЕНТ TQRBAND
Компоненты TQRBand являются основными составными частями отчета type TQRBandType = (rbTitle,
rbPageHeader, rbDetail, rbPageFooter, rbSummare, rbGroupHeader, rbGroopFooter, rbSubDetail, rbColumnHeader);
property BandType: TQRBandType;
Указывает назначение полосы: rbTitle – содержит заголовок отчета; rbPageHeader – содержит заголовок страницы (на первой
странице печатается под rbTitle); rbDetail – содержит информацию из НД; выводится
всякий раз при переходе на новую запись в
НД; эта полоса повторяется для всех записей DataSet, начиная с первой записи и заканчивая последней; позиционирование на первую запись и последовательный их перебор осуществляется компонентом TquickRep автоматически; rbPageFooter – содержит подвал страницы; выводится в конце каждой страницы отчета после всех других полос; rbSummare – подвал отчета; выводится на последней странице отчета после всей иной информации, но перед подвалом последней страницы; rbGroupHeader – содержит заголовок группы; применяется при группировках информации в отчете и выводится всякий раз при выводе новой группы; rbGroopFooter – содержит подвал группы; выводится всякий раз при окончании вывода группы, после всех данных группы; ловка страницы.
property Enabled: Boolean;
Разрешает/запрещает печать полосы.
property ForceNewColumn: Boolean;
Если содержит True, полоса печатается в следующей колонке.
property ForceNewPage: Boolean;
Если содержит True, полоса печатается на новой странице.
property HasChild: Boolean;
Если содержит True, полоса имеет дочернюю полосу TChildBand. Установка True в это свойство автоматически создает в отчете дочернюю полосу.
События
property AfterPrint: TQRAfterPrintEvent;
и
property BeforePrint: TQRBeforePrintEvent;
наступают соответственно до и после печати полосы. Метод
function AddPrintable(PrintableClass: TQRNewComponentClass): TQRPrintable;
используется для вставки в полосу отображающего компонента в процессе прогона программы. Он автоматически устанавливает между полосами отношение собственности. Два следующих фрагмента выполняют одинаковую работу:
with DetailBandl.AddPrintable(TQRLabel) do
begin
Size.Left := 20;
Size.Top := 5;
Caption := 'Новая полоса';
end;
var
aLabel: TQRLabel;
begin
aLabel := TQRLabel.Create(ReportForm);
aLabel.Parent := DetailBandl;
with aLabel do
begin
Size.Left := 20;
Size.Top := 5;
Size.Caption := 'Новая полоса';
end;
end;
Компоненты TQuickRep и TQRBand являются минимально достаточными для создания простого отчета, не содержащего внутри себя группировок информации.
Пусть имеется таблица БД Rashod.DB, содержащая сведения об отпуске материалов со склада. В состав ТБД входят поля
• N_RASH – уникальный номер события отпуска товара;
• DEN – номер дня;
• MES – номер месяца;
• GOD – номер года;
• TOVAR – наименование отпущенного товара;
• POKUP – наименование покупателя;
• KOL VO – количество единиц отпущенного товара.
Заметим, что дата отпуска товара хранится в разбивке на день, год и месяц. Сделано так специально, с целью показать, как в отчетах используются выражения и вычисляемые поля.
Создадим простейший отчет, состоящий из заголовка и сведений об отпуске товара. В отчет включаются все факты отпуска товара. Сортировка производится по номеру события отпуска товара. Для этого разместим на форме компонент ТТаЫе, свяжем его с таблицей Rashod.DB и откроем (Active - True). Разместим на форме компонент TQuickRep. Поместим в его свойство DataSet значение Tablel, назначив таким образом отчету НД, записи которого будут выводиться в отчете. Добавим в отчет компонент TQRBand. В его свойство BandType компонента QRBandl по умолчанию будет установлено значение rbTitle, то есть компонент QRBandl определяет заголовок отчета. Разместим на QRBandl компонент TQRLabel. Установим в свойство Caption этого компонента значение Отпуск товаров со склада и выберем в свойстве Font жирный наклонный шрифт высотой 16 пунктов.
Теперь разместим в отчете данные, соответствующие текущей записи таблицы Rashod. Для этого поместим в отчет новый компонент TQRBand (имя QRBandl] и установим в его свойство BandType значение rbDetail. Затем разместим на полосе QRBand2 шесть компонентов TQRDBText. Свяжем эти компоненты с полями НД – N_RASH, TOVAR, KOLVO, DEN, MES, GOD. Для этого в свойство DataSet каждого компонента QRDBText установим значение Tablel, а в свойство DataField – имя соответствующего поля.
Для просмотра получившегося отчета щелкнем по нему правой кнопкой мыши и из всплывающего меню выберем элемент Preview. Окно предварительного просмотра отчета показано на рис.
Чтобы окно предварительного просмотра открывалось при активизации формы, создадим такой обработчик события OnActivate формы:
procedure TForml.FormActivate(Sender: Tobject);
begin
QuickRepl.Preview;
end;
а чтобы после выхода из окна предварительного просмотра закрывалась бы и форма, на которой расположен отчет, используем такой обработчик события AfterPreview:
procedure TForml.QuickReplAfterPreview(Sender: TObject);
begin
Forml.Close;
end;
В поле Enter expression можно ввести или отредактировать выражение, которое обычно состоит из имен полей НД, преобразующих функций и переменных, связанных операциями отношения. Имена полей НД добавляются в текущее положение курсора (поле Enter expression) с помощью вспомогательного окна, связанного с кнопкой Database field, функции – с помощью окна, связанного с кнопкой Function, а переменные – с кнопкой Variable.
Нажмите кнопку Function, в левом окне выберите категорию Other (другие) и функцию STR в правом окне – эта функция преобразует числовое значение в строковое. Нажмите Continue, чтобы перейти к вводу параметров (рис.). Надпись над строкой ввода окна Expression Wizard напоминает о том, что выбранная нами функция имеет один числовой параметр.
Для его ввода нажмите кнопку справа от строки ввода – на экране вновь появится начальное окно редактора формул. Поскольку мы хотим преобразовывать в строку номер дня, нажмите кнопку Database field и выберите поле DEN в списке полей таблицы Tablel. Нажмите ОК, чтобы вставить поле, затем ОК, чтобы закрыть окно редактора формул, и еще раз ОК, чтобы завершить ввод параметра. В поле Enter expression будет сформирована часть формулы – STR(Tablel.DEN). На панели Insert at cursor position нажмем кнопку «+» и вручную введем разделитель ' . ' Продолжите формировать выражение так, чтобы в конце концов оно приобрело такой вид:
STR(Tablel.DEN) + '.' + STR(Tablel.MES) + '.' + STR(Tablel.GOD)
(возможно, проще ввести его вручную). Затем нажмите кнопку ОК, чтобы закрыть окно редактора форму. С помощью Инспектора Объектов установите в свойство AutoSize компонента QRExprl значение False, измените размеры компонента так, чтобы он мог отображать примерно 10 символов, и установите выравнивание вправо (свойство Alignment = taRightiustify). Запустите режим предварительного просмотра содержимого отчета (рис.). Как видим, дата отпуска товара приобрела более привычный вид.
Замечание. Другим способом составления значения даты из трех полей могло бы быть создание вычисляемого поля (например, SumDatd) и определение алгоритма вычисления его значения в таком обработчике события OnCalcFields:
procedure TForml.TablelCalcFields(DataSet: TDataSet);
begin
TablelSumData.Value := TablelDEN.AsString + '.' + TablelMES.AsString + '.' + TablelGOD.AsString;
end;
Компонент TQRBand, у которого в свойство BandType установлено значение rbColumnHeader, используется для размещения заголовков столбцов. Собственно заголовки столбцов формируются при помощи компонентов TQRLabel.
В рассмотренном в предыдущих разделах отчете разместим компонент TQRBand (имя QRBandS) и установим в его свойство BandType значение rbColumnHeader. На полосе QRBand3 разместим четыре компонента TQRLabel (имена QRLabeU ... QRLabelS) и установим в свойства Caption этих компонентов соответственно значения №№, Товар, Количество, Дата. В свойствах Font компонентов выберем наклонный и подчеркнутый шрифт. Вызовем окно предварительного просмотра отчета – для каждой страницы отчета теперь будут выводиться названия столбцов.
Компонент TQRBand, у которого в свойство BandType установлено значение rbPageHeader, используется для показа заголовка страницы, а если в это свойство установлено значение rbPageFooter – для показа подвала страницы. Заголовок выводится в начале каждой страницы, а подвал – в ее конце. Информация в заголовке и подвале страницы может формироваться на основе статического текста (компоненты TQRLabel), значений полей (компоненты TQRDBText) и результатов вычисления выражений (компоненты TQRExpr).
Вернувшись к предыдущему примеру, разместим в отчете компонент TQRBand (имя QRBand4) и установим в его свойство BandType значение rbPageHeader. He будем размещать в заголовке страницы никакого текста, просто отчеркнем линию вверху страницы. Для этого установим в свойство компонента заголовка страницы Frame.DrawTop значение True, что обеспечивает вывод линии по верхнему краю области, занимаемой компонентом. Аналогичным образом определим в отчете компонент подвала страницы (имя QRBandS) и установим в его свойство Frame.DrawBottom значение True, что обеспечивает вывод линии по нижнему краю области, занимаемой компонентом.
2.2. Анализ и выбор технологии баз данных
Реляционная база данных - это совокупность отношений, содержащих всю информацию, которая должна храниться в базе данных. То есть база данных представляет собой набор таблиц, необходимых для хранения всех данных. Таблицы реляционной базы данных логически связанны между собой.
Требования к проектированию реляционной базы данных в общем виде может свести к нескольким правилам:
каждая таблица имеет уникальное в базе данных имя и состоит из од­нотипных строк;
каждая таблица состоит из фиксированного числа колонок и значе­ний. В одной колонке строки не может быть сохранено более одного значе­ния;
ни в какой момент времени в таблице не найдется двух строк, дубли­рующих друг друга. Строки должны отличаться хотя бы одним значением, чтобы у нас была возможность однозначно идентифицировать любую строку таблицы;
каждой колонке присваивается уникальное в пределах таблицы имя; для нее устанавливается конкретный тип данных, чтобы в этой колонке раз­мещались однородные значения (даты, фамилии, телефоны, денежные суммы
и т.д.);
полное информационное содержание базы данных представляется в виде явных значений самих данных, и такой метод представления является единственным. Например, связь между таблицами осуществляется на основе хранимых в соответствующих колонках данных, а не на основе каких-либо указателей, искусственно определяющих связи;
при выполнении обработки данных можно свободно обращаться к любой троке или любой колонке таблицы. Значения, хранимые в таблице, не накладывают никаких ограничений на порядок обращения к данным.
Система управления базами данных реализована в SQL сервере MSSQL.
Язык SQL предназначен исключительно для описания запросов к базам данных и поэтому отличается от других языков программирования высокого уровня.
Во-первых, этот язык предназначен для манипулирования данными из реляционных БД, поэтому логика языка опирается на четкую табличную структуру данных, что позволило использовать достаточно простой набор основных команд (простой объект работы - простое средство работы).
Во-вторых, в языке SQL реализована трехзначная логика, то есть помимо значений True и False логические переменные могут принимать значение unknown, которое соответствует пустой ячейке таблицы или значению Null.
В-третьих, SQL — это непроцедурный язык. Запрос определяет, что нужно сделать с данными и передается для выполнения СУБД, он не является последовательностью инструкций.
Все операторы языка разбиты на три основные категории:
Операторы контроля данных (Data Control Statements) используются для проверки полномочий пользователя, обращающегося к базе данных. Это операторы grant и revoke.
Язык определения данных (Data Definition Language - DDL) содержит операторы для создания объектов БД и определения их структуры. К ним относятся операторы create schema, create table, create view, create DOMAIN.
Язык управления данными (Data Manipulation Language - DML) объединяет операторы поиска, удаления, изменения и сохранения данных. Сюда входят операторы select, update, insert, delete. Важнейшим из них (вероятно, и во всем языке SQL) является оператор select. Реализация SQL в Delphi.
До настоящего момента мы обсуждали проблемы разработки локальных приложений БД. Теперь же обратимся к вопросам разработки программ в ар­хитектуре клиент/сервер. В чем же состоит различие между этими типами приложений?
Было бы неверно думать, что локальные приложения БД работают толь­ко на одном компьютере и в этом состоит их главная особенность. На самом деле такая программа вполне может функционировать в локальной сети и об­служивать нескольких клиентов одновременно.
Основное же отличие между локальными и клиент/серверными прило­жениями заключается в четком разграничении функций приложения и их распределении по различным компьютерам. При этом говорят о серверной и клиентской частях приложения. На сервер ложится обязанность по управле­нию базой данных и обслуживанию многочисленных клиентских запросов, а клиент обслуживает отдельного .пользователя и "умеет" связываться с серве­ром, отправлять запросы и получать результаты.
Таким образом, архитектура клиент/сервер обеспечивает одновременное обслуживание множества пользователей. Естественно, что применяются они на больших промышленных предприятиях, в крупных компаниях и корпора­циях и т. д.
Архитектура клиент/сервер предъявляет очень высокие требования к серверной части, которая строится на основе специальных программных комплексов, которые так и называются серверами БД или серверами SQL, так как при работе с ними используется специальный язык запросов к базам дан­ных SQL (Structured Query Language).
SQL- это легкий для понимания язык и в то же время универсальное программное средство управления данными.
Успех языку SQL принесли следующие его особенности:
Независимость от конкретных СУБД;
Переносимость с одной вычислительной системы на другую;
Наличие стандартов;
Одобрение компанией IBM (СУБД DB2);
Поддержка со стороны компании Microsoft (протокол ODBC);
Реляционная основа;
Высокоуровневая структура, напоминающая английский язык;
Возможность выполнения специальных интерактивных запросов;
Обеспечение программного доступа к базам данных;
Возможность различного представления данных;
Полноценность как языка, предназначенного для работы с базами
данных;
Возможность динамического определения данных;
Поддержка архитектуры клиент/сервер.
Все перечисленные выше факторы явились причиной того, что SQL стал стандартным инструментом для управления данными на персональных ком­пьютерах, мини-компьютерах и больших ЭВМ.
SQL используется для считывания информации из базы данных с по­мощью оператора SELECT. Можно прочитать данные полностью либо час­тично, отсортировать их и получить итоговые значения (вычисляя суммы и средние величины).
SQL используется для изменения базы данных. Оператор INSERT до­бавляет новые данные, оператор DELETE удаляет данные, а оператор UP­DATE обновляет существующие данные.
SQL используется для управления доступом к базе данных. С помощью операторов SQL предоставляются и отменяются различные привилегии для различных пользователей.
SQL используется для создания базы данных, определения структуры новых таблиц и удаления таблиц, ставших ненужными.
В настоящее время распространена классификация приложений баз дан­ных в соответствии с уровнями обработки данных. В соответствии с ней про­стые однопользовательские программы, работающие с маломощными локальными СУБД, являются одноуровневыми. В таких приложениях вся обра­ботка данных ведется самой программой, а СУБД лишь обеспечивает доступ к таблицам.
Созданные в Delphi приложения баз данных для взаимодействия с дан­ными используют возможности BDE, который представляет собой еще один уровень обработки. Однако так как BDE обеспечивает выполнение сервис­ных операций, то при классификации приложений баз данных BDE обычно не учитывается.
Для создания эффективных приложений клиент/сервер необходимо уметь использовать разнообразные специализированные инструменты. Глав­ное место среди них принадлежит языку запросов SQL и компоненту доступа к данным TQuery, который обеспечивает применение запросов в приложени­ях баз данных.
Все обращения из приложения к таблицам одной базы данных на сервере осуществляются через одно соединение, на которое замыкаются все компо­ненты доступа к данным, имеющие соответствующие значения свойства Da-tabaseName.
Все управление одиночным соединением с какой-либо базой данных осуществляется компонентом TDatabase. В общем случае применение этого компонента в приложениях баз данных необязательно. Однако при работе с серверами SQL он необходим, так как:
позволяет управлять соединением с базой данных;
позволяет управлять транзакциями проще, чем при помощи операторов SQL;
обеспечивает регистрацию пользователя на сервере.
При обычном использовании локальных баз данных можно прекрасно обойтись и без этого компонента. В процессе работы компонент активно использует параметры псевдони­мов и драйверов BDE.
Для определения базы данных (сервера), с которой приложение устанав­ливает соединение при помощи компонента TDatabase, чаще используется СВОЙСТВО AliasName. Свойства DatabaseName и DriverName предоставля­ют альтернативный способ создания соединения. Если соединение задано свойством AliasName, то свойство DatabaseName можно использовать для создания временного псевдонима, который будет доступен только для ком­понентов доступа к данным внутри приложения. При щелчке на кнопке спи­ска доступных псевдонимов свойства DatabaseName в Инспекторе объектов для любого компонента доступа к данным, в списке будет доступен и вре­менный псевдоним компонента TDatabase.
Например, при переключении приложения на другую базу данных можно изменить только значение псевдонима в компоненте TDatabase. Если все компоненты наборов данных подключены к временному псевдониму компо­нента TDatabase, то они автоматически переключатся на новую БД.
Если наборы данных приложения подключены к базе данных через компонент TDatabase, то перед их открытием необходимо установить соединение с БД. Соединение с БД устанавливается при помощи метода open. Если по­пытаться активизировать набор данных без этого, то соединение будет уста­новлено автоматически. Аналогичная картина возникает при закрытии набо­ров данных и отключении от БД.
При подключении к базе данных довольно часто требуется задать значе­ния для параметров драйвера BDE.
Главную роль в подготовке и дис­петчеризации запросов SQL играет BDE. Непосредственную обработку за­просов выполняет специальный элемент архитектуры процессора БД - сис­тема обработки запросов, которая идентифицирует набор данных запроса, выполняет проверку синтаксиса и, в зависимости от установленных значений параметров BDE, передает локальный вариант запроса стандартному драйве­ру соответствующей БД или адресует запрос серверу БД через систему драй­веров SQL Links.
Инициатором запроса выступает приложение. Для создания и выполне­ния запросов предназначен компонент TQuery, который содержит текст за­проса, умеет выполнять его, и инкапсулирует набор данных с результатом выполнения запроса. Этот набор данных можно использовать так же, как и любой другой набор данных, созданный при помощи компонента ТТаЫе.
После получения команды на выполнение запроса компонент TQuery инициализирует процесс подготовки запроса к выполнению, который вклю­чает несколько этапов.