Применение информационных технологий для автоматизации деятельности администратора отеля

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

«Санкт-Петербургский государственный инженерно-экономический университет»

Факультет информационных систем в экономике и управлении

Кафедра информационных систем в экономике

Курсовой проект

по дисциплине «Информационные технологии»

Выполнила:

Брусова Надежда Юрьевна

студентка 2 курса 4 года 10 мес.

спец. 080801 Группа 392

Преподаватель:

Егорова Ирина Владимировна

Должность: к.э.н., доцент

Санкт-Петербург

2011 г.



Описание условия задачи

Тема курсового проекта: «Применение информационных технологий для автоматизации деятельности администратора отеля»

Организационно-экономическая сущность задачи

Без СВТ деятельность администратора отеля осуществляется следующим образом: в отель приходит человек, желающий остановиться в нем. Он просит администратора подобрать подходящий номер. У администратора имеется журнал постояльцев, в котором записаны следующие данные о жильцах и их проживании в отеле:

ФИО жильца;

№ паспорта жильца;

дата заезда в отель;

дата выезда (до которой оплачено проживание);

№ номера, в который администратор определяет жильца;

сумма, внесенная жильцом.

Каждому дню соответствует новый лист в журнале.

Администратор ищет по этому журналу свободный номер. Когда находит, предлагает номер клиенту. Если ему нравится, администратор заселяет клиента. Администратор создает новую запись в журнале постояльцев. Клиент оплачивает проживание, ему выдается кассовый чек.

В конце каждого рабочего дня составляется отчет. В нем записываются жильцы, проживающие в отеле на данный момент, и считается выручка за день: суммируется оплата, произведенная в этот день, и оплаченные услуги в этот день.

Имеется прейскурант цен на номера. Номера с одинаковыми характеристиками (цена/сутки, класс номера(эконом, стандарт, люкс), количество мест в номере, относятся к одному типу номеров. Информация о типах номеров, ценах и номерах, относящихся к определенному типу, устанавливается начальством.

Назначение задачи

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

Периодичность решения и требования к срокам решения

Периодичность решения и требования к срокам: по мере обращения клиентов.

Источники и способы получения данных

Данные о требованиях клиента администратор узнает из его устного сообщения. Цены, объявленные за проживание, устанавливаются начальством.

Потребители результатной информации и способы ее отправки

Потребители результата: клиент, администратор отеля, бухгалтерия, начальство.

Описание информации, необходимой для решения задачи

	Входная	Выходная	Справочная
Наименование	Требование клиента	Отчет	Чек	Номер	Тип номера	Услуги	Счета
Форма	Устная	Письменная	Письменная	Письменная	Письменная	Письменная	Письменная
Периодичность	По мере обращения	1 раз/день	При оплате услуг клиентом	По мере необходимости	По мере необходимости	По мере необходимости	При заказе услуги
Откуда	От клиента	Администратор отеля	Администратор отеля	Начальство	Начальство	Начальство
Куда передается	Администратор отеля	Начальство	Клиент	Администратор отеля, клиент	Администратор отеля	Администратор отеля, клиент	Администратор отеля

Структура базы данных

Клиент - ФИО - № паспорта* -дата заезда - дата выселения - № номера	Номер - свободен/занят - № номера* (0-свободен, 1-занят) - код типа*	Тип номера - цена/сутки - кол-во человек - класс (0-эконом,1-стандарт,2-люкс) - код типа*
Счета - дата - № Счета* - код услуги -наименование услуги - количество - сумма - № номера - ФИО клиента - № паспорта	Чек - ФИО клиента - № паспорта - наименование услуги - цена услуги - количество - сумма	Отчет -№ номера - класс номера - свободен/занят - ФИО - дата заезда - дата выезда - услуги -сумма оплаты

Схема системы меню

Регистрация		Выселение		Услуги		Редактирование		Отчет		Выход
						Номер
						Тип
						Услуги



Приложение 1. «Структура таблиц»

Рабочий лист «Клиент»

ФИО	№ паспорта	Дата заезда	Дата выселения	№ номера	Сумма

Рабочий лист «Текущие заказы»

№ номера	Свободен/занят	Код типа номера

Рабочий лист «Услуги»

Код услуги	Наименование	Стоимость

Рабочий лист «Услуги»

Код типа номера	Класс	Кол-во мест	Цена/сутки

Рабочий лист «Счета»

№ счета	Дата	Код услуги	Наименование	Количество	Сумма	№ номера	ФИО клиента	№ паспорта



Приложение 2. «Выходные документы»

Выходной документ «Чек»

Отель "Бухта БинБоу"
Счет № от 11.05.2011 г.
	ФИО клиента	Дик Кристина Яковлевна
	№ паспорта	5577 902381
	Наименование услуги	Цена	Кол-во	Сумма
	Питание	600	1	600
	Кабельное телевидение	400	1	400
	Администратор отеля			Джим Хокенс

Выходной документ «Отчет»

Отель "Бухта БинБоу"
Наполнение отеля постояльцами на 11.05.2011
Номер	Класс	Занят	Постоялец	Заезд	Выбытие	Сумма
101	Эконом	Занят	Иванов Иван Иванович	05.05.2011	16.05.2011	11000
102	Эконом	Свободен
103	Эконом	Свободен
201	Стандарт	Свободен
202	Стандарт	Свободен
203	Стандарт	Свободен
301	Люкс	Занят	Брусова Надежда Юрьевна	04.05.2011	31.05.2011	108000
302	Люкс	Свободен
303	Люкс	Свободен



Приложение 3. «Тексты макросов»

Код к форме «Редактирование номеров»

Dim r As Object

Private Sub SpinButton1_Change()

TextBox1.Text = Worksheets("Номер").Cells(SpinButton1.Value, 1).Value

TextBox2.Text = Worksheets("Номер ").Cells(SpinButton1.Value, 3).Value

Label2.Caption = "Количество мест - " + CStr(Worksheets("Тип номера "). _

Cells(Worksheets("Тип номера").Cells(1, 1).CurrentRegion.Find(TextBox2.Value,_ LookIn:=xlValues).Row, 3).Value)

Label3.Caption = "Класс номера - " + CStr(Worksheets("Тип номера ")._ Cells(Worksheets("Тип номера "). _

Cells(1, 1).CurrentRegion.Find(TextBox2.Value, LookIn:=xlValues).Row, 2).Value)

Label4.Caption = "Цена/сутки - " + CStr(Worksheets("Тип номера "). _

Cells(Worksheets("Тип номера "). Cells(1, 1).CurrentRegion. _

Find(TextBox2.Value, LookIn:=xlValues).Row, 4).Value)

End Sub

Private Sub SpinButton2_Change()

TextBox2.Text = CStr(Worksheets("Тип номера ").Cells(SpinButton2.Value, 1).Value)

Label2.Caption = " Количество мест - " + CStr(Worksheets("Тип номера "). _

Cells(Worksheets("Тип номера ").Cells(1, 1).CurrentRegion. _

Find(TextBox2.Value, LookIn:=xlValues).Row, 3).Value)

Label3.Caption = " Класс номера - " + CStr(Worksheets("Тип номера "). _

Cells(Worksheets("Тип номера "). _

Cells(1, 1).CurrentRegion.Find(TextBox2.Value, LookIn:=xlValues).Row, 2).Value)

Label4.Caption = " Цена/сутки - " + CStr(Worksheets("Тип номера "). _

Cells(Worksheets("Тип номера "). _

Cells(1, 1).CurrentRegion.Find(TextBox2.Value, LookIn:=xlValues).Row, 4).Value)

End Sub

Private Sub UdalNom_Click()

Dim l As Object

Worksheets("Номер").Rows(SpinButton1.Value).Delete

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.SetFocus

SpinButton1.Max = SpinButton1.Max - 1

If SpinButton1.Max < SpinButton1.Value Then

SpinButton1.Value = SpinButton1.Max

End If

End Sub

Private Sub UserForm_Activate()

Worksheets("Номер").Activate

SpinButton1.Min = 2

SpinButton1.Max = Worksheets("Номер ").Cells(1, 1).CurrentRegion.Rows.Count

SpinButton1.Value = 2

Set k = Worksheets("Тип номера").Cells(1, 1).CurrentRegion. _

Find(TextBox2.Value, LookIn:=xlValues)

Label2.Caption = " Количество мест - " + CStr(Worksheets("Тип номера "). _

Cells(k.Row, 3).Value)

Label3.Caption = " Класс номера - " + CStr(Worksheets("Тип номера ").Cells(k.Row, 2).Value)

Label4.Caption = "Цена/сутки - " + CStr(Worksheets("Тип номера ").Cells(k.Row, 4).Value)

SpinButton2.Min = 2

SpinButton2.Max = Worksheets("Тип номера ").Cells(1, 1).CurrentRegion.Rows.Count

SpinButton2.Value = 2

End Sub

Private Sub ZakrRedNom_Click()

Unload Me

End Sub

Private Sub ZapNom_Click()

Dim obj5 As Object

Dim s As Integer, i As Integer

Dim t(1 To 3) As Variant

Set r = Worksheets("Номер").Cells(1, 1).CurrentRegion.Find(TextBox1.Value, LookIn:=xlValues)

If Not r Is Nothing Then

Worksheets("Номер ").Cells(r.Row, 3) = TextBox2.Text

Else

s = Worksheets("Номер ").Cells(1, 1).CurrentRegion.Rows.Count + 1

With UserForm6

t(1) = .TextBox1.Text

t(2) = "0"

t(3) = .TextBox2.Text

End With

For i = 1 To 3

Worksheets("Номер ").Cells(s, i).Value = t(i)

Next i

Границы

Сортировка2

End If

With UserForm6

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.SetFocus

End With

End Sub



Приложение 4. «Инфологическая схема»

автоматизирование результатный информация

Private Sub ZapNom_Click()

Размещено на Allbest.ru