Изначально сведения о странах, регионах и населенных пунктах импортированы в соответствующие поля из файлов *.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 с. Верман А. Я. A ccess для профессионалов. Учебное пособие / А. Я. Верман.
— СПб: Издательство «Питер, 2008. — 760 с. Карвин Б.
Программирование баз данных SQL. Типичные ошибки и их устранение (Профессиональные компьютерные книги) / Б.Карвин. — М: Рид Групп, 2012. — 338 с. Кузнецов М. В. MySQL 5 / М. В Кузнецов., И.
В. Симдянов. — СПб.: БХВ-Петербург (в подлиннике), 2010. — 1007 с. Кузнецов С.
Д.Основы баз данных / С. Д. Кузнецов.
М.: Интернет-университет информационных технологий; БИНОМ. Лаборатория знаний, 2007. 484с. Симонович С. В. Информатика. Базовый курс /С.В. Симонович и др. — СПб: «Питер», 2010. — 640 с. Ломтадзе В. В. Системы управления базами данных.
Учебное пособие /В. В. Ломтадзе, Л. П. Шишкина.- Иркутск: ИрГТУ, 2008. — 116 с. Мейер М. М. Теория реляционных баз данных. Учебное пособие / М. М. Мейер. -.
Москва: Мир, 2009. — 610 с. Шварц Б. M ySQL.
Оптимизация производительности (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_12 092 0172.stm. -Загл. с экрана. Динамика спроса на туристские услуги в России // Бюллетень о текущих тенденциях российской экономики ноябрь 2016 [Электронный ресурс]:
http://ac.gov.ru. Режим доступа:
http://ac.gov.ru/files/publication/a/11 063.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_12 462/. — Загл. с экрана. Приложение АВыездроссиянзарубежсцельютуризма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_клиента`);
