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

Оглавление
ВВЕДЕНИЕ
1.ПОСТАНОВКА ЗАДАЧИ
1.1.Описание предметной области решаемой задачи с указанием объекта автоматизации
1.2.Функции, реализуемые задачей
1.3.Описание нормативно-справочной и оперативной информации (входные документы, необходимые для решения задачи)
1.4.Описание выходной информации
2.РАЗРАБОТКА ИНФОРМАЦИОННОГО ОБЕСПЕЧЕНИЯ ЗАДАЧИ
2.1.Описание реквизитов входной информации
2.2.Разработка исходных данных контрольного примера
2.3.Создание электронной таблицы на компьютере
3.ОПИСАНИЕ ТЕХНОЛОГИИ И АЛГОРИТМОВ РЕШЕНИЯ ЗАДАЧИ И ИХ МАШИННАЯ РЕАЛИЗАЦИЯ
3.1.Описание технологии ввода входной информации задачи (определение перечня документов-источников для загрузки данных и описание макетов экранных форм для ввода данных)
3.2.Обобщенный алгоритм решения задачи и его декомпозиция на модули, реализуемые инструментальными средствами (электронными таблицами).
3.3.Создание проекта в VBA (реализация отдельных модулей задачи: запросы, таблицы, формы, макросы)
4.РАЗРАБОТКА ИНСТРУКЦИИ ПОЛЬЗОВАТЕЛЯ ПО РЕШЕНИЮ ЗАДАЧИ
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЕ 1

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
12