Розробка бази даних "Туристичне бюро"

Размещено на http://www.allbest.ru/

Міністерство освіти і науки України

Коледж Миколаївського національного університету імені В.О.Сухомлинського

Звіт

з науково-дослідної практики

Розробка бази даних «Туристичне бюро»

Виконала студентка групи О-420

Ханенко В.А.

Перевірила: Божко Н.В.

Миколаїв 2014

Зміст

Вступ

I. Теоретичні відомості

II. Опис предметної області

III. Постановка задачі

IV. Розробка бази даних “Туристичне бюро”

V. Реалізація бази даних “Туристичне бюро”

VI. Схема даних і програмні тексти

VII. Опис автоматизованого робочого місця

Висновок

Список використаних джерел

Додаток

аccess туристичний програмний

Вступ

Все частіше використовується обчислювальна техніка у різних сферах життя. Сьогодні комп'ютер можна побачити на будь-якому підприємстві, організації чи фірмі, в навчальному закладі чи вдома, в магазині чи кафе, наукових інститутах.

Багато фірм розробляють програмне забезпечення для комп'ютера, яке постійно потребує оновлення, доповнення чи переробки, залежно від потреб користувачів. Потрібно тільки вибрати ту чи іншу програму для роботи з текстами, для діловодства і бухгалтерії, для математичних, інженерних і фінансових розрахунків, для конструювання чи проектування.

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

З розвитком обчислювальної техніки люди все частіше зверталися до автоматизації виробничих процесів, ведення бухгалтерського обліку, обліку товарів та ін. Для розробки автоматизованих систем були створені різноманітні програмні продукти, метою яких було значно полегшити роботу при автоматизації процесу, зменшити вимоги до рівня кваліфікації користувача, та зберігати при цьому свою гнучкість щодо пристосувань до різних типів процесів. Одним з таких продуктів є пакет для роботи з базами даних Microsoft Access фірми Microsoft.

З допомогою MS Access ви зможете створити програму, яка буде працювати в середовищі Windows і повністю відповідатиме вашим вимогам в обробці та керуванні даними.

I. Теоретичні відомості

База даних із правильною структурою забезпечує доступ до оновлених і точних відомостей. Оскільки правильна структура важлива для виконання поставлених завдань при роботі з базою даних, доцільно вивчити принципи створення баз даних. Це дозволить створити базу даних відповідно до вимог і з можливістю швидко вносити в неї зміни.

Термінологія, пов'язана з базами даних

В Access дані організовуються в таблиці -- сукупності рядків і стовпців, аналогічні паперам бухгалтера або книзі Excel Проста база даних може складатися всього з однієї таблиці. Більшість баз даних включають кілька таблиць.

Кожний рядок називається також записом, а кожний стовпець, або тип елемента, називається також полем.

У термінах реляційних СУБД подібні таблиці називаються відношеннями, їх записи - кортежі відношень, поля - атрибути відношень. Тепер зрозуміло, чому використовується термін реляційна СУБД (relation - відношення).

Архітектура MS Access

Запит призначений для вибірки необхідних даних з таблиць. За допомогою запитів можна також модифікувати дані або створювати інші таблиці.

Форми призначаються для перегляду, введення і редагування даних таблиць а також надають користувачу засоби керування програмами, які використовують базу даних. Форми, як правило, використовуються для того, щоб забезпечити необхідний зовнішній вигляд документа, дані якого вводяться у таблицю.

Звіти призначаються для перегляду та друку результуючої інформації. Звіти можуть бути включені до документів інших програм.

Макроси та модулі призначені для обробки подій. Терміном подія у MS Access називають зміну стану об'єкта. Так, подія - це відкриття того чи іншого об'екта, його закриття, зміна стану самого об'єкта. Наприклад, для таблиць це введення запису, видалення запису тощо. Для визначення макросів та модулів необхідні знання з теорії програмування та вміння програмувати в системі програмування Visual Basic for Applications (VBA), яка вбудована у MS Access.

Всі наведені вище об'єкти можуть бути визначені у MS Access як вручну, так і за допомогою так званих майстрів, які допомагають користувачеві за декілька кроків діалогу створити необхідне.

Кожна таблиця повинна мати первинний ключ (primary key) - значення, яке унікально ідентифікує кожен запис в межах таблиці. Первинний ключ, крім того, що вказує на унікальність значень, дозволяє забезпечити швидкий доступ до конкретного запису таблиці.

Значення первинного ключа розміщується в окремому полі або групі полів таблиці і, як правило, в імені міститься префікс або суфікс ID. Наприклад, ProductID, IdGroup тощо. Здебільшого поле, що містить значення первинного ключа розміщують самим першим в списку полів.

Зв'язки

Зв'язок - це спосіб пояснити СУБД, яким чином слід виконувати вибірку інформації з таблиць баз даних. Між таблицями бази даних існують 4 типи зв'язків:

ОДИН-ДО-ОДНОГО (1:1): кожному запису таблиці А відповідає лише один запис таблиці Б (або навпаки). Такий тип зв'язків використовується рідко, оскільки фактично всі дані можуть бути розміщені в одній таблиці. Він може бути корисний у випадку, коли, наприклад, доцільно логічно розділити одну громіздку таблицю.

ОДИН-ДО-БАГАТЬОХ (1:Б): один запис таблиці А зв'язаний з багатьма записами таблиці Б, але одному запису таблиці В не може відповідати декілька записів таблиці А.

БАГАТО-ДО-ОДНОГО (Б:1) - зворотній до попереднього. Тип відношення між об'єктами залежить від Вашої точки зору.

БАГАТО-ДО-БАГАТЬОХ (Б:Б). Виникає між двома таблицями у випадках, коли:

один запис з першої таблиці може бути зв'язаний більше, ніж з одним записом з другої таблиці;

один запис з другої таблиці може бути зв'язаний більше, ніж з одним записом з першої таблиці.

Такий зв'язок мало поширений, але якщо він існує, то зазвичай вводить проміжна таблиця (таблиця-зв'язок), яка складається лише з зовнішніх ключів і зв'язує дві таблиці між собою.

Існують наступні правила, яким повинні відповідати типи даних зв'язаних полів:

загальні та зв'язані поля повинні бути однакового типу;

якщо обидва зв'язаних поля мають числовий тип, то вони повинні мати і однакові значення властивості «Розмір поля»;

поле з типом даних «Лічильник» можна зв'язати з числовим полем, в якого «Розмір поля» має значення «Довге ціле».

Застосування правил нормалізації

Нормалізація - це покроковий процес заміни однієї таблиці (або набору таблиць) іншими, що мають більш просту структуру.

Наступним етапом створення бази даних може стати застосування правил нормалізації даних (або просто правил нормалізації). Ці правила дозволяють перевірити правильність структури таблиць. Процес застосування цих правил до структури бази даних називається нормалізацією бази даних або просто нормалізацією.

Нормалізацію рекомендується виконувати після внесення в базу даних всіх елементів даних і створення попередньої структури. Ціль цього процесу - перевірити правильність розподілу елементів даних по таблицях. Однак нормалізація не дозволяє перевірити правильність самих елементів даних.

Застосування правил нормалізації виконується послідовно; на кожному етапі перевіряється відповідність бази даних однієї з т.зв. нормальних форм. Існує п'ять нормальних форм. У цій статті описуються перші три форми, оскільки їхнього застосування досить для більшості баз даних.

Робота із запитами

Запит на вибірку -- це об'єкт бази даних, що служить для відображення даних у режимі таблиці. Запит може одержувати дані з однієї або декількох таблиць, з існуючих запитів або з комбінацій таблиць і запитів. Таблиці або запити, використовувані для одержання даних, називаються джерелами записів.

Створення простих запитів на вибірку при використанні майстра й при роботі в режимі конструктора відбувається однаково. Для цього варто вибрати джерело записів і поля, які потрібно включити в запит. При необхідності можна задати умови для уточнення результатів запиту.

Після створення запиту на вибірку його варто виконати, щоб одержати результати. Щоб виконати запит, досить відкрити його в режимі таблиці. Згодом запит можна використовувати повторно в міру необхідності, наприклад як джерело записів для форми, звіту або іншого запиту. Існує кілька типів запитів, кожний з яких призначений для певної мети. Наприклад, запит на вибірку служить для відображення даних або для створення нової таблиці. Запит на зміну служить для зміни даних у джерелі даних. При запуску запиту з параметрами потрібно задати умови. У цьому розділі описані тільки запити на вибірку.

Створення форм

Форма - це об'єкт бази даних, якому можна використовувати для уведення, зміни або відображення даних з таблиці або запиту. Форми можуть застосовуватися для керування доступом до даних: з їхньою допомогою можна визначати, які поля або рядки даних будуть відображатися. Наприклад, деяким користувачам досить бачити лише кілька полів великої таблиці. Якщо надати їм форму, що містить тільки потрібні їм поля, це полегшить для них використання бази даних. Для автоматизації часто виконуваних дій у форму можна додати кнопки й інші функціональні елементи.

Форми можна розглядати як вікна, через які користувачі можуть переглядати й змінювати базу даних. Раціонально побудована форма прискорює роботу з базою даних, оскільки користувачам не потрібно шукати те, що їм потрібно. Зовні приваблива форма робить роботу з базою даних більше приємної й ефективної, крім того, вона може допомогти в запобіганні невірного уведення даних. В Access передбачені нові засоби, що допомагають швидко створювати форми, а також нові типи форм і функціональні можливості, завдяки яким база даних стає більше практичною.

II. Опис предметної області

База даних « Туристичне бюро» дозволяє впорядкувати роботу туристичного агентства: всі договори, дані туристів, зберігаються в електронному вигляді в одному файлі на комп'ютері і легко можуть бути знайдені і відтворені на папері.

Дані клієнта та інформація про подорож вносяться в базу один раз і використовуються для оформлення всіх необхідних документів: договорів, пам'яток. При цьому значно зменшується ймовірність помилок при заповненні документів (наприклад, помилок у ПІБ туристів або їх паспортних даних).

Інформаційна система дозволяє легко збирати та аналізувати статистичні дані про кількість і характер подорожей туристів, популярності туристичних маршрутів, готелів.

III. Постановка задачі

Перед розробкою автоматизованої системи потрібно визначитися з інформацією, яка буде в ній міститися, та основними елементами, що будуть в неї входити.

У завданні стояла задача розробити базу даних «Туристичне бюро ». Розробляючи базу даних потрібно передбачити ввід нових даних про клієнтів тур агентства, про поїздки, що пропонуються фірмою, а також реєстрацію нових замовлень путівок. Після тривалої роботи з'являється інформація, яка стає непотрібною чи неправильною, тому її потрібно знищувати. Для повноцінної роботи автоматизованої системи також потрібно передбачити відбір даних по певних критеріях та вивід необхідних даних на друк.

Тому основними завданнями бази даних є:

ввід даних про клієнтів, туристичні подорожі, замовлення путівок;

перегляд та коригування введених даних;

вилучення непотрібної інформації;

відбір даних за деякими критеріями;

вивід інформації на папір.

IV. Розробка бази даних “Туристичне бюро”

Розробка бази даних "Туристичне бюро" проводилася в роботі з практики. У цій роботі було:

створено основні таблиці, які містять необхідну інформацію;

розроблено різні типи форм для зручного перегляду та вводу інформації;

створено необхідні звіти для виводу певної інформації на друк;

розроблено головне меню бази даних для виконання основних операцій в базі даних.

V. Реалізація бази даних “Туристичне бюро”

База даних " Туристичне бюро " була реалізована на СУБД Mіcrosoft Access 2007 у середовищі Mіcrosoft Wіndows 2007. Як керівництво по генерації таблиць, екранних форм, запитів, звітів, по програмуванню макрокоманд і програмних модулів використовувалася /1/.

База даних разом з таблицями даних, екранними формами, запитами, звітними формами в Mіcrosoft Access представляється в одному файлі. База даних " Туристичне бюро " зберігається у файлі Туристичне бюро. аccdb.

Схема даних, тексти макрокоманд і програмний опис елементів керування приведені в додатку І.

VI. Схема даних і програмні тексти

Представлення структури бази даних, екранних форм, запитів, звітних форм у Mіcrosoft Access забезпечується внутрішньою реалізацією СУБД (на відміну від розповсюджених СУБД типу dBase, FoxPro, і т.д. , у яких ці характеристики описуються програмним шляхом), те представлення повного програмного коду бази даних, написаної на Mіcrosoft Access є неможливим, у зв'язку з відсутністю такого.

Однак, при створенні екранних форм для присвоєння різних функцій елементам керування - кнопкам - використовувалася внутрішня мова СУБД - Access Basіc. Деякі процедури, написані на цій мові, представлені в додатку І.

VII. Опис автоматизованого робочого місця

У результаті роботи було створено автоматизоване робоче місце (АРМ) у виді набору зв'язаних екранних форм і звітів, що дозволяє вводити, редагувати і переглядати дані.

Після завантаження головного (і єдиного) файлу бази " Туристичне бюро " Туристичне бюро.аccdb із СУБД Mіcrosoft Access на екрані автоматично з'являється наступний екран (Рис.1):

Рис. 1 Привітальна форма

При натисканні на кнопку «Продовжити» відкривається головна форма (Рис.2):

Рис. 2 Головна форма програми

З головної форми можна потрапити в наступні форми:

Кнопка "Додавання та редагування" - форма для додавання, видалення, редагування інформації(Рис.3):

Рис. 3 Форма «Додавання та редагування інформації»

За допомогою цієї форми можливо додавати та редагувати такі дані:

Інформація про клієнтів (Рис.4):

Рис. 4 Форма «Інформація про клієнтів»

Адреса проживання (Рис.5):

Рис. 5 Форма «Адреса проживання клієнта»

Країна (Рис.6):

Рис. 6 Форма «Країна»

Документи на візу (Рис.7):



Рис. 7 Форма «Документи на візу»

Замовлення турів (Рис.8):

Рис. 8 Форма «Замовлені тури»

Послуги турагентства (Рис.9):



Рис. 9 Форма «Послуги тур агентства»

Путівка (Рис.10):

Рис. 10 Форма «Путівка»

Кнопка «Запити» _ форма для виведення конкретної інформації по клієнту (Рис.11):



Рис. 11 Форма «Запити»

За допомогою цієї форми можливо переглядати такі дані:

Інформація про клієнтів (Рис.12, Рис.13):

Рис. 12 Вікно для введення прізвища клієнта

Рис. 13 Запит «Клієнти»

Адреса (Рис.14, Рис.15):



Рис. 14 Вікно для введення прізвища клієнта

Рис. 15 Запит «Адреса»

Документи на візу (Рис.16, рис.17):

Рис. 16 Вікно для введення прізвища клієнта

Рис. 17 Запит «Документи»

Замовлення (Рис.18, Рис.19):



Рис. 18 Вікно для введення прізвища клієнта

Рис. 19 Запит «Замовлення»

Продані путівки за 2010 рік (Рис.20):

Рис. 20 Pапит «2010 рік»

Продані путівки за 2012 рік (Рис.21):

Рис. 21 Запит «2012 рік»

Продані путівки за 2013 рік (Рис.22):

Рис. 22 Запит «2013 рік»

Продані путівки за 2014 рік (Рис.23):

Рис. 23 Запит «2014 рік»

Кнопка «Звіти» _ форма для виведення звітної інформації по клієнтам(Рис.24):



Рис. 25 Форма «Звіти»

За допомогою цієї форми можливо переглядати такі звіти:

Контактна інформація (Рис.26):

Рис. 26 Звіт «Контактна інформація»

Адреса проживання (Рис.27):

Рис. 27 Звіт «Адреса проживання клієнтів»

Продані путівки за 2010 рік (Рис.28):

Рис. 28 Pвіт «Кількість проданих путівок за 2010 рік»

Продані путівки за 2012 рік (Рис.29):



Рис. 29 Звіт «Кількість проданих путівок за 2012 рік»

Продані путівки за 2013 рік (Рис.30):

Рис. 30 Звіт «Кількість проданих путівок за 2013 рік»

Продані путівки за 2014 рік (Рис.31):



Рис. 31 Звіт «Продані путівки за 2014 рік»

Кнопка «Про програму» - форма для виведення додаткової інформації про програму (Рис.32):

Рис. 32 Форма «Про програму»

Висновок

В результаті виконання роботи поставлена ціль була досягнута. А саме база даних передбачає ввід та зміну даних про клієнтів тур агентства, туристичні поїздки, у які пропонують поїхати та реєстрацію зроблених замовлень. При необхідності користувач має змогу вивести необхідну інформацію на друк.

База даних є зручною та зрозумілою у використанні, що дає змогу працювати з нею навіть недосвідченим користувачам.

База даних може бути використана для роботи у довільному туристичному агентстві.

Список використаних джерел

1. Access 2003. Практическое руководство: В. Е. Кошелев -- Санкт-Петербург, Бином-Пресс, 2008 г.- 464 с.

2. Access 2007 на практике: О. В. Смирнова -- Санкт-Петербург, Феникс, 2009 г.- 160 с.

3. Access 2010: Андрей Сеннов -- Москва, Питер, 2010 г.- 288 с.

4. Microsoft Access 2003. Русская версия (+ CD-ROM): -- Москва, Эком, 2008 г.- 432 с.

5. Microsoft Access 2007. Лучший самоучитель: С. В. Глушаков, А. С. Сурядный, М. И. Шумилов -- Москва, АСТ, АСТ Москва, 2008 г.- 448 с.

6. Microsoft Access 2007: Джон Кронан, Бобби Сандберг -- Москва, НТ Пресс, 2009 г.- 384 с.

7. Microsoft Office 2007. Лучший самоучитель: С. В. Глушаков, А. С. Сурядный -- Москва, АСТ, АСТ Москва, ВКТ, 2008 г.- 448 с.

8. Microsoft Office Access 2007 (+ CD-ROM): Ирина Харитонова, Лада Рудикова -- Санкт-Петербург, БХВ-Петербург, 2008 г.- 1280 с.

9. Microsoft Office Access 2007. Русская версия (+ CD-ROM): Стив Ламберт, М. Доу Ламберт III, Джоан Преппернау -- Санкт-Петербург, ЭКОМ Паблишерз, 2007 г.- 432 с.

10. Ваша первая база данных в Access 2007: М. В. Белянин -- Москва, НТ Пресс, 2008 г.- 288 с.

11. Самоучитель Access 2007. 100% результат уверенной работы: А. А. Рубин, И. А. Клеандрова, Р. Г. Прокди -- Москва, Наука и техника, 2008 г.- 400 с.

12. Экспресс-курс. Microsoft Access XP: -- Санкт-Петербург, АСТ, Харвест, 2006 г.- 32 с

Додаток І

Програмні тексти, запити і схема даних

Процедури опису функції елементів управління екранних форм

Форма «Привітальна »

Private Sub Вихід_Click()

On Error GoTo Err_Вихід_Click

DoCmd.Close

Exit_Вихід_Click:

Exit Sub

Err_Вихід_Click:

MsgBox Err.Description

Resume Exit_Вихід_Click

End Sub

Private Sub Продовжити_Click()

On Error GoTo Err_Продовжити_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(58) & ChrW(32) & ChrW(1043) & ChrW(1086) & ChrW(1083) & ChrW(1086) & ChrW(1074) & ChrW(1085) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Продовжити_Click:

Exit Sub

Err_Продовжити_Click:

MsgBox Err.Description

Resume Exit_Продовжити_Click

End Sub

Форма «Головна»

Private Sub Додавання_та_редагування_Click()

On Error GoTo Err_Додавання_та_редагування_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1044) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1103)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Додавання_та_редагування_Click:

Exit Sub

Err_Додавання_та_редагування_Click:

MsgBox Err.Description

Resume Exit_Додавання_та_редагування_Click

End Sub

Private Sub Звіти_Click()

On Error GoTo Err_Звіти_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1074) & ChrW(1110) & ChrW(1090) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Звіти_Click:

Exit Sub

Err_Звіти_Click:

MsgBox Err.Description

Resume Exit_Звіти_Click

End Sub

Private Sub Запити_Click()

On Error GoTo Err_Запити_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1080) & ChrW(1090) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Запити_Click:

Exit Sub

Err_Запити_Click:

MsgBox Err.Description

Resume Exit_Запити_Click

End Sub

Private Sub Про_програму_Click()

On Error GoTo Err_Про_програму_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1088) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1091)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Про_програму_Click:

Exit Sub

Err_Про_програму_Click:

MsgBox Err.Description

Resume Exit_Про_програму_Click

End Sub

Private Sub Вихід_Click()

On Error GoTo Err_Вихід_Click

DoCmd.Close

Exit_Вихід_Click:

Exit Sub

Err_Вихід_Click:

MsgBox Err.Description

Resume Exit_Вихід_Click

End Sub

Форма «Запити»

Private Sub Інформація_про_клієнтів_Click()

On Error GoTo Err_Інформація_про_клієнтів_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1083) & ChrW(1110) & ChrW(1108) & ChrW(1085) & ChrW(1090) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Інформація_про_клієнтів_Click:

Exit Sub

Err_Інформація_про_клієнтів_Click:

MsgBox Err.Description

Resume Exit_Інформація_про_клієнтів_Click

End Sub

Private Sub Адреса_проживання_Click()

On Error GoTo Err_Адреса_проживання_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1040) & ChrW(1076) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Адреса_проживання_Click:

Exit Sub

Err_Адреса_проживання_Click:

MsgBox Err.Description

Resume Exit_Адреса_проживання_Click

End Sub

Private Sub Документи_на_візу_Click()

On Error GoTo Err_Документи_на_візу_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1044) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1080) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(32) & ChrW(1074) & ChrW(1110) & ChrW(1079) & ChrW(1091)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Документи_на_візу_Click:

Exit Sub

Err_Документи_на_візу_Click:

MsgBox Err.Description

Resume Exit_Документи_на_візу_Click

End Sub

Private Sub Замовлені_путівки_Click()

On Error GoTo Err_Замовлені_путівки_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1086) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1110) & ChrW(32) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Замовлені_путівки_Click:

Exit Sub

Err_Замовлені_путівки_Click:

MsgBox Err.Description

Resume Exit_Замовлені_путівки_Click

End Sub

Private Sub Ctl2010_рік_Click()

On Error GoTo Err_Ctl2010_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(48) & ChrW(57) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Ctl2010_рік_Click:

Exit Sub

Err_Ctl2010_рік_Click:

MsgBox Err.Description

Resume Exit_Ctl2010_рік_Click

End Sub

Private Sub Продані_путівки_за_2012_рік_Click()

On Error GoTo Err_Продані_путівки_за_2012_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(49) & ChrW(50) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Продані_путівки_за_2012_рік_Click:

Exit Sub

Err_Продані_путівки_за_2012_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2012_рік_Click

End Sub

Private Sub Продані_путівки_за_2010_рік_Click()

On Error GoTo Err_Продані_путівки_за_2010_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(48) & ChrW(57) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Продані_путівки_за_2010_рік_Click:

Exit Sub

Err_Продані_путівки_за_2010_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2010_рік_Click

End Sub

Private Sub Продані_путівки_за_2013_рік_Click()

On Error GoTo Err_Продані_путівки_за_2013_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(49) & ChrW(51) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Продані_путівки_за_2013_рік_Click:

Exit Sub

Err_Продані_путівки_за_2013_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2013_рік_Click

End Sub

Private Sub Продані_путівки_за_2014_рік_Click()

On Error GoTo Err_Продані_путівки_за_2014_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(49) & ChrW(52) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Продані_путівки_за_2014_рік_Click:

Exit Sub

Err_Продані_путівки_за_2014_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2014_рік_Click

End Sub

Private Sub Вихід_Click()

On Error GoTo Err_Вихід

DoCmd.Close

Exit_Вихід_Click:

Exit Sub

Err_Вихід_Click:

MsgBox Err.Description

Resume Exit_Вихід_Click

End Sub

Форма «Додавання та редагування інформації»

Private Sub Інформація_про_клієнтів_Click()

On Error GoTo Err_Інформація_про_клієнтів_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1083) & ChrW(1110) & ChrW(1108) & ChrW(1085) & ChrW(1090) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Інформація_про_клієнтів_Click:

Exit Sub

Err_Інформація_про_клієнтів_Click:

MsgBox Err.Description

Resume Exit_Інформація_про_клієнтів_Click

End Sub

Private Sub Адреса_проживання_Click()

On Error GoTo Err_Адреса_проживання_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1040) & ChrW(1076) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Адреса_проживання_Click:

Exit Sub

Err_Адреса_проживання_Click:

MsgBox Err.Description

Resume Exit_Адреса_проживання_Click

End Sub

Private Sub Країна_Click()

On Error GoTo Err_Країна_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1088) & ChrW(1072) & ChrW(1111) & ChrW(1085) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Країна_Click:

Exit Sub

Err_Країна_Click:

MsgBox Err.Description

Resume Exit_Країна_Click

End Sub

Private Sub Документи_на_візу_Click()

On Error GoTo Err_Документи_на_візу_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1044) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1080) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(32) & ChrW(1074) & ChrW(1110) & ChrW(1079) & ChrW(1091)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Документи_на_візу_Click:

Exit Sub

Err_Документи_на_візу_Click:

MsgBox Err.Description

Resume Exit_Документи_на_візу_Click

End Sub

Private Sub Замовлені_тури_Click()

On Error GoTo Err_Замовлені_тури_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1086) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1110) & ChrW(32) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Замовлені_тури_Click:

Exit Sub

Err_Замовлені_тури_Click:

MsgBox Err.Description

Resume Exit_Замовлені_тури_Click

End Sub

Private Sub Послуги_турагентства_Click()

On Error GoTo Err_Послуги_турагентства_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1086) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Послуги_турагентства_Click:

Exit Sub

Err_Послуги_турагентства_Click:

MsgBox Err.Description

Resume Exit_Послуги_турагентства_Click

End Sub

Private Sub Путівка_Click()

On Error GoTo Err_Путівка_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1091) & ChrW(1090) & ChrW(1110) & ChrW(1074) & ChrW(1082) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Путівка_Click:

Exit Sub

Err_Путівка_Click:

MsgBox Err.Description

Resume Exit_Путівка_Click

End Sub

Private Sub Вихід_Click()

On Error GoTo Err_Вихід_Click

DoCmd.Close

Exit_Вихід_Click:

Exit Sub

Err_Вихід_Click:

MsgBox Err.Description

Resume Exit_Вихід_Click

End Sub

Форма «Звіти»

Private Sub Контактна_інформація_Click()

On Error GoTo Err_Контактна_інформація_Click

Dim stDocName As String

stDocName = ChrW(1050) & ChrW(1083) & ChrW(1110) & ChrW(1108) & ChrW(1085) & ChrW(1090)

DoCmd.OpenReport stDocName, acPreview

Exit_Контактна_інформація_Click:

Exit Sub

Err_Контактна_інформація_Click:

MsgBox Err.Description

Resume Exit_Контактна_інформація_Click

End Sub

Private Sub Адреса_проживання_Click()

On Error GoTo Err_Адреса_проживання_Click

Dim stDocName As String

stDocName = ChrW(1040) & ChrW(1076) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1072)

DoCmd.OpenReport stDocName, acPreview

Exit_Адреса_проживання_Click:

Exit Sub

Err_Адреса_проживання_Click:

MsgBox Err.Description

Resume Exit_Адреса_проживання_Click

End Sub

Private Sub Продані_путівки_за_2010_рік_Click()

On Error GoTo Err_Продані_путівки_за_2010_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(48) & ChrW(57) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenReport stDocName, acPreview

Exit_Продані_путівки_за_2010_рік_Click:

Exit Sub

Err_Продані_путівки_за_2010_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2010_рік_Click

End Sub

Private Sub Продані_путівки_за_2012_рік_Click()

On Error GoTo Err_Продані_путівки_за_2012_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(49) & ChrW(50) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenReport stDocName, acPreview

Exit_Продані_путівки_за_2012_рік_Click:

Exit Sub

Err_Продані_путівки_за_2012_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2012_рік_Click

End Sub

Private Sub Продані_путівки_за_2013_рік_Click()

On Error GoTo Err_Продані_путівки_за_2013_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(49) & ChrW(51) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenReport stDocName, acPreview

Exit_Продані_путівки_за_2013_рік_Click:

Exit Sub

Err_Продані_путівки_за_2013_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2013_рік_Click

End Sub

Private Sub Продані_путівки_за_2014_рік_Click()

On Error GoTo Err_Продані_путівки_за_2014_рік_Click

Dim stDocName As String

stDocName = ChrW(50) & ChrW(48) & ChrW(49) & ChrW(52) & ChrW(32) & ChrW(1088) & ChrW(1110) & ChrW(1082)

DoCmd.OpenReport stDocName, acPreview

Exit_Продані_путівки_за_2014_рік_Click:

Exit Sub

Err_Продані_путівки_за_2014_рік_Click:

MsgBox Err.Description

Resume Exit_Продані_путівки_за_2014_рік_Click

End Sub

Private Sub Вихід_Click()

On Error GoTo Err_Вихід_Click

DoCmd.Close

Exit_Вихід_Click:

Exit Sub

Err_Вихід_Click:

MsgBox Err.Description

Resume Exit_Вихід_Click

End Sub

Запити для створення звітів (у формі SQL)

Запит «Контактна інформація »

SELECT [Інформація про клієнтів туристичного бюро].[IDnamber], [Інформація про клієнтів туристичного бюро].[surname], [Інформація про клієнтів туристичного бюро].[name], [Інформація про клієнтів туристичного бюро].[last_nane], [Інформація про клієнтів туристичного бюро].[date_of_birth], [Інформація про клієнтів туристичного бюро].[telephone]

FROM [Інформація про клієнтів туристичного бюро]

WHERE[Інформаціяпро клієнтів туристичного бюро].surname=[Введіть прізвище клієнта];

Запит «Адреса проживання клієнтів»

SELECT [Інформація про клієнтів туристичного бюро].surname, [Інформація про клієнтів туристичного бюро].name AS [Інформація про клієнтів туристичного бюро_name], [Інформація про клієнтів туристичного бюро].last_nane, Країна.name AS Країна_name, [Адреса проживання клієнта].town, [Адреса проживання клієнта].street, [Адреса проживання клієнта].namber

FROM (Країна INNER JOIN [Адреса проживання клієнта] ON Країна.IDcountry=[Адреса проживання клієнта].IDcountry) INNER JOIN [Інформація про клієнтів туристичного бюро] ON [Адреса проживання клієнта].IDaddress=[Інформація про клієнтів туристичного бюро].IDaddress

WHERE[Інформаціяпро клієнтів туристичного бюро].surname=[Введіть прізвище клієнта];

Запит «Документи»

SELECT [Інформація про клієнтів туристичного бюро].surname, [Інформація про клієнтів туристичного бюро].name, [Інформація про клієнтів туристичного бюро].last_nane, [Документи на візу].indef_kod, [Документи на візу].series_pasport, [Документи на візу].namber_pasport

FROM [Документи на візу] INNER JOIN [Інформація про клієнтів туристичного бюро] ON [Документи на візу].IDdocument=[Інформація про клієнтів туристичного бюро].IDdocument

WHERE[Інформаціяпро клієнтів туристичного бюро].surname=[Введіть прізвище клієнта];

Запит «Замовлені тури»

SELECT [Інформація про клієнтів туристичного бюро].surname, [Інформація про клієнтів туристичного бюро].name, [Інформація про клієнтів туристичного бюро].last_nane, Путівка.date_go, Путівка.date_arrival, Путівка.time, [Послуги які надає туристичне бюро].hotel, [Послуги які надає туристичне бюро].trans, [Послуги які надає туристичне бюро].food, [Інформація про замовлені тури].namber_permits, [Інформація про замовлені тури].date_registration, Путівка.price

FROM ([Послуги які надає туристичне бюро] INNER JOIN Путівка ON [Послуги які надає туристичне бюро].IDposluga=Путівка.IDposluga) INNER JOIN ([Інформація про клієнтів туристичного бюро] INNER JOIN [Інформація про замовлені тури] ON [Інформація про клієнтів туристичного бюро].IDnamber=[Інформація про замовлені тури].IDnamber) ON Путівка.IDtour=[Інформація про замовлені тури].IDtour

WHERE[Інформаціяпро клієнтів туристичного бюро].surname=[Введіть прізвище клієнта];

Запит «Продані путівки за 2010 рік»

SELECT [Інформація про клієнтів туристичного бюро].surname, [Інформація про клієнтів туристичного бюро].name, [Інформація про клієнтів туристичного бюро].last_nane, [Інформація про замовлені тури].date_registration, [Інформація про замовлені тури].namber_permits, Путівка.date_go, Путівка.date_arrival, Путівка.Time, Путівка.price

FROM Путівка INNER JOIN ([Інформація про клієнтів туристичного бюро] INNER JOIN [Інформація про замовлені тури] ON [Інформація про клієнтів туристичного бюро].IDnamber=[Інформація про замовлені тури].IDnamber) ON Путівка.IDtour=[Інформація про замовлені тури].IDtour

WHERE ((([Інформація про замовлені тури].date_registration) Between #1/1/2010# And #12/31/2010#));

Запит «Замовленні тури за 2012 рік»

SELECT [Інформація про клієнтів туристичного бюро].surname, [Інформація про клієнтів туристичного бюро].name, [Інформація про клієнтів туристичного бюро].last_nane, [Інформація про замовлені тури].date_registration, [Інформація про замовлені тури].namber_permits, Путівка.date_go, Путівка.date_arrival, Путівка.Time, Путівка.price

FROM Путівка INNER JOIN ([Інформація про клієнтів туристичного бюро] INNER JOIN [Інформація про замовлені тури] ON [Інформація про клієнтів туристичного бюро].IDnamber = [Інформація про замовлені тури].IDnamber) ON Путівка.IDtour = [Інформація про замовлені тури].IDtour

WHERE ((([Інформація про замовлені тури].date_registration) Between #1/1/2012# And #12/31/2012#));

Запит «Замовленні тури за 2013 рік»

SELECT [Інформація про клієнтів туристичного бюро].surname, [Інформація про клієнтів туристичного бюро].name, [Інформація про клієнтів туристичного бюро].last_nane, [Інформація про замовлені тури].date_registration, [Інформація про замовлені тури].namber_permits, Путівка.date_go, Путівка.date_arrival, Путівка.Time, Путівка.price

FROM Путівка INNER JOIN ([Інформація про клієнтів туристичного бюро] INNER JOIN [Інформація про замовлені тури] ON [Інформація про клієнтів туристичного бюро].IDnamber = [Інформація про замовлені тури].IDnamber) ON Путівка.IDtour = [Інформація про замовлені тури].IDtour

WHERE ((([Інформація про замовлені тури].date_registration) Between #1/1/2013# And #12/31/2013#));

Запит «Замовлені тури за 2014 рік»

SELECT [Інформація про клієнтів туристичного бюро].surname, [Інформація про клієнтів туристичного бюро].name, [Інформація про клієнтів туристичного бюро].last_nane, [Інформація про замовлені тури].date_registration, [Інформація про замовлені тури].namber_permits, Путівка.date_go, Путівка.date_arrival, Путівка.Time, Путівка.price

FROM Путівка INNER JOIN ([Інформація про клієнтів туристичного бюро] INNER JOIN [Інформація про замовлені тури] ON [Інформація про клієнтів туристичного бюро].IDnamber = [Інформація про замовлені тури].IDnamber) ON Путівка.IDtour = [Інформація про замовлені тури].IDtour

WHERE ((([Інформація про замовлені тури].date_registration) Between #1/1/2014# And #12/31/2014#));

Схема даних

Додаток ІІ

Таблиці даних з інформацією

Таблиця «Інформація про клієнтів»

Код клієнта	Код адреси	Код документа	Прізвище	Ім'я	По батькові	Дата народження	Номер телефону
1	101	201	Вацик	Уляна	Дмитрівна	13.08.1994	41-55-44
2	102	202	Баглик	Володимир	Сергійович	16.12.1990	41-53-20
3	103	203	Івасюк	Богдана	Богданівна	31.03.1992	66-16-45
4	104	204	Кукон	Вікторія	Миколаївна	24.05.1991	66-15-42
5	105	205	Магомета	Юрій	Степанович	02.08.1989	52-14-23
6	106	206	Булелик	Надія	Павлівна	15.07.1994	51-25-63
7	107	207	Гаврилюк	Світлана	Ігорівна	30.11.1990	66-16-33
8	108	208	Лоєнко	Валентина	Федорівна	25.09.1985	98-55-46
9	109	209	Обідняк	Марія	Михайлівна	01.07.1990	41-25-36
10	110	210	Клим'юк	Василь	Васильович	13.12.1983	52-85-75
11	111	211	Агарок	Ніна	Володимирівна	25.09.1990	52-48-69
12	112	212	Бескромна	Ірина	Олегівна	18.02.1985	25-64-78
13	113	213	Бурнашов	Антон	Юрійовий	12.05.1985	26-47-85
14	114	214	Голинський	Ігор	Михайлович	13.12.1970	54-48-52
15	115	215	Гаврикова	Руслана	Олександрівна	29.04.1984	24-58-45
16	116	216	Іонов	Констянтин	Дмитрович	26.07.1987	25-47-85
17	117	217	Деордієва	Вікторія	Сергіївна	28.09.1980	21-54-78
18	118	218	Половніков	Віктор	Андрійович	31.01.1990	45-87-45
19	119	219	Чуєв	Максим	Віталійович	02.02.1981	32-98-65
20	120	220	Чечельницький	Василь	Васильович	13.12.1994	12-75-95
21	121	221	Чернявський	Олег	Олександрович	25.06.1985	75-65-85
22	122	222	Шамшурін	Вячеслав	Назарович	23.07.1990	75-63-21
23	123	223	Простякова	Анна	Романівна	29.09.1975	65-98-52
24	124	224	Вівчар	Євген	Олексійович	15.12.1972	35-98-77
25	125	225	Рожук	Павло	Дмитрович	12.10.1975	44-52-11
26	126	226	Кедровська	Олександра	Сергіївна	16.11.1985	11-55-87
27	127	227	Земляков	Артем	Павлович	15.06.1983	65-87-45
28	128	228	Мельник	Надія	Василівна	17.11.1974	33-02-15
29	129	229	Гнип'юк	Дмитро	Романович	22.09.1970	20-15-38
30	130	230	Урсалова	Юлія	Павлівна	25.06.1974	25-65-90

Таблиця «Адреса проживання»

Код адреси	Код країни	Місто	Вулиця	Номер будинку
101	315	Київ	Лесі Українки	20
102	315	Дніпроперовськ	Панаса Мирного	25
103	315	Харків	Червоних Майовщиків	13
104	315	Донецьк	15 Квітня	5
105	315	Львів	Бойківська	36
106	315	Кривий Ріг	Вертепна	45
107	315	Миколаїв	Вербова	7
108	315	Вінниця	Броварна	15
109	315	Херсон	Весела	17
110	315	Полтава	Вешнева	19
111	315	Хмельницький	Абрикосова	25
112	315	Івано-Франківськ	Авіаційна	26
113	315	Тернопіль	Радісна	85
114	315	Ужгород	Азовська	66
115	315	Біла Церква	Резервна	33
116	315	Кременчуг	Агрегатна	74
117	315	Павлоград	Революції	1
118	315	Мелітополь	Автотранспортна	3
119	315	Луцьк	Адміральська	4
120	315	Луганськ	Сєвастопольська	6
121	315	Сімферополь	Радянська	8
122	315	Черкаси	Проспект Миру	10
123	315	Чернівці	Бутоми	12
124	315	Рівне	Героїв Сталінграда	13
125	315	Горлівка	Садова	15
126	315	Дніпродержинськ	Чігріна	17
127	315	Чернігів	Чкалова	19
128	315	Одеса	Шевченко	21
129	315	Маріуполь	Спаська	23
130	315	Суми	Нікольська	24

Таблиця «Країна»

Код країни	Назва країни
301	Багамські острови
302	Болгарія
303	Велика Британія
304	Греція
305	Індія
306	Іспанія
307	Камбоджа
308	Монако
309	ОАЕ
310	Панама
311	Сомалі
312	США
313	Таїланд
314	Туніс
315	Україна
316	Філіппіни
317	Фінляндія
318	Франція
319	Хорватія
320	Чехія
321	Чилі
322	Чорногорія
323	Швейцарія
324	Швеція
325	Шрі-Ланка
326	Ямайка
327	Японія
328	Тонга
329	Угорщина
330	Фіджі

Таблиця «Документи на візу»

Код документа	Ідентифікаційний код	Серія паспорта	Номер паспорта
201	1244857524	ОЕ	458762
202	1547896584	СЕ	875126
203	1254785698	ВС	986532
204	1748596321	ЕЕ	124578
205	1326547485	ЕС	326574
206	1587965423	ОЕ	852514
207	1209120956	СЕ	963274
208	1000578966	ЕЕ	159564
209	1254754744	ОС	984532
210	1222557889	ПА	769138
211	1254812542	СЕ	458512
212	1278459652	ОЕ	256398
213	1254744454	ВС	193782
214	1024052030	ЕЕ	456545
215	1205406801	ЕС	127865
216	1247098401	ЕО	204850
217	1234569870	СВ	102050
218	1748596142	ЕЕ	458752
219	1326578980	ВС	865572
220	1020326585	ОЕ	154785
221	1230479251	АП	344889
222	1708199412	ОР	100653
223	1748565457	КН	138796
224	1407085697	ЛД	179658
225	1478547854	ОТ	027862
226	1369025804	ЕС	398710
227	1074085096	ВК	101945
228	1780980652	ВР	170810
229	1857514524	ТО	154795
230	1230450560	ЛД	170109

Таблиця «Послуги які надає туристичне бюро»

Код послуги	Готель	Трансфер	Тип харчування
501	Адрія	Проїзд не включено	НВ
502	Аєропорт	Проїзд не включено	ВВ
503	Атташе	Проїзд не включено	FB
504	Бакара	Проїзд не включено	Al
505	Братислава	Проїзд включено	UAl
506	Діастро	Проїзд включено	RO
507	Венеціанська ніч	Проїзд включено	НВ
508	Домус	Проїзд включено	ВВ
509	Експрес	Проїзд включено	ВВ
510	Джинтама	Проїзд включено	ВВ
511	Імперія	Проїзд не включено	НВ
512	Клеопатра	Проїзд включено	FB
513	Сахарі	Проїзд включено	Al
514	Венесуела	Проїзд не включено	UAl
515	Ізабелла	Проїзд включено	RO
516	Троянда	Проїзд включено	RO
517	Кохання	Проїзд включено	UAl
518	Корона	Проїзд включено	Al
519	Либідка	Проїзд включено	FB
520	Фараон	Проїзд включено	ВВ
521	Плаза	Проїзд включено	НВ
522	Редисон	Проїзд не включено	НВ
523	Блю	Проїзд включено	ВВ
524	Рівєра	Проїзд не включено	НВ
525	Салют	Проїзд включено	FB
526	Рояль	Проїзд включено	Al
527	Вісак	Проїзд не включено	UAl
528	Сенаторс Парк	Проїзд включено	RO
529	Предслава	Проїзд не включено	FB
530	Венлаж	Проїзд включено	ВВ

Таблиця «Путівка»

Код путівки	Код країни	Код послуги	Вартість путівки	Дата відправлення	Дата прибуття	Термін (в днях)
401	301	501	1 525,00€	09.07.2013	19.07.2013	10
402	302	502	3 256,00€	15.10.2013	30.10.2013	15
403	303	503	2 369,00€	18.05.2012	28.05.2012	10
404	304	504	1 856,00€	25.09.2014	12.09.2014	17
405	305	505	15 369,00€	01.07.2013	30.01.2013	30
406	306	506	8 000,00€	12.06.2014	27.06.2014	15
407	307	507	4 563,00€	15.02.2013	28.02.2013	13
408	308	508	3 689,00€	10.04.2014	20.04.2014	10
409	309	509	9 752,00€	02.09.2014	22.09.2014	20
410	310	510	5 000,00€	14.05.2014	28.05.2014	14
411	311	511	2 568,00€	12.05.2014	25.05.2014	12
412	312	512	6 000,00€	03.03.2013	23.03.2013	20
413	313	513	6 500,00€	06.02.2014	15.02.2014	9
414	314	514	2 250,00€	12.08.2010	25.08.2010	13
415	315	515	11 000,00€	01.09.2013	01.10.2013	31
416	316	516	5 260,00€	15.04.2010	25.04.2010	10
417	317	517	7 265,00€	12.05.2013	28.05.2013	16
418	318	518	3 568,00€	26.04.2013	10.05.2013	15
419	319	519	4 785,00€	24.03.2014	11.03.2014	17
420	320	520	6 852,00€	17.02.2014	28.02.2014	11
421	321	521	9 000,00€	28.03.2014	15.04.2014	18
422	322	522	7 000,00€	15.05.2012	29.05.2012	14
423	323	523	8 500,00€	26.07.2012	15.07.2012	19
424	324	524	2 500,00€	23.06.2014	28.06.2014	5
425	325	525	6 500,00€	29.11.2013	20.12.2013	22
426	326	526	7 500,00€	07.12.2014	28.12.2014	21
427	327	527	4 200,00€	08.10.2014	19.10.2014	11
428	328	528	6 400,00€	13.11.2009	25.11.2010	12
429	329	529	3 100,00€	17.10.2010	30.10.2010	13
430	330	530	7 250,00€	16.07.2014	30.07.2014	14

Размещено на Allbest.ru