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

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

 

Государственное образовательное учреждение

высшего профессионального  образования

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

инженерно-экономический  университет»

 

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

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

 

 

КУРСОВОЙ ПРОЕКТ

Применение  информационных технологий для автоматизации  работы администратора по аренде коттеджей.

По предмету: Информационные технологии

 

 

 

 

 

Выполнил: Мамедов Т.Ф.

студент   2 курса  спец. 080801

Группа: 391 № зачётной книжки

Подпись____________________________________

Преподаватель: Егорова И.В.

Должность: доцент

Оценка ___________Дата______________________

Подпись________

 

 

 

 

 

 

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

2011

 

1. Постановка задачи   

1. Автоматизация деятельности Администратора аренды коттеджей

2.Начну с того, что все коттеджи одинаковые.

К нам приходит клиент или он звонит, чтобы забронировать номер, администратор  берет анкету (договор) и начинает заполнять пункты: ФИО клиента, его  паспортные данные, номер телефона, дату въезда и дату, когда он уедет и номер свободного, на данную дату, коттеджа (просматривает записи в ежедневнике), затем он умножит стоимость одного дня проживания на количество дней, которые клиент проведет в коттедже и впишет сумму счета (стоимость проживания одинакова для всех коттеджей), так же клиенту сообщается, что в одном коттедже могут проживать только 6 человек, но на стоимость это не отражается. По прибытии, клиент оплачивает свое проживание. Одну копию договора администратор отдает клиенту, а другую оставляет у себя в архиве. Потом для удобства он записывает занятые дни и номер занятого коттеджа в ежедневник, чтобы удобно было просматривать свободные и занятые коттеджи. И так с каждым клиентом.

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

3. 3.1 сокращается время регистрации гостей.

3.2 автоматически заполняются все необходимые документы.

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

3.4 четко отслеживаются свободные номера.

4. Начальник: следит за общей  ситуацией и отдает распоряжения.; Администраторы: регистрирует клиентов, выписывает клиентов, отслеживает состояние коттеджей, составляет ежедневный отчет и отправляет бухгалтеру.; Бухгалтер: получает всю выходную информацию и деньги от администратора, занимается всеми подсчетами, выдает зарплату, докладывает обо всем начальству; Уборщики: убирается в номерах, после отъезда клиентов, убирается на прилегающей к коттеджам территории; Охранники: следит за порядком; Тех. рабочие: устраняют все неполадки в номерах.

5. С момента обращения клиента.

6. Бухгалтер, Начальник, Уборщики, Тех.рабочие (иногда).

 

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

 

№	Описание	Входная		Выходная	Справочная
		Договор	Бронирование	Отчет	Прайс
1	Наименование	Запрос клиента	Запрос клиента	Отчетный лист	Тариф
2	Форма представления	Документ	Документ	Документ	Экранная, Табл. "Тариф"
3	Периодичность поступления	По мере обращения	По мере обращения	Каждый день	-
4	Источник поступления	От клиента	От клиента	От Администратора	Администрация
5	Получатели информации	Администратор	Администратор	Бухгалтер, Администрация	Клиенты, работники

 

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

 

БД

Договор	Тариф	Отчет	Бронирование
-Номер коттеджа* -ФИО клиента -№ паспорта клиента* -Номер телефона -Дата Въезда -Дата Выезда -Счет -№ договора -Кол-во проживающих	-Стоимость 1 дня	-№ коттеджа* -Сумма -Дата -Сумма общая за  день	-Номер коттеджа* -Фио -Дата

 

МЕНЮ

 

Заселение

Выселение

Отчет

Бронирование

Тариф

Выход

 

 

 

 

 

 

 

 

 

 

3. Распечатки:

3.1 Структуры таблиц:

1) Таблица "Заселение"

№ Договора

№ коттеджа

ФИО клиента

№ паспорта клиента

Номер телефона

Дата въезда

Дата выезда

Счет

Кол-во проживающих

 

2) Таблица с месяцами 

День

Кот. 1

Кот. 2

Кот. 3

Кот. 4

Кот. 4

Кот. 4

Кот. 4

Кот. 4

Кот. 4

Кот. 4

 

3) Таблица "Отчет"

№ коттеджа

ФИО клиента

№ паспорта клиента

Номер телефона

Дата въезда

Дата выезда

Счет

Кол-во проживающих

 

4) Таблица "Архив"

№ Договора

№ коттеджа

ФИО клиента

№ паспорта клиента

Номер телефона

Дата въезда

Дата выезда

Счет

Кол-во проживающих

 

 

 

3.1Выходной документ:

Отчет

№ коттеджа

ФИО клиента

№ паспорта клиента

Номер телефона

Дата въезда

Дата выезда

Счет

Кол-во проживающих

 

 

Текст Макросов

Модуль

Sub Add()

Sheets("Тариф").Activate

Tarif.Show

End Sub

 

Sub Zas()

Dim obj As Object, i As Integer, Max As Integer, N As Integer

With Zaseleniye

Sheets("Заселение").Activate

nomer = Sheets("Справочная").Range("A1").CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("Справочная").Range(("A2"), Sheets("Справочная").Cells(nomer, 1)).Value

With Zaseleniye.ComboBox2

.AddItem "Январь"

.AddItem "Февраль"

.AddItem "Март"

End With

With Zaseleniye

N = Sheets("Заселение").Range("A1").CurrentRegion.Rows.Count

Max = Val(Sheets("Заселение").Cells(2, 1).Value)

For i = 2 To N

If Max < Val(Sheets("Заселение").Cells(i, 1).Value) Then

Max = Val(Sheets("Заселение").Cells(i, 1).Value)

End If

Next i

.TextBox1.Text = Max + 1

End With

.Show

End With

End Sub

 

Sub Dob()

With UF1

Dim N As Integer

Sheets("Январь").Activate

N = Sheets("Справочная").Range("A1").CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("Справочная").Range(("A2"), Sheets("Справочная").Cells(N, 1)).Value

With UF1.ComboBox2

.AddItem "Январь"

.AddItem "Февраль"

.AddItem "Март"

End With

.Show

End With

End Sub

 

Sub Otch()

Dim no As Integer, i As Integer, k As Integer, N As Integer, itog As Double, t As Integer

For i = 1 To 50

If Sheets("Заселение").Cells(i, 6) = VBA.Date Then

t = Sheets("Отчет").Range("A1").CurrentRegion.Rows.Count + 1

Sheets("Отчет").Range(Sheets("Отчет").Cells(t, 2), Sheets("Отчет").Cells(t, 9)) = Sheets("Заселение").Range(Sheets("Заселение").Cells(i, 1), Sheets("Заселение").Cells(i, 8)).Value

End If

Next i

no = Sheets("Отчет").Range("A1").CurrentRegion.Rows.Count

For k = 2 To no

itog = itog + Sheets("Отчет").Cells(k, 8).Value

Next k

N = Sheets("Отчет").Range("A1").CurrentRegion.Rows.Count + 1

Sheets("Отчет").Cells(N, 2) = itog

Sheets("Отчет").Cells(N, 1) = "Итого:"

Sheets("Отчет").Select

End Sub

 

Sub Vis()

Dim i As Integer, N As Integer

For i = 1 To 50

If Sheets("Заселение").Cells(i, 7) = VBA.Date Then

N = Sheets("Архив").Range("A1").CurrentRegion.Rows.Count + 1

Sheets("Архив").Range(Sheets("Архив").Cells(N, 1), Sheets("Архив").Cells(N, 9)) = Sheets("Заселение").Range(Sheets("Заселение").Cells(i, 1), Sheets("Заселение").Cells(i, 9)).Value

Sheets("Заселение").Range(Sheets("Заселение").Cells(i, 1), Sheets("Заселение").Cells(i, 9)).Delete

End If

Next i

End Sub

 

Форма "Tarif"

Тариф

Private Sub CommandButton1_Click()

Sheets("Тариф").Cells(2, 1).Value = TextBox1.Text

End Sub

 

Private Sub CommandButton2_Click()

Unload Me

End Sub

 

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsNumeric(TextBox1.Text) Then

TextBox1.Text = " "

MsgBox "Не число", vbExclamation, "Ошибка ввода"

Cancel = True

End If

End Sub

 

Форма "UF1"

 

Dim stolb As Object

Private Sub ComboBox1_Change()

Set stolb = ActiveSheet.Range("a1", "l1").Find(UF1.ComboBox1.Value)

End Sub

 

Private Sub ComboBox2_Change()

If ComboBox2.Value = "Январь" Then

DTPicker1.Value = "01.01.2011"

DTPicker2.Value = "01.01.2011"

Sheets("Январь").Activate

ElseIf ComboBox2.Value = "Февраль" Then

DTPicker1.Value = "01.02.2011"

DTPicker2.Value = "01.02.2011"

Sheets("Февраль").Activate

ElseIf ComboBox2.Value = "Март" Then

DTPicker1.Value = "01.03.2011"

DTPicker2.Value = "01.03.2011"

Sheets("Март").Activate

End If

End Sub

 

Private Sub CommandButton1_Click()

Dim r As Integer, c As Integer

If ComboBox2.Value = "Январь" Then

Sheets("Январь").Activate

ElseIf ComboBox2.Value = "Февраль" Then

Sheets("Февраль").Activate

ElseIf ComboBox2.Value = "Март" Then

Sheets("Март").Activate

End If

For r = 2 To 32

If DTPicker1.Value <= ActiveSheet.Cells(r, 1).Value And DTPicker2.Value >= ActiveSheet.Cells(r, 1).Value Then

ActiveSheet.Cells(r, stolb.Column) = UF1.TextBox1.Text

ActiveSheet.Cells(r, stolb.Column).Interior.Color = vbRed

End If

Next r

End Sub

 

Private Sub CommandButton2_Click()

Unload Me

End Sub

 

Private Sub CommandButton3_Click()

Dim asd As Object, i As Integer, r As Integer

Set asd = ActiveSheet.Range("a1", "k40").Find(UF1.TextBox1.Text)

If Not asd Is Nothing Then

ActiveSheet.Cells(asd.Row, asd.Column) = " "

End If

For i = 0 To 32

If ActiveSheet.Cells(asd.Row + i, asd.Column) = UF1.TextBox1.Text Then

ActiveSheet.Cells(asd.Row + i, asd.Column).Interior.Pattern = xlNone

ActiveSheet.Cells(asd.Row + i, asd.Column) = " "

ActiveSheet.Cells(asd.Row, asd.Column).Interior.Pattern = xlNone

End If

Next i

End Sub

 

Форма "Zaseleniye"

 

Dim stolb As Object

Dim nomer As Integer

 

Private Sub ComboBox1_Change()

Set stolb = Sheets("Январь").Range("a1", "l1").Find(Zaseleniye.ComboBox1.Value)

End Sub

 

 

Private Sub ComboBox2_Change()

If ComboBox2.Value = "Январь" Then

DTPicker1.Value = "01.01.2011"

DTPicker2.Value = "01.01.2011"

Sheets("Январь").Activate

ElseIf ComboBox2.Value = "Февраль" Then

DTPicker1.Value = "01.02.2011"

DTPicker2.Value = "01.02.2011"

Sheets("Февраль").Activate

ElseIf ComboBox2.Value = "Март" Then

DTPicker1.Value = "01.03.2011"

DTPicker2.Value = "01.03.2011"

Sheets("Март").Activate

End If

End Sub

 

Private Sub CommandButton1_Click()

Dim M(1 To 9) As Variant

Dim r As Integer, d As Integer

Dim obj As Object

Dim N As Integer, i As Integer, a As Integer

Set obj = Worksheets("Заселение").Cells(1, 1).CurrentRegion

N = obj.Rows.Count + 1

With Zaseleniye

M(1) = .TextBox1.Text

M(2) = .ComboBox1.Text

M(3) = .TextBox2.Text

M(5) = .TextBox3.Text

M(4) = .TextBox4.Text

M(6) = .DTPicker1

M(7) = .DTPicker2

M(8) = .TextBox7.Text

M(9) = .TextBox8.Text

End With

If TextBox8.Value > 10 Then

d = MsgBox("Слишком много людей", vbOKOnly + vbExclamation, "ОШИБКА")

Else

For i = 1 To 9

Worksheets("Заселение").Cells(N, i).Value = M(i)

Next i

End If

For r = 1 To 32

If DTPicker1.Value <= ActiveSheet.Cells(r, 1).Value And DTPicker2.Value >= ActiveSheet.Cells(r, 1).Value Then

ActiveSheet.Cells(r, stolb.Column) = Zaseleniye.TextBox2.Text

ActiveSheet.Cells(r, stolb.Column).Interior.Color = vbGreen

End If

Next r

 

With Zaseleniye

.TextBox1.Text = .TextBox1.Text + 1

.ComboBox1.Text = ""

.TextBox2.Text = ""

.TextBox3.Text = ""

.TextBox4.Text = ""

.TextBox7.Text = ""

.TextBox8.Text = "1"

.TextBox1.SetFocus

If ComboBox2.Value = "Январь" Then

.DTPicker1 = "01.01.2011"

.DTPicker2 = "01.01.2011"

Sheets("Январь").Activate

ElseIf ComboBox2.Value = "Февраль" Then

.DTPicker1 = "01.02.2011"

.DTPicker2 = "01.02.2011"

Sheets("Февраль").Activate

ElseIf ComboBox2.Value = "Март" Then

.DTPicker1 = "01.03.2011"

.DTPicker2 = "01.03.2011"

Sheets("Март").Activate

End If

End With

Sheets("Заселение").Select

End Sub

 

Private Sub CommandButton2_Click()

Unload Me

End Sub

 

Private Sub DTPicker2_Change()

Dim c As Integer

c = Sheets("Тариф").Cells(2, 1).Value

TextBox7.Value = c * (DTPicker2.Value - DTPicker1.Value)

End Sub

 

Private Sub SpinButton1_SpinDown()

TextBox8.Text = SpinButton1.Value

End Sub

Private Sub SpinButton1_SpinUp()

TextBox8.Text = SpinButton1.Value

End Sub

 

 

4. Информационно-технологическая схема