Турфирма

Изначально сведения о странах, регионах и населенных пунктах импортированы в соответствующие поля из файлов *.xls, которые, в основном, загружены из интернет.Рисунок 3.13 – Выбор населенного пункта на форме «Отель»Форма «Сотрудники» (рисунок 3.14)в качестве источника данных использует следующий запрос:SELECT Сотрудник.Код_сотрудника, Сотрудник.Фамилия_сотрудника, Сотрудник.Имя_сотрудника, Сотрудник.Отчество_сотрудника, Должность.Наименование_должности, Сотрудник.Логин, Сотрудник.ПарольFROM Должность INNER JOIN Сотрудник ON Должность.Код_должности = Сотрудник.Код_должности;Рисунок 3.14 – Форма «Сотрудники»Форма «Клиенты» (рисунок 3.15) использует в качестве источника таблицу «Клиент».Рисунок 3.15 – Форма «Клиенты»Каждый клиент получает ваучер на размещение. На рисунке 3.16 показана форма «Ваучеры на размещение». При нажатии на кнопку «Напечатать» открывается отчет в режиме просмотра.Рисунок 3.16 – Форма «Ваучеры на размещение»Данное действие осуществляется с помощью макроса (рисунок 3.17), где указаны условия фильтрации отчета – печать ваучера для конкретного клиента.На рисунке 3.17 показана форма «Туры», на которой записи отображаются в виде таблицы, и каждая запись занимает отдельную строку.Рисунок 3.17 – Форма «Туры»На данной форме размещены элементы управления для работы с данными.Группа переключателей в левом нижнем углу позволяет быстро отбирать туры по определенным странам. Обработка события AfterUpdateгруппы:Private Sub Группа17_AfterUpdate()Select Case Группа17Case 1Filter = "Наименование_страны='Италия'"FilterOn = TrueCase 2Filter = "Наименование_страны='Мальдивы'"FilterOn = TrueCase 3Filter = "Наименование_страны='Турция'"FilterOn = TrueCase 4Filter = "Наименование_страны='Чехия'"FilterOn = TrueCase 5Filter = "Наименование_страны='Кипр'"FilterOn = TrueCase 6FilterOn = FalseEndSelectEndSubДля фильтрации таблицы по определенной стране можно ввести её название в текстовом поле и нажать кнопку «Показать». В данном случае использован прием подмены одного источника данных другим. Структуры запросов должны быть идентичны, но заданы разные условия отбора. Обработчик нажатия кнопок:PrivateSub Кнопка60_Click()Me.RecordSource = "По_названию"'Подгрузка запросаКнопка60.Visible = False'Кнопка "Показать" прячетсяКнопка61.Visible = True'Кнопка "Показать все" появляетсяEndSubPrivateSubКнопка61_Click()Me.RecordSource = "Туры_туроператоры"'Подгрузка запросаКнопка61.Visible = False 'Кнопка"Показать все" прячетсяКнопка60.Visible = True 'Кнопка"Показать" появляетсяКнопка60.Enabled = False'Но она недоступна, пока поле ввода пустоеMe.Поле28 = ""'Очистка поля от данныхEndSubСтруктура запроса «Туры_туроператоры»:SELECT Тур.Код_тура, Туроператор.Название_туроператора, Страна.Наименование_страны, Регион.Наименование_региона, Населенный_пункт.Наименование_населенного_пункта, Отель.Категория_отеля, Отель.Тип_номера, Отели_в_туре.Дата_начала, Отели_в_туре.Дата_окончания, Отель.Наименование_отеля, Тур.Тип_трансфера, Тур.ВизаFROM (Туроператор INNER JOIN Тур ON Туроператор.Код_туроператора = Тур.Код_туроператора) INNER JOIN (Страна INNER JOIN (Регион INNER JOIN ((Населенный_пункт INNER JOIN Отель ON Населенный_пункт.Код_населенного_пункта = Отель.Код_населенного_пункта) INNER JOIN Отели_в_туре ON (Отель.Код_отеля = Отели_в_туре.Код_отеля) AND (Отель.Код_отеля = Отели_в_туре.Код_отеля)) ON Регион.Код_региона = Населенный_пункт.Код_региона) ON (Страна.Код_страны = Регион.Код_страны) AND (Страна.Код_страны = Регион.Код_страны)) ON Тур.Код_тура = Отели_в_туре.Код_тура;Структура запроса «По_названию»:SELECT Тур.Код_тура, Туроператор.Название_туроператора, Страна.Наименование_страны, Регион.Наименование_региона, Населенный_пункт.Наименование_населенного_пункта, Отель.Категория_отеля, Отель.Тип_номера, Отели_в_туре.Дата_начала, Отели_в_туре.Дата_окончания, Отель.Наименование_отеля, Тур.Тип_трансфера, Тур.ВизаFROM (Туроператор INNER JOIN Тур ON Туроператор.Код_туроператора = Тур.Код_туроператора) INNER JOIN (Страна INNER JOIN (Регион INNER JOIN ((Населенный_пункт INNER JOIN Отель ON Населенный_пункт.Код_населенного_пункта = Отель.Код_населенного_пункта) INNER JOIN Отели_в_туре ON (Отель.Код_отеля = Отели_в_туре.Код_отеля) AND (Отель.Код_отеля = Отели_в_туре.Код_отеля)) ON Регион.Код_региона = Населенный_пункт.Код_региона) ON (Страна.Код_страны = Регион.Код_страны) AND (Страна.Код_страны = Регион.Код_страны)) ON Тур.Код_тура = Отели_в_туре.Код_тураWHERE Страна.Наименование_страныLike [Forms]![Туры]![Поле28] & "*";В верхней части расположено текстовое поле (рисунок 3.18), в котором в режиме Конструктора введено значение =Count(*).Рисунок 3.18 – Отбор и подсчет записей на форме «Туры»Данная функция подсчитывает количество записей на форме. Например, при выборе кнопки «Чехия» в группе переключателей на форме остается только одна записьНа форме «Продажи путевок» (рисунок 3.19) агрегирующая функция =Sum([ИТОГО_за_путевку]) позволяет подсчитывать суммарную выручку. А в качестве источника данных используется запрос «Итоговая стоимость путевки» (см. п. 3.2)Рисунок 3.19 – Форма «Продажи путевок»Разработанные формы позволяют сотрудникам фирмы комфортно работать с данными при продаже путевок клиентам.Создание отчетовВ качестве источника данных для отчетов, предназначенных для вывода на печать, могут использоваться таблицы, запросы и формы. На рисунке 3.18 показан отчет «Список групп» на базе запроса:SELECT Список_группы.Номер_путевки, Клиент.Фамилия, Клиент.Имя, Клиент.Отчество, Клиент.Дата_рожденияFROM Список_группы INNER JOIN Клиент ON Список_группы.Код_клиента = Клиент.Код_клиента;Рисунок 3.18 – Отчет «Список групп»На рисунке 3.20 показан отчет «Билеты». Источником отчета «Билеты» является запрос:SELECT Персональный_билет.Номер_билета, Клиент.Фамилия_лат, Клиент.Имя_лат, Авиабилет.Название_перевозчика, Авиабилет.Пункт_отправления, Авиабилет.Пункт_назначения, Авиабилет.Дата_вылета_туда, Авиабилет.Время_вылета_туда, Авиабилет.Номер_рейса_туда, Авиабилет.Дата_вылета_обратно, Авиабилет.Время_вылета_обратно, Авиабилет.Номер_рейса_обратно, Авиабилет.Класс, Авиабилет.ТарифFROM Тур INNER JOIN ((Авиабилет INNER JOIN Персональный_билет ON Авиабилет.Код_билета = Персональный_билет.Код_билета) INNER JOIN Клиент ON Персональный_билет.Код_клиента = Клиент.Код_клиента) ON Тур.Код_тура = Авиабилет.Код_тура;Рисунок 3.16 – Отчет «Билеты»ЗаключениеВ рамках курсовой работы спроектировано настольное приложение в среде MSAccess с монопольным доступом. Главная задача – правильно выстроить систему хранения данных и разработать функционал системы, выполнена. Разработана логическая и физическая схема данных с выполнением правил нормализации. В процессе физического проектирования структура базы данных была скорректирована. Некоторые правила нормализации не выполнены с целью целостного восприятия данных и обеспечения быстродействия системы. Для удобства работы с данными в таблицах использованы форматы и маски, подписи данных.Для выборки данных по различным критериям спроектированы SQL-запросы. Данные имеют достаточно сложную структуру, поэтому запросы имеют достаточно сложныйкод, в них используются вычисляемые поля и агрегирующие функции.Для доступа к данным разработаны формы различной конфигурации с элементами управления и обработчиками на языке VBA. Цветовая гамма носит сдержанный характер, чтобы как можно меньше утомлять пользователя во время работы с приложением.Для вывода данных на печать разработаны отчеты.Разработанная информационная система для автоматизации работы турфирмы может быть использована в небольших компаниях. Фирме не требуется устанавливать дополнительное программное обеспечение, достаточно использовать предустановленный офисный пакет программ от MicrosoftOffice.Все задачи данной курсовой работы выполнены.Список литературыАзарченков A. A. Информатика. Проектирование и разработка баз данных: методические указания к выполнению курсовой работы для студентов очной формы обучения./A. A. Азарченков, С. Н. Зимин – Брянск: БГТУ, 2011. – 68 с.Верман А. Я. Access для профессионалов. Учебное пособие / А. Я. Верман. – СПб: Издательство «Питер, 2008. – 760 с.Карвин Б. Программирование баз данных SQL. Типичные ошибки и их устранение (Профессиональные компьютерные книги) / Б.Карвин. – М: Рид Групп , 2012. – 338 с.Кузнецов М.В. MySQL 5 / М. В Кузнецов., И. В. Симдянов. – СПб.: БХВ-Петербург (в подлиннике), 2010. – 1007 с.Кузнецов С. Д.Основы баз данных / С.Д.Кузнецов.- М.: Интернет-университет информационных технологий; БИНОМ. Лаборатория знаний, 2007.- 484с.Симонович С.В. Информатика. Базовый курс /С.В. Симонович и др. – СПб: «Питер», 2010. – 640 с.Ломтадзе В.В. Системы управления базами данных. Учебное пособие /В. В.Ломтадзе, Л.П. Шишкина.– Иркутск: ИрГТУ, 2008. – 116 с.Мейер М.М.Теория реляционных баз данных. Учебное пособие / М.М. Мейер. – Москва: Мир, 2009. -610 с.Шварц Б. MySQL. Оптимизация производительности (2-е издание) / Б. Шварц Б., П. Зайцев, В. Ткаченко и др. - СПб.: Символ Плюс, 2010 – 832 с.Интернет ресурсыБедный внутренний мир: где россияне отдыхали летом 2016 года // Wind travel Туристическое агентство [Электронный ресурс]: https://www.wind-travel.com/. Режим доступа: https://www.wind-travel.com/blog/author/Источник%3А-РБК. -Загл. с экрана.Выезд за рубеж с целью туризма показал рост впервые за последние четыре года (12/09/2017)// Rata News [Электронный ресурс]: http://www.ratanews.ru. Режим доступа: http://www.ratanews.ru/news/news_12092017_2.stm. -Загл. с экрана.Динамика спроса на туристские услуги в России // Бюллетень о текущих тенденциях российской экономики ноябрь 2016 [Электронный ресурс]: http://ac.gov.ru. Режим доступа: http://ac.gov.ru/files/publication/a/11063.pdf. -Загл. с экрана.Как это работает: Турагентства и горящие путёвки // Журнал DownTown[Электронный ресурс]: http://downtown.ru/voronezh/Режим доступа: http://downtown.ru/voronezh/city/6191. -Загл. с экрана.Образец турпутевки и договора с турфирмой// PravoTurista.ru[Электронный ресурс]: http://pravoturista.ru. Режим доступа: http://pravoturista.ru/obrazcy.html. -Загл. с экрана.Отдых в России // Национальный Туристический Рейтинг 2016 [Электронный ресурс]: http://rustur.ru. Режим доступа: http://rustur.ru/nacionalnyj-turisticheskij-rejting. -Загл. с экрана.Федеральный закон "Об основах туристской деятельности в Российской Федерации" от 24.11.1996 N 132-ФЗ (последняя редакция) // Консультант Плюс - законодательство РФ: кодексы, законы, указы, постановления Правительства Российской Федерации, нормативные акты[Электронный ресурс]:http://www.consultant.ru. Режим доступа: www.consultant.ru/document/cons_doc_LAW_12462/. – Загл. с экрана.Приложение АВыездроссиянзарубежсцельютуризмаIполугодие2017г.(поданнымПограничнойслужбы,тыс.поездок)ПриложениеБCREATE TABLE `Клиент` (`ID_клиента` INT NOT NULL AUTO_INCREMENT,`Фамилия` varchar(30) NOT NULL,`Фамилиялат.`varchar(30) NOT NULL,`Имя` varchar(30) NOT NULL,`Имялат.`varchar(30) NOT NULL,`Отчество` varchar(30) NOT NULL,`Датарождения` DATE NOT NULL,`Адрес` varchar(255) NOT NULL,`Возрастная_категория` bool NOT NULL,PRIMARY KEY (`ID_клиента`));CREATE TABLE `Тур` (`ID_тура` INT NOT NULL AUTO_INCREMENT,`ID_туроператора` INT NOT NULL,`Тип_трансфера` varchar(25) NOT NULL,`Виза` bool NOT NULL,PRIMARY KEY (`ID_тура`));CREATE TABLE `Туроператор` (`ID_туроператора` numeric NOT NULL AUTO_INCREMENT,`Название_туроператора` varchar(50) NOT NULL,`Адрес` varchar(255) NOT NULL,`Телефон` varchar(16) NOT NULL,`ФИО_контактного лица` varchar(100) NOT NULL,PRIMARY KEY (`ID_туроператора`));CREATE TABLE `Сотрудник` (`ID_сотрудника` INT NOT NULL AUTO_INCREMENT,`Фамилия_сотрудника` varchar(30) NOT NULL,`Имя_сотрудника` varchar(30) NOT NULL,`Отчество_сотрудника` varchar(30) NOT NULL,`Должность` varchar(30) NOT NULL,`Логин` varchar(10) NOT NULL,`Пароль` varchar(15) NOT NULL,PRIMARY KEY (`ID_сотрудника`));CREATE TABLE `Путевка` (`Номер_путевки` INT NOT NULL AUTO_INCREMENT,`ID_тура` INT NOT NULL,`Код_списка_группы` INT NOT NULL,`Дата_продажи` varchar(255) NOT NULL,`Количество_детей` INT NOT NULL,`Количество_взрослых` bigint NOT NULL,`ID_сотрудника` INT NOT NULL,PRIMARY KEY (`Номер_путевки`));CREATE TABLE `Дети` (`ID_клиента` int NOT NULL,`Серия_номер_свидетельства` varchar(10) NOT NULL,`Серия_номер_зп_родителя` varchar(11) NOT NULL);CREATE TABLE `Взрослые` (`ID_клиента` INT NOT NULL,`Серия и номер паспорта` varchar(11) NOT NULL,`Дата выдачи паспорта` DATE NOT NULL,`Кемвыдан` varchar(255) NOT NULL,`E-mail` varchar(50) NOT NULL,`Телефон` varchar(16) NOT NULL,`Серия_номер_зп` varchar(11) NOT NULL,`Дата_выдачи_зп` DATE NOT NULL,`Дата_окончания_зп` DATE NOT NULL);CREATE TABLE `Экскурсия` (`ID_экскурсии` int NOT NULL AUTO_INCREMENT,`Название_экскурсии` varbinary(255) NOT NULL,`Описание_экскурсии` varchar(255) NOT NULL,`Стоимость_экскурсии` mediumint NOT NULL,PRIMARY KEY (`ID_экскурсии`));CREATE TABLE `Экскурсии_в_туре` (`ID_экс_в_туре` INT NOT NULL AUTO_INCREMENT,`ID_тура` INT NOT NULL,`ID_экскурсии` INT NOT NULL,`Дата_экскурсии` DATE NOT NULL,`Время_начала_экскурсии` TIME NOT NULL,`Количество_взрослых` INT NOT NULL,`Количество_детей` INT NOT NULL,PRIMARY KEY (`ID_экс_в_туре`));CREATE TABLE `Авиабилет` (`ID_билета` INT NOT NULL AUTO_INCREMENT,`ID_тура` INT NOT NULL,`ID_клиента` INT NOT NULL,`Название_перевозчика` varchar(100) NOT NULL,`Пункт_отправления` varchar(100) NOT NULL,`Пункт_назначения` varchar(100) NOT NULL,`Дата_вылета_туда` DATE NOT NULL,`Время_вылета_туда` TIME NOT NULL,`Дата_вылета_обратно` DATE NOT NULL,`Номер_рейса_туда` varchar(5) NOT NULL,`Время_вылета_обратно` TIME NOT NULL,`Номер_рейса_обратно` varchar(5) NOT NULL,`Класс` varchar(10) NOT NULL,`Тариф` varchar(10) NOT NULL,`Стоимость_билета` INT NOT NULL,PRIMARY KEY (`ID_билета`));CREATE TABLE `Страховка` (`Номер_страхового_полиса` INT NOT NULL AUTO_INCREMENT,`Номер_путевки` INT NOT NULL,`Программа_страхования` varchar(15) NOT NULL,`Дата_выдачи_страховки` DATE NOT NULL,`Период_страхования` INT NOT NULL,`Стоимость_1_дня_страховки` INT NOT NULL,PRIMARY KEY (`Номер_страхового_полиса`));CREATE TABLE `Виза` (`Номер_визы` INT NOT NULL AUTO_INCREMENT,`ID_клиента` INT NOT NULL,`Страна` varchar(100) NOT NULL,`Дата_выдачи_визы` DATE NOT NULL,`Период_действия_визы` INT NOT NULL,`Стоимость_визы` INT NOT NULL,PRIMARY KEY (`Номер_визы`));CREATE TABLE `Страна` (`Код_страны` INT NOT NULL AUTO_INCREMENT,`Наименование_страны` varchar(150) NOT NULL,PRIMARY KEY (`Код_страны`));CREATE TABLE `Регион` (`Код_региона` INT NOT NULL AUTO_INCREMENT,`Наименование_региона` varchar(255) NOT NULL,`Код_страны` INT NOT NULL,PRIMARY KEY (`Код_региона`));CREATE TABLE `Населенный_пункт` (`Код_населенного_пункта` INT NOT NULL AUTO_INCREMENT,`Наименование_населенного_пункта` INT NOT NULL,`Код_региона` varchar(255) NOT NULL,PRIMARY KEY (`Код_населенного_пункта`));CREATE TABLE `Отель` (`Код_отеля` INT NOT NULL AUTO_INCREMENT,`Наименование_отеля` varchar(100) NOT NULL,`Код_населенного_пункта` INT NOT NULL,`Категория_отеля` varbinary(5) NOT NULL,`Тип_номера` varchar(15) NOT NULL,`Система_питания` varchar(5) NOT NULL,`Стоимость` INT NOT NULL,`Адрес_отеля` varchar(255) NOT NULL,PRIMARY KEY (`Код_отеля`));CREATE TABLE `Отели_в_туре` (`Код_тура` INT NOT NULL,`Код_отеля` INT NOT NULL,`Дата_начала` DATE NOT NULL,`Дата_окончания` DATE NOT NULL,PRIMARY KEY (`Код_тура`));CREATE TABLE `Список_группы` (`Код_списка_группы` INT NOT NULL AUTO_INCREMENT,`ID_клиента` INT NOT NULL,`Стоимость_визы` INT NOT NULL,PRIMARY KEY (`Код_списка_группы`));ALTER TABLE `Тур` ADD CONSTRAINT `Тур_fk0` FOREIGN KEY (`ID_туроператора`) REFERENCES `Туроператор`(`ID_туроператора`);ALTER TABLE `Путевка` ADD CONSTRAINT `Путевка_fk0` FOREIGN KEY (`ID_тура`) REFERENCES `Тур`(`ID_тура`);ALTER TABLE `Путевка` ADD CONSTRAINT `Путевка_fk1` FOREIGN KEY (`Код_списка_группы`) REFERENCES `Список_группы`(`Код_списка_группы`);ALTER TABLE `Путевка` ADD CONSTRAINT `Путевка_fk2` FOREIGN KEY (`ID_сотрудника`) REFERENCES `Сотрудник`(`ID_сотрудника`);ALTER TABLE `Дети` ADD CONSTRAINT `Дети_fk0` FOREIGN KEY (`ID_клиента`) REFERENCES `Клиент`(`ID_клиента`);ALTER TABLE `Дети` ADD CONSTRAINT `Дети_fk1` FOREIGN KEY (`Серия_номер_зп_родителя`) REFERENCES `Взрослые`(`Серия_номер_зп`);ALTER TABLE `Взрослые` ADD CONSTRAINT `Взрослые_fk0` FOREIGN KEY (`ID_клиента`) REFERENCES `Клиент`(`ID_клиента`);ALTER TABLE `Экскурсии_в_туре` ADD CONSTRAINT `Экскурсии_в_туре_fk0` FOREIGN KEY (`ID_тура`) REFERENCES `Тур`(`ID_тура`);ALTER TABLE `Экскурсии_в_туре` ADD CONSTRAINT `Экскурсии_в_туре_fk1` FOREIGN KEY (`ID_экскурсии`) REFERENCES `Экскурсия`(`ID_экскурсии`);ALTER TABLE `Авиабилет` ADD CONSTRAINT `Авиабилет_fk0` FOREIGN KEY (`ID_тура`) REFERENCES `Тур`(`ID_тура`);ALTER TABLE `Авиабилет` ADD CONSTRAINT `Авиабилет_fk1` FOREIGN KEY (`ID_клиента`) REFERENCES `Клиент`(`ID_клиента`);ALTER TABLE `Страховка` ADD CONSTRAINT `Страховка_fk0` FOREIGN KEY (`Номер_путевки`) REFERENCES `Путевка`(`Номер_путевки`);ALTER TABLE `Виза` ADD CONSTRAINT `Виза_fk0` FOREIGN KEY (`ID_клиента`) REFERENCES `Клиент`(`ID_клиента`);ALTER TABLE `Регион` ADD CONSTRAINT `Регион_fk0` FOREIGN KEY (`Код_страны`) REFERENCES `Страна`(`Код_страны`);ALTER TABLE `Населенный_пункт` ADD CONSTRAINT `Населенный_пункт_fk0` FOREIGN KEY (`Код_региона`) REFERENCES `Регион`(`Код_региона`);ALTER TABLE `Отель` ADD CONSTRAINT `Отель_fk0` FOREIGN KEY (`Код_населенного_пункта`) REFERENCES `Населенный_пункт`(`Код_населенного_пункта`);ALTER TABLE `Отели_в_туре` ADD CONSTRAINT `Отели_в_туре_fk0` FOREIGN KEY (`Код_тура`) REFERENCES `Тур`(`ID_тура`);ALTER TABLE `Отели_в_туре` ADD CONSTRAINT `Отели_в_туре_fk1` FOREIGN KEY (`Код_отеля`) REFERENCES `Отель`(`Код_отеля`);ALTER TABLE `Список_группы` ADD CONSTRAINT `Список_группы_fk0` FOREIGN KEY (`ID_клиента`) REFERENCES `Клиент`(`ID_клиента`);