Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 359695
Дата создания 08 апреля 2013
Страниц 28
Мы сможем обработать ваш заказ (!) 29 марта в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 310руб.
КУПИТЬ

Содержание

Оглавление
ВВЕДЕНИЕ
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 ' проверка времени

Список литературы

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1.Мельников П.П. и др. Практикум по экономической информатике: Учеб. Пособие: Ч.III. – М.: Финансы и статистика; Перспективы, 2002.
2.Практикум по экономической информатике: Учебное пособие. Ч. 1/ Под ред. Шуремова Е.Л., Тимаковой Н.А., Мамонтовой Е.А. – М.: «Перспектива»,2000.
3.Слепцова Л.Д. Программирование на VBA в Microsoft Office 2007. Самоучитель. – М.: ООО «И.Д. Вильямс», 2007.
Очень похожие работы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00445
© Рефератбанк, 2002 - 2024