Программа для расчета данных тура туристической компании: «Вокруг Света»

НЕГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ  УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИАНОЛЬНОГО ОБРАЗОВАНИЯ

РОССИЙСКАЯ МЕЖДУНАРОДНАЯ АКАДЕМИЯ ТУРИЗМА

КАФЕДРА «ИИНФОРМАТИКИ И ЭКОНОМИКИ»

 

 

 

 

 

 

 

 

 

Курсовая работа

по дисциплине: «Информатика»

по теме: «Программа для расчета данных тура туристической компании: «Вокруг Света»»

 

 

 

 

 

 

 

 

 

Выполнила: Хохлова Ирина

студентка II курса 09120 ТМ

Проверил: Южаков В.А.

Доцент, к.т.н.

 

 

 

 

 

 

 

 

Дмитров 2010

СОДЕРЖАНИЕ

 

Введение

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

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

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

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Создание  работы

1 Лист Start

На листе «Start»  располагается рисунок, реклама туристкой фирмы и кнопка «выбор тура». Рисунок вставляем следующим образом: вставка, рисунок, из файла.

Элемент управления кнопка устанавливается в режиме «Конструктор». Для этого входим: Вид – Панель инструментов -  Элементы управления. Входим в режим «Конструктор» .  Установив кнопку, в режиме «Конструктор», щелкаем по кнопке «Исходный текст» . Запустился редактор Visual Basic. В открывшемся окне набираем код:

Private Sub CommandButton1_Click ()

Sheets (‘’Туры’’).Select

End Sub

Для того чтобы изменить свойства кнопки в режиме «Конструктор» щёлкаем  правой кнопкой мыши и нажимаем «Свойства».      

 

BackColor - цвет фона кнопки;

Caption - название кнопки;

ForeColor - цвет шрифта кнопки;

Font – изменение текста (размер, шрифт и т.д).

 

 

2 Лист «Тур»

На листе «Тур» представлены туры, которые туристская фирма может предложить туристу. А именно: страна, регион, вид тура, отель, стоимость визы, билета и трансфер. В ячейках с A5 по G5 ставим «Фильтр» для этого ячейки, на которых должен стоять фильтр и нажимаем на панели инструментов Данные – Фильтр – Автофильтр.

 

 

 

Устанавливаем элемент управления «Кнопка», у нас их 2. «Выбор тура» и «Категория номеров». Щёлкаем на элемент управления . Затем правой кнопкой мыши нажимаем на «Свойства», форматируем. Потом запускаем редактор Visual Basic . В открывшемся окне набираем код:

 

 

Private Sub CommandButton1_Click()

Selection.Copy

Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

(Для кнопки  «Выбор тура»)

________

Private Sub CommandButton2_Click()

Sheets("Номера").Select

End Sub

(Для кнопки  «Категория номеров»)

 

На этом листе мы выбираем тур, щёлкнув  на кнопку «Выбор тура» (этот тур отображается в строке А1), и переходим, щелкая по кнопке «Категории номеров» на лист «номера».

3 Лист «Номера»

На листе «Номера» располагаются все отели в соответствии с турами. В строке А4-Е4  располагается автофильтр (на панели инструментов Данные – Фильтр - Автофильтр), щелкнув по кнопке в углу каждого столбца, вы можете отсортировать предлагаемый список отелей:

 

В строке А2 находится название отеля,  регион, в котором находится отель. Названия выводятся автоматически, после того как вы щелкнули по кнопке «Выбрать тур» на листе «Тур».  Для этого в клетки А2,В2,D2 заносятся формулы с ссылкой на лист «Тур».

А2 =Тур!D1

В2 =Тур!A1

D2=Тур!B1

На листе «Номера» располагаются регионы, категории отелей, типы номеров и стоимость за сутки. Элементы управления кнопки устанавливается аналогично, как и на предыдущих листах. В открывшемся окне свойств, переименовываем копку (выбрать номер в гостинице) и устанавливаем цвет по своему усмотрению. В открывшемся редакторе Visual Basic набираем следующий код:

Private Sub CommandButton1_Click()

Selection.Copy

Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Для кнопки «Перейти к расчету» нужен следующий код:

Private Sub CommandButton2_Click()

Sheets("Расчёт").Select

End Sub

 

 

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

4 Лист «Расчёт»

На листе «Расчёт» располагается  общая сумма приобретенного тура. В строке А2 находится страна и  регион приобретенного тура, стоимости  визы, билета, трансфера и отеля.

Устанавливаем флажки в ячейках  B5 по B8. Для этого щелкаем по кнопке «Флажок» , а затем «Исходный текст» на панели инструментов и вводим коды в Microsoft Visual Basic.

Код для каждого флажка:

Private Sub CheckBox1_Click()

Range("B5").Select

ActiveCell.FormulaR1C1 = IIf(CheckBox1.Value, 1, 0)

End Sub

________

Private Sub CheckBox2_Click()

Range("B6").Select

ActiveCell.FormulaR1C1 = IIf(CheckBox2.Value, 1, 0)

End Sub

Private Sub CheckBox3_Click()

Range("B7").Select

ActiveCell.FormulaR1C1 = IIf(CheckBox3.Value, 1, 0)

End Sub

_______

Private Sub CheckBox4_Click()

Range("B8").Select

ActiveCell.FormulaR1C1 = IIf(CheckBox4.Value, 1, 0)

End Sub

_______

Private Sub CheckBox5_Click()

Range("B9").Select

ActiveCell.FormulaR1C1 = IIf(CheckBox5.Value, 1, 0)

End Sub

В ячейке G2 располагается общая сумма. Сумма вводится при помощи кнопки «Вставка функции». Функция МУМНОЖ. В Массиве 1 мы вставляем ячейки C2:F2, а в Массиве 2 B5:B8 и щелкаем по кнопке OK

После флажки можно «снимать» щёлкая по квадратику (например, трансфера) и после этого сумма в ячейке G2 изменяется.

Кнопку «Приступить к оформлению»  устанавливаем аналогично, как и  в прошлых листах. В редакторе  Visual Basic набираем следующий код:

 

Private Sub CommandButton1_Click()

Sheets("Клиенты").Select

End Sub

 

После нажатия на кнопку, вы переходите на лист «Клиенты».

5 Лист «Клиенты»

На листе «Клиенты» располагается  вся информация о клиентах: ФИО, адрес, телефон и паспортные данные.

 

 

Внизу листа находится 2 элемента управления кнопка. Аналогично предыдущим даём другие имена кнопкам и в редакторе Visual Basic набираем следующий код:

 

 

 

Private Sub CommandButton1_Click()

Selection.Copy

Range("A2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Код для кнопки «Выбор клиента».

 

 

Private Sub CommandButton2_Click()

Sheets("Договор").Select

End Sub

Код для кнопки «Заключить договор».

 

Щёлкнув кнопку «Выбор клиента», ваш выбор отобразиться в строке А2, а нажав кнопку «Заключить договор», вы перейдёте на лист «Договор».

6 Лист  «Договор»

На листе «Договор» находится договор об оказании туристских услуг данному клиенту. В строке А13 располагаются инициалы данного клиента. Эта информация выводится автоматически. Для этого в клетку А13 заносится формула со ссылкой на лист Клиенты=Клиенты!А2. Аналогично для ввода адреса в строку А15 заносится формула со ссылкой на лист Клиенты =Клиенты!В2.

 

Общая стоимость заносится в  ячейку D27 со ссылкой на лист «Расчёт» =Расчёт!E7. В результате в ячейке D27 листа «Договор» появится общая стоимость приобретенного тура. Кнопка, которая называется «Перейти к приложению» оформляется аналогично, как и на предыдущих листах.

Код для кнопки:

Private Sub CommandButton1_Click()

Sheets("Приложение").Select

End Sub

 

7 Лист «Приложение»

На листе «Приложение» находится вся информация, касающаяся тура. Она представляет собой приложение к договору. Здесь указываются инициалы заказчика, маршрут путевки, общая стоимость туристкой путевки и перечень предоставляемых услуг. Сюда входит стоимость визы, билета, трансфера и отеля. В том случае если вы не выбрали те или иные услуги, то в ячейке пишется - «не предусмотрено».

Все значения по услугам вводится при помощи кнопки вставка функции. Функция ЕСЛИ. Для поля «Оформление визы» - ячейка F18 расчетная формула будет иметь вид =ЕСЛИ(Расчёт!B5;Расчёт!C2;"не предусмотрено"). Аналогично вводим формулы и в другие ячейки (F19, F20,F21)

 

 

 

 

 

 

 

Инструкция пользователю

На листе «Start» размещается заставка, реклама туристкой фирмы «Вокруг Света» и кнопка «Выбор тура». Щелкнув по этой кнопке, мы переходим на лист «Тур».

На листе «Тур» располагается вся информация касающаяся туров. Здесь мы выбираем страну, щелкнув левой кнопкой мыши по строке. Затем щелкаем по кнопке «Выбор тура», сверху на строке A1 отображается наш выбор. После выбора отеля нажимаем на кнопку «Категория номеров», и попадаем на лист «Номера».

В листе «Номера» выбираем отель  в соответствии с нашей страной  и регионом и щелкаем левой  кнопкой мыши по кнопке «Выбрать номер  в гостинице»,  в строке А1 отображается наш выбор. Затем нажимаем на кнопку «Перейти к расчёту», и переходим на лист «Расчет».

На листе «Расчет» находится  общая сумма тура и флажки, где  можно отказаться от той или иной предоставляемой услуги. Здесь мы щелкаем по кнопке и переходим  на лист «Клиенты».

На листе Клиенты выбираем нужного  нам клиента и щелкаем по кнопке «Выбор клиента». В строке А2 отображается выбранный нами клиент. Затем нажимаем по кнопке «Заключить договор», и мы переходим на лист «Договор».

На листе Договор располагается  информация о предоставление конкретных туристских услуг данному клиенту. Здесь мы только щелкаем по стрелке «Перейти к приложению».

В Приложении показаны предоставляемые  услуги, заказчика и маршрут путешествия.

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

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

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