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

Оглавление
ВВЕДЕНИЕ
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

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

End With
y = Application.CountA(Sheets("Расценки").Range("B:B")) + 1
With Sheets("Расценки")
.Cells(y, 3) = РедакторГр.TextBox2 'название
.Cells(y + 1, 3) = РедакторГр.TextBox2 'название
.Cells(y + 2, 3) = РедакторГр.TextBox2 'название
.Cells(y + 3, 3) = РедакторГр.TextBox2 'название
.Cells(y, 4) = Label7 'DBL номер
.Cells(y + 1, 4) = Label8 'TRL номер
.Cells(y + 2, 4) = Label9 'SGL номер
.Cells(y + 3, 4) = Label10 'LUX номер
.Cells(y, 5) = Val(РедакторГр.TextBox6) 'цена DBL номера
.Cells(y + 1, 5) = Val(РедакторГр.TextBox7) 'цена TRL номера
.Cells(y + 2, 5) = Val(РедакторГр.TextBox8) 'цена SGL номера
.Cells(y + 3, 5) = Val(РедакторГр.TextBox9) 'цена LUX номера
.Cells(y, 2) = Val(РедакторГр.TextBox1) '№ отеля
.Cells(y + 1, 2) = Val(РедакторГр.TextBox1) '№ отеля
.Cells(y +2, 2) = Val(РедакторГр.TextBox1) '№ отеля
.Cells(y + 3, 2) = Val(РедакторГр.TextBox1) '№ отеля
End With
For A = 2 To 5
Sheets("Расценки").Cells(y + 3, A).Interior.ColorIndex = 24 ' цвет ячейки для оформления таблицы
Sheets("Расценки").Cells(y + 2, A).Interior.ColorIndex = 24
Sheets("Расценки").Cells(y + 1, A).Interior.ColorIndex = 24
Sheets("Расценки").Cells(y, A).Interior.ColorIndex = 24
Next A
For e = 2 To 3
Sheets("Расценки").Cells(y + 3, e).Font.ColorIndex = 24 ' цвет шрифта под цвет тона ячейки, для оформления, только текст первой ячейки с данным номером чёрный
Sheets("Расценки").Cells(y + 2, e).Font.ColorIndex = 24
Sheets("Расценки").Cells(y + 1, e).Font.ColorIndex = 24
Next e
End If
If k = 2 Then ' редактор существующего отеля
x = Val(КорректорГр.ListBox1)
i = 6
Do While IsEmpty(Sheets("Данные об отелях").Cells(i, 2)) = False 'определение № строки расположения данного отеля на листе "Данные об отелях"
If x = Cells(i, 2) Then
t = i
End If
i = i + 1
Loop
With Sheets("Данные об отелях")
.Cells(t, 2) = Val(РедакторГр.TextBox1) ' № отеля
.Cells(t, 3) = РедакторГр.TextBox2.Text 'название
.Cells(t, 4) = РедакторГр.ComboBox1.Text 'класс
.Cells(t, 5) = РедакторГр.TextBox4 'адрес
.Cells(t, 6) = РедакторГр.TextBox5 'телефон
End With
For m = 2 To 6
Sheets("Данные об отелях").Cells(t, m).Interior.ColorIndex = 24 ' окраска ячеек для таблицы
Next m
With РедакторГр
Sheets("Расценки").Cells(h - 3, 2) = Val(.TextBox1) '№ отеля
Sheets("Расценки").Cells(h - 2, 2) = Val(.TextBox1) '№ отеля
Sheets("Расценки").Cells(h - 1, 2) = Val(.TextBox1) '№ отеля
Sheets("Расценки").Cells(h, 2) = Val(.TextBox1) '№ отеля
Sheets("Расценки").Cells(h - 3, 3) = .TextBox2 'название
Sheets("Расценки").Cells(h - 2, 3) = .TextBox2 'название
Sheets("Расценки").Cells(h - 1, 3) = .TextBox2 'название
Sheets("Расценки").Cells(h, 3) = .TextBox2 'название
Sheets("Расценки").Cells(h - 3, 5) = Val(.TextBox6) 'цена DBL номера
Sheets("Расценки").Cells(h - 2, 5) = Val(.TextBox7) 'цена TRL номера
Sheets("Расценки").Cells(h - 1, 5) = Val(.TextBox8) 'цена SGL номера
Sheets("Расценки").Cells(h, 5) = Val(.TextBox9) 'цена LUX номера
Sheets("Расценки").Cells(h - 3, 4) = Label7 'DBL номер
Sheets("Расценки").Cells(h - 2, 4) = Label8 'TRL номер
Sheets("Расценки").Cells(h - 1, 4) = Label9 'SGL номер
Sheets("Расценки").Cells(h, 4) = Label10 'LUX номер
End With
For A = 2 To 5
Sheets("Расценки").Cells(h - 3, A).Interior.ColorIndex = 24 ' цвет ячейки для оформления таблицы
Sheets("Расценки").Cells(h - 2, A).Interior.ColorIndex = 24
Sheets("Расценки").Cells(h - 1, A).Interior.ColorIndex = 24
Sheets("Расценки").Cells(h, A).Interior.ColorIndex = 24
Next A
For e = 2 To 3
Sheets("Расценки").Cells(h, e).Font.ColorIndex = 24 ' цвет шрифта под цвет тона ячейки, для оформления, только текст первой ячейки с данным номером чёрный
Sheets("Расценки").Cells(h - 2, e).Font.ColorIndex = 24
Sheets("Расценки").Cells(h - 1, e).Font.ColorIndex = 24
Next e
'редактирование листа для редактируемого отеля
'изменение на листе поля название
Worksheets(t - 3).Cells(2, 3 + 17 * название) = РедакторГр.TextBox2.Text
Worksheets(t - 3).Visible = True
MsgBox ("Данные об отеле изменены!")
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
If РедакторГр.TextBox1 <> Val(РедакторГр.TextBox1) Then
MsgBox ("Введите правильно!!!: ") & РедакторГр.TextBox1 ' проверка № отеля на повтор
End If
If k = 1 Then
i = 6
Do While IsEmpty(Sheets("Данные об отелях").Cells(i, 2)) = False
If Val(РедакторГр.TextBox1) = Cells(i, 2) Then
MsgBox ("Данный номер уже существует!: ") & РедакторГр.TextBox1 ' проверка № отеля на повтор
End If
i = i + 1
Loop
End If
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If РедакторГр.TextBox6 <> Val(РедакторГр.TextBox6) Then
MsgBox ("Введите правильно!!!: ") & РедакторГр.TextBox6 ' проверка на числовое значение
End If
End Sub
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If РедакторГр.TextBox7 <> Val(РедакторГр.TextBox7) Then
MsgBox ("Введите правильно!!!: ") & РедакторГр.TextBox7 ' проверка на числовое значение
End If
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If РедакторГр.TextBox8 <> Val(РедакторГр.TextBox8) Then
MsgBox ("Введите правильно!!!: ") & РедакторГр.TextBox8 ' проверка на числовое значение
End If
End Sub
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If РедакторГр.TextBox9 <> Val(РедакторГр.TextBox9) Then
MsgBox ("Введите правильно!!!: ") & РедакторГр.TextBox9 ' проверка на числовое значение
End If
End Sub
Private Sub Конец_ввода_Click()
End
End Sub
Удаление отеля
Option Explicit
Private Sub Выход_Click()
End
End Sub
Private Sub Удалить_Click()
Dim i, t As Integer
Dim x, h As String
x = Val(КорректорГр.ListBox1) 'выбранный № отеля для удаления с листа "Данные об отелях"
i = 6
Do While IsEmpty(Sheets("Данные об отелях").Cells(i, 2)) = False ' поиск этого номера в таблице
If x = Cells(i, 2) Then t = i
i = i + 1
Loop
With Sheets("Данные об отелях")
.Cells(t, 2).EntireRow.Delete (xlShiftUp) ' удаление
Worksheets(t - 2).Delete
i = 3
Do While IsEmpty(Sheets("Расценки").Cells(i, 2)) = False ' определение нахождения(№ строки) данного отеля в таблице
If Val(Sheets("Расценки").Cells(i, 2)) = x Then
h = i
End If
i = i + 1
Loop
Do While Sheets("Расценки").Cells(h - 3, 2) = x
Sheets("Расценки").Cells(h - 3, 2).EntireRow.Delete (xlShiftUp) 'удаление данного отеля с листа "Расценки"
Loop
End With
End Sub
Бронирование
Option Explicit
Private Sub ComboBox1_Click()
Dim i As Integer
номер = 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
TextBox4.Text = Sheets("Расценки").Cells(i, 5)
Exit Do
End If
i = i + 1
Loop
ListBox3.Clear 'очищаем список свободных номеров
Забронировать.Enabled = False
End Sub
Private Sub ListBox1_Click()
Dim i, j As Integer
номер = Val(ListBox1) ' выбранный № отеля
i = 6
Do While IsEmpty(Sheets("Данные об отелях").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 ' проверка времени