Разработка автоматизированной системы «Бронирование мест в гостинице»

Cells (i, 2)) = False ' поиск нахождения (№ строки) данного отеля в таблице на листе «Данные об отелях»

If Sheets («Данные об отелях»).Cells (i, 2) = номер Then

j = i

End If

i = i + 1

Loop

TextBox1 = Sheets («Данные об отелях»).Cells (j, 3)

ComboBox1.Text = «»

TextBox4.Text = «»

ListBox3.Clear 'очищаем список свободных номеров Забронировать. Enabled = False

End Sub

Private Sub ListBox3_Click ()

Забронировать.Enabled = True

End Sub

Private Sub UserForm_initialize ()

Dim i As Integer

Dim today As Date

i = 6

Do While IsEmpty (Sheets («Данные об отелях»).Cells (i, 2)) = False ' присваивание № существующих отелей, опираясь на лист «Данные об отелях»

ListBox1.AddItem Sheets («Данные об отелях»).Cells (i, 2)

i = i + 1

Loop

ComboBox1.AddItem «DBL»

ComboBox1.AddItem «TRL»

ComboBox1.AddItem «SGL»

ComboBox1.AddItem «LUX»

today = CDate (Date) 'получаем системное время/дату

TextBox2 = Format (today, «dd.mm.yyyy»)

TextBox3 = Format (today + 14, «dd.mm.yyyy»)

Забронировать.Enabled = False

End Sub

Private Sub TextBox2_Exit (ByVal Cancel As MSForms. ReturnBoolean)

If TextBox2 <> Format (TextBox2, «dd.mm.yyyy») Then

MsgBox («Введите правильно!!!: «) & TextBox2 ' проверка времени

End If

End Sub

Private Sub TextBox3_Exit (ByVal Cancel As MSForms. ReturnBoolean)

If TextBox3 <> Format (TextBox3, «dd.mm.yyyy») Then

MsgBox («Введите правильно!!!: «) & TextBox3 ' проверка времени

End If

End Sub

Private Sub Выход_Click ()

End

End Sub

Private Sub Данные_Click ()

Dim i, j, k, f As Integer

Dim tn, tk, t1, t2 As Date

номер = Val (ListBox1) ' выбранный № отеля

tn = CDate (TextBox2)

tk = CDate (TextBox3)

Забронировать.Enabled = False

'проверка записей о бронях

i = 8

If (ComboBox1.Text = «DBL») Then k = 2

If (ComboBox1.Text = «TRL») Then k = 3

If (ComboBox1.Text = «SGL») Then k = 4

If (ComboBox1.Text = «LUX») Then k = 5

ListBox3.Clear

Do While IsEmpty (Sheets (ListBox1.Text).Cells (i, k)) = False ' просмотр номеров в таблице на листе выбранного отеля

f = 0 'признак что отель забронирован если f=1

j = 5

Do While IsEmpty (Sheets («Бронь»).Cells (j, 1)) = False ' поиск нахождения (№ строки) данного отеля в таблице на листе «Бронь»

If номер = Sheets («Бронь»).Cells (j, 1) And Sheets (ListBox1.Text).Cells (i, k) = Sheets («Бронь»).Cells (j, 5) Then 'отель и номер совпадают

'проверка наличия брони

t1 = CDate (Sheets («Бронь»).Cells (j, 3))

t2 = CDate (Sheets («Бронь»).Cells (j, 4))

If tn < t1 And tk > t1 Then f = 1

If tn < t2 And tk > t2 Then f = 1

If tn >= t1 And tk <= t2 Then f = 1

End If

j = j + 1

Loop

If f = 0 Then ListBox3. AddItem Val (Sheets (ListBox1.Text).Cells (i, k))

i = i + 1

Loop

End Sub

Private Sub Забронировать_Click ()

Dim i, j, y As Integer

Dim цена As Single

Dim v As String

v = Val (ListBox3) ' выбранный № номера

номер = Val (ListBox1) ' выбранный № отеля

i = 3

Do While IsEmpty (Sheets («Расценки»).Cells (i, 2)) = False ' просмотр стоимости номеров на листе Расценки

If номер = Sheets («Расценки»).Cells (i, 2) And Sheets («Расценки»).Cells (i, 4) = ComboBox1. Text Then

цена = Sheets («Расценки»).Cells (i, 5)

Exit Do

End If

i = i + 1

Loop

y = Application. CountA (Sheets («Бронь»).Range («A:A»)) + 2

With Sheets («Бронь»)

.Cells (y, 1) = Val (ListBox1) 'отель

.Cells (y, 2) = TextBox1 'название

.Cells (y, 3) = Format (TextBox2, «dd.mm.yyyy») 'дата с

.Cells (y, 4) = Format (TextBox3, «dd.mm.yyyy») 'дата по

.Cells (y, 5) = v 'номер

.Cells (y, 6) = цена 'цена

.Cells (y, 7) = цена * 0.45 'цена возврата

End With

MsgBox («Номер забронирован!»)

ListBox3.Clear 'очищаем список свободных номеров

End Sub

РАЗРАБОТКА ИНСТРУКЦИИ ПОЛЬЗОВАТЕЛЯ ПО РЕШЕНИЮ ЗАДАЧИ При открытии приложения, открывается главная форма

Рис.1

При выборе Данные об отелях открывается лист с данными

Рис.2

На данном листе имеется кнопка для Редактирования данных об отеле (добавление, редактирование, удаление). При нажатии на нее открывается окно редактирования для выбора корректировки.

Рис.3

Выбрав Добавить. Открывается форма для добавления Рис.4

Вводятся данные об отеле и нажимается ввод. После ввода формируется запись в таблице Данные об отеле, а также записи с ценами на номера на листе Расценки. Создается новый лист по шаблону hotel (скрыт). На котором, следует добавить номера этого отеля по типам.

Рис.5

Рис.6

При выборе Корректировать на форме Редактор, открывается форма для выбора корректируемого отеля, при выборе отеля открывается форма с данными корректируемого отеля.

Рис.7

Рис.8

При удалении отеля также откроется окно для выбора отеля (рис.

4) на котором будут представлены все имеющиеся в базе отели.

Для бронирования следует на главной форме выбрать кнопку Бронирование, откроется форма в которой следует указать отель, выбрать тип номера и получить данные по свободным номерам (кнопка Данные). В полученном списке выбрать номер и нажать Забронировать. При этом создаться запись в списке Броней на листе Бронь.

Рис.9

ЗАКЛЮЧЕНИЕ

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

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ Мельников П. П. и др. Практикум по экономической информатике: Учеб. Пособие: Ч.III. — М.: Финансы и статистика; Перспективы, 2002.

Практикум по экономической информатике: Учебное пособие. Ч. 1/ Под ред. Шуремова Е. Л., Тимаковой Н. А., Мамонтовой Е. А. — М.: «Перспектива», 2000.

Слепцова Л. Д. Программирование на VBA в Microsoft Office 2007

Самоучитель. — М.: ООО «И.Д. Вильямс», 2007.

ПРИЛОЖЕНИЕ 1

Распечатки исходных данных контрольного примера.

Рис.10

Рис.11

Рис.12

После выбора номера отеля в окне Название появляется его имя. Далее следует выбрать тип номера. При выборе типа номера автоматически определяется его цена и отображается в соответствующем окне. Поля Дата с (текущая дата) и Дата по (текущая дата + 14 дней) заполняются при открытии формы, такая форма заполнения выбрана для удобства. Далее следует нажать на Данные и сформируется список свободных номеров. После выбора номера из сформированного списка кнопка Забронировать станет активной. Если еще раз нажать Данные кнопка Забронировать будет не активна пока не выбран номер в списке. При перевыборе номера отеля все выбранные данные на форме сбрасываются.

После нажатия на эту кнопку номер будет забронирован добавиться соответствующая запись на листе Бронь.

Рис.13

Если повторить выбор тех же параметров, то первого номера уже не будет в списке потому что он забронирован на этот период.

Рис.14

Рис.15