Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Звіт.doc
Скачиваний:
7
Добавлен:
22.11.2018
Размер:
657.41 Кб
Скачать

5. Cтворення бази даних (бд)

Умова задачі

Розробити книгу у MS Excel 2003 і скласти програму на мові Excel VBA для обліку діяльності туристичного бюро відповідно до міста та сезону.

1. Розробити електронні таблиці у середовищі MS Excel 2003: «Облік діяльності туристичного бюро» (30 записів), яка складається з наступних полів: № п/п, Дата,Прізвище клієнта, Назва міста, Кількість днів, Сезон (дата), Кількість путівок, Вид путівки, Вартість, Остаточна вартість (вид путівки); «Довідник міст»(5 записів), яка складається з наступних полів: назва міста, ціна за 1 день, ціна проїзду; «Довідник сезонів» (5 записів), яка складається з наступних полів: назва сезону, коефіцієнт.

а) ввести текстові і числові дані;

б) записати потрібні формули;

в) встановити зв'язок між основною таблицею і довідниками;

г) виконати форматування таблиць.

Рис 3.Облік діяльності туристичного бюро

Рис 4.Довідник міст та довідник сезонів

Значення полів “Прізвище клієнта”;“Назва міста”;“Вид путівки” вводяться за допомогою списків,що випадають.Значення поля “Сезон” залежить від поля “Дата”:

“Сезон”=ЕСЛИ(МЕСЯЦ(M4)<3;"Зимовий";ЕСЛИ(МЕСЯЦ(M4)<5;"Весняний";ЕСЛИ(МЕСЯЦ(M4)<=8;"Літній";"Осінній")))

Поле “Кількість путівок ” заповнюється довільними значеннями , поле

“Вартість ” розраховується як добуток значень полів “Назва міста” , “Кількість днів”,“Сезон” і відповідно через функцію ВПР довідників “Довідник міст” та “Довідник сезонів”, поле “ Остаточна вартість ” розраховується як добуток значень поля “Вид путівки ” та значення поля “Вартість ”.

“Вартість”=P4*R4*ВПР($O$4:$O$32;$A$3:$C$8;2;0)*

ВПР($Q$4:$Q$32;$F$3:$G$7;2;0)

“Остаточна вартість ”=ЕСЛИ(S4="гаряча";T4-(T4*0,2);T4*1)+ЕСЛИ(S4="пільгова";T4-(T4*0,3))

6. Розроблення форми користувача

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

Першою створено процедуру активізації форми :

Private Sub UserForm_ActivateQ

Довідник міст Адреса 1 -го значення

Range("A4").Select

Цикл з умовою

Do While ActiveCell.Value <> ""

nazvmist.AddItem ActiveCell.Value

zina1d.Text = ActiveCell.Offset(0, 1).Value

zinapr.Text = ActiveCell.Offset(0, 2).Value

ActiveCell.Offset(1, 0).Select

Loop

Довідник Сезонів

Range("F4").Select Адреса 1 -го значення

Цикл з умовою

Do While ActiveCell.Value <> ""

sezon.AddItem ActiveCell.Value

coef.Text = ActiveCell.Offset(0, 1).Value

ActiveCell.Offset(1, 0).Select

Loop

Облік діяльності туристичного бюро

Range("L4").Select

nomerpp.Text = ActiveCell.Value

datazam.Text = ActiveCell.Offset(0, 1).Value

prizv.Text = ActiveCell.Offset(0, 2).Value

nazvmist.Text = ActiveCell.Offset(0, 3).Value

kld.Text = ActiveCell.Offset(0, 4).Value

sezon.Text = ActiveCell.Offset(0, 5).Value

klp.Text = ActiveCell.Offset(0, 6).Value

vidput.Text = ActiveCell.Offset(0, 7).Value

vart.Text = ActiveCell.Offset(0, 8).Value

ostvart.Text = ActiveCell.Offset(0, 9).Value

Блокування доступу до полів ”

nomerpp.Locked = False

datazam.Locked = False

prizv.Locked = False

nazvmist.Locked = False

kld.Locked = False

sezon.Locked = False

klp.Locked = False

vidput.Locked = False

vart.Locked = False

ostvart.Locked = False

Активність кнопок ”

persh.Enabled = True

popered.Enabled = True

nastup.Enabled = True

ostan.Enabled = True

vidminyty.Enabled = True

vidal.Enabled = True

zminmov.Enabled = True

sort.Enabled = True

vihid.Enabled = True

dopovnyty.Enabled = True

zberegty.Enabled = True

redag.Enabled = True

End Sub

Для виконання початкового відображення форми натиснути F5 або

Кнопку Run/Sub яка знаходится на панелі інструментів.

Об’єкт управління

Ідентифікатор

Сортування

Sort

Змінити мову

Zminmov

Перший

Persh

Попередній

Popered

Наступний

Nastup

Останній

Ostan

Редагувати

Redag

Доповнити

Dopovnyty

Зберегти

Zberegty

Відмінити

Vidminyty

Видалити

Vidal

Архівація

archiv

Конвертація валют

Kurs

Вихід

Vihid

Назва міста

Nazvmist

Сезон

Sezon

У гривні

Grn

У валюту

Uval

До форми

Doform

Ціна за 1 день

Zina1d

Ціна проїзду

Zinapr

Коефіцієнт

Coef

Таблиця 7. Умовні позначення елементів управління

Рисунок 5.Форма користувача