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

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

•    получению более рациональных вариантов решения управленческих задач за счет внедрения математических методов и интеллектуальных систем и т.д.

•    освобождению работников от рутинной работы за счет ее автоматизации;

•    обеспечению достоверности информации;

• замене бумажных носителей данных на магнитные и  оптические, что приводит к более  рациональной организации переработки  информации на компьютере и снижению объемов бумажных документов;

• уменьшению затрат на производство продуктов и услуг.

 

 

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

 

1. Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite. – М.: ДИАЛОГ – МИФИ, 2002. – 224с.
2. Маклаков С.В. BPWin и ERWin. CASE – средства разработки информационных систем. – М.: ДИАЛОГ – МИФИ, 1992. – 256с.
3. Черемных  С.В., Семенов И.О., Ручкин В.С. Моделирование и анализ систем. IDEF-технологии. – Производственное издание, 2002. - 192 c.
4. Кузьменко В.Г. VBA 2000: - М. «Издательство БИНОМ», 2000. – 408 с.: ил.
5. Символоков Л.В. Microsoft Excel 2002. Самоучитель. – М.: ООО «Бином-Пресс», 2003 г. – 400 с.: ил.
6. Справочная система Microsoft Excel.
7. Справочная система Visual Basic.
8. Техническое задание на создание автоматизированной системы. ГОСТ 34.602-89;
9. Виды, комплектность и обозначение документов при создании автоматизированных систем. ГОСТ 34.201-89;
10. Процессы жизненного цикла программных средств. ГОСТ Р ИСО/МЭК 12207-99;
11. ТУРИСТСКО-ЭКСКУРСИОННОЕ ОБСЛУЖИВАНИЕ. КЛАССИФИКАЦИЯ ГОСТИНИЦ. ГОСТ Р 50645-94
12. http://www.gostinizy.ru

 

 

Приложение 1.

Модуль программы  – «Module1»

 

Макрос для кнопки «Регистрация клиента»

 

Sub EnterData()

Dim nowdate As String

Dim dbox As Boolean

Dim r, w, alarm As Integer

w = Application.CountA(Sheets("база  данных").Range("c:c"))

mydate = CStr(Now)

With DialogSheets("Регистрация")

.EditBoxes("date").Text = mydate

.EditBoxes(1).Text = ""

.EditBoxes(2).Text = ""

.EditBoxes(3).Text = "1"

.EditBoxes(4).Text = ""

.EditBoxes("n").Text = w

.CheckBoxes(1).Value = xlOff

.CheckBoxes(2).Value = xlOff

.Spinners(1).Min = 1

.Spinners(1).Max = 100

.Buttons("add").Enabled = True

.Buttons("apply").Enabled = False

End With

r = 1

alarm = 0

dboxok = DialogSheets("Регистрация").Show

If Not dboxok Then Exit Sub

End Sub

 

Макрос для кнопке «ОК» диалогового окна «Подтверждение регистрации клиента»

 

Sub vvod()

Dim фамилия, имя, отчество, срок, оплачено, n, data As String

Dim паспорт, выб_номер, пол As String

Dim r, alarm As Integer

r = Application.CountA(Sheets("база  данных").Range("c:c")) + 1

With DialogSheets("Регистрация")

    n = .EditBoxes("n").Text

    фамилия  = .EditBoxes(1).Text

    имя  = .EditBoxes(2).Text

    отчество = .EditBoxes(4).Text

    срок = .EditBoxes(3).Text

    дата = .EditBoxes("date").Text

If .OptionButtons(1) = xlOn Then пол = "м" Else пол = "ж"

If .CheckBoxes(1) = xlOn Then оплачено = "да" Else оплачено = "нет"

If .CheckBoxes(2) = xlOn Then паспорт = "да" Else паспорт = "нет"

End With

выб_номер = Worksheets(3).Range("тип")

If (фамилия  = "") Or (имя = "") Or (отчество = "") Then alarm = 1

If alarm = 0 Then

Sheets("База  данных").Cells(r, 1).Value = n

Sheets("База  данных").Cells(r, 2).Value = фамилия

Sheets("База  данных").Cells(r, 3).Value = имя

Sheets("База данных").Cells(r, 4).Value = отчество

Sheets("База  данных").Cells(r, 5).Value = пол

Sheets("База  данных").Cells(r, 6).Value = выб_номер

Sheets("База  данных").Cells(r, 7).Value = оплачено

Sheets("База данных").Cells(r, 8).Value = паспорт

Sheets("База данных").Cells(r, 9).Value = срок

Sheets("База данных").Cells(r, 11).Value = дата

Select Case выб_номер

Case "Люкс"

Sheets("База  данных").Cells(r, 10).Value = срок * 300

Case "Одноместный"

Sheets("База  данных").Cells(r, 10).Value = срок * 100

Case "Двухместный"

Sheets("База  данных").Cells(r, 10).Value = срок * 200

End Select

Else

MsgBox ("Введите нового клиента!!!!!!")

End If

End Sub

 

Процедуры, предназначенные  для связи счетчика с полем  ввода

 

Sub dospinner()

ActiveDialog.EditBoxes(3).Text = CStr(ActiveDialog.Spinners(1).Value)

End Sub

Sub backspinner()

ActiveDialog.Spinners(1).Value = CInt(ActiveDialog.EditBoxes(3).Text)

End Sub

 

Макрос для активизации  окна «Поиск по фамилии»

 

Sub pokaspoisk()

Dim i, s As Integer

r = Application.CountA(Sheets("база  данных").Range("c:c"))

With DialogSheets("poisk")

.EditBoxes(1).Text = ""

.ListBoxes(1).RemoveAllItems

End With

dboxok = DialogSheets("poisk").Show

If Not dboxok Then Exit Sub

End Sub

 

Макрос для осуществления  поиска по фамилии клиента в базе данных

 

Sub find()

r = Application.CountA(Sheets("база  данных").Range("c:c"))

With DialogSheets("poisk")

For i = 1 To r

If .EditBoxes(1).Text = Sheets("база данных").Cells(i, 2) Then .ListBoxes(1).List(i) = CStr(Sheets("база данных").Cells(i, 1)) + "-" + Sheets("база данных").Cells(i, 2) + "-" + Sheets("база данных").Cells(i, 3) + "-" + Sheets("база данных").Cells(i, 5) + "-" + CStr(Sheets("база данных").Cells(i, 8)) + "-" + CStr(Sheets("база данных").Cells(i, 9)) + "-" + CStr(Sheets("база данных").Cells(i, 10))

If DialogSheets("poisk").ListBoxes(1).List() = "" Then  Else MsgBox "Клиент не  найден!!! ", vbCritical

End If

Next i

End With

End Sub

 

Макрос для активизации  формы «Подтверждение регистрации»

 

Sub show_conf()

Dim dbox As Boolean

With DialogSheets("confirm")

.Labels("фио").Caption = DialogSheets("регистрация").EditBoxes(1).Text + " " + DialogSheets("регистрация").EditBoxes("i").Text + " " + DialogSheets("регистрация").EditBoxes(4).Text

.EditBoxes(1).Text = DialogSheets("регистрация").EditBoxes(3).Text

.EditBoxes(2).Text = Worksheets(3).Range("тип")

End With

dboxok = DialogSheets("confirm").Show

If Not dboxok Then Exit Sub

End Sub

 

Макрос для удаления записи о клиенте из базы данных

 

Sub del_item()

Dim num As String

Dim r, i, j, abcd As Integer

Dim flag As Boolean

With DialogSheets("регистрация")

num = .DrawingObjects("n").Text

End With

flag = False

r = Application.CountA(Sheets("база данных").Range("a:a"))

j = 2

With Sheets("база  данных")

While Not flag And j <= r

If .Cells(j, 1) = num Then flag = True

j = j + 1

Wend

If flag Then

abcd = j - 1

.Range(.Cells(abcd, 1), .Cells(abcd, 11)).Delete

MsgBox "Клиент  выселен!!!"

Else

MsgBox "Ошибка выселения ", vbCritical

End If

End With

End Sub

 

Макрос для  вывода из базы данных информации о  найденном клиенте в поля ввода  окна «Регистрация клиентов», присвоен окну списка, находящемуся на вспомогательном  окне «Поиск по фамилии»

 

Sub look()

Dim s, h As String

r = Application.CountA(Sheets("база  данных").Range("c:c"))

With DialogSheets("poisk").ListBoxes(1)

f = .ListIndex

h = .List(f)

End With

s = ""

For i = 1 To Len(h)

g = Mid(h, i, 1)

If Mid(h, i, 1) = "-" Then Exit For

s = s + g

Next i

For i = 2 To r

k = CStr(Sheets("база  данных").Cells(i, 1))

If k = s Then

With DialogSheets("Регистрация")

.EditBoxes("n").Text = Sheets("база данных").Cells(i, 1)

.EditBoxes("f").Text = Sheets("база данных").Cells(i, 2)

.EditBoxes("i").Text = Sheets("база данных").Cells(i, 3)

.EditBoxes("o").Text = Sheets("база данных").Cells(i, 4)

.EditBoxes("date").Text = Sheets("база данных").Cells(i, 11)

If Sheets("база  данных").Cells(i, 6) = "Люкс" Then Sheets("переменные").Cells(14, 1) = 1

If Sheets("база  данных").Cells(i, 6) = "Одноместный" Then Sheets("переменные").Cells(14, 1) = 2

If Sheets("база  данных").Cells(i, 6) = "Двухместный" Then Sheets("переменные").Cells(14, 1) = 3

If Sheets("база  данных").Cells(i, 7) = "да" Then .CheckBoxes(1).Value = xlOn

If Sheets("база данных").Cells(i, 7) = "нет" Then .CheckBoxes(2).Value = xlOff

If Sheets("база  данных").Cells(i, 8) = "да" Then .CheckBoxes(1).Value = xlOn

If Sheets("база  данных").Cells(i, 8) = "нет" Then .CheckBoxes(2).Value = xlOff

.EditBoxes("p").Text = Sheets("база данных").Cells(i, 9)

.Buttons("add").Enabled = False

.Buttons("apply").Enabled = True

End With

End If

Next

End Sub

 

Макрос для очистки  полей ввода в окне «Регистрация клиентов», присвоенный кнопке «Очистить»

 

Sub clear()

Dim j As Integer

r = Application.CountA(Sheets("база данных").Range("c:c"))

With DialogSheets("Регистрация")

.EditBoxes(1).Text = ""

.EditBoxes(2).Text = ""

.EditBoxes(3).Text = "3"

.EditBoxes(4).Text = ""

.EditBoxes("n").Text = r

.CheckBoxes(1).Value = xlOff

.CheckBoxes(2).Value = xlOff

.Buttons("add").Enabled = True

.Buttons("apply").Enabled = False

End With

End Sub

 

Макрос для внесения изменений в запись о клиенте, найденную через поиск, присвоен кнопке «Принять изменения»

 

Sub apply()

r = Application.CountA(Sheets("база  данных").Range("c:c"))

For i = 2 To r

d1 = DialogSheets("Регистрация").EditBoxes("n").Text

d2 = CStr(Sheets("база  данных").Cells(i, 1))

If d1 = d2 Then f = i

Next

With DialogSheets("Регистрация")

    n = .EditBoxes("n").Text

    фамилия  = .EditBoxes(1).Text

    имя  = .EditBoxes(2).Text

    отчество = .EditBoxes(4).Text

    срок = .EditBoxes(3).Text

If .OptionButtons(1) = xlOn Then пол = "м" Else пол = "ж"

If .CheckBoxes(1) = xlOn Then оплачено = "да" Else оплачено = "нет"

If .CheckBoxes(2) = xlOn Then паспорт = "да" Else паспорт = "нет"

End With

выб_номер = Worksheets(3).Range("тип")

Sheets("База  данных").Cells(f, 1).Value = n

Sheets("База  данных").Cells(f, 2).Value = фамилия

Sheets("База  данных").Cells(f, 3).Value = имя

Sheets("База  данных").Cells(f, 4).Value = отчество

Sheets("База  данных").Cells(f, 5).Value = пол

Sheets("База  данных").Cells(f, 6).Value = выб_номер

Sheets("База  данных").Cells(f, 7).Value = оплачено

Sheets("База данных").Cells(f, 8).Value = паспорт

Sheets("База данных").Cells(f, 9).Value = срок

Select Case выб_номер

Case "Люкс"

Sheets("База  данных").Cells(f, 10).Value = срок * 300

Case "Одноместный"

Sheets("База  данных").Cells(f, 10).Value = срок * 100

Case "Двухместный"

Sheets("База  данных").Cells(f, 10).Value = срок * 200

End Select

End Sub

 

Макрос для выхода из приложения,

 присвоен кнопке  «Выход» на листе «Меню»

 

Sub выход()

ThisWorkbook.Close

End Sub

 

Приложение 2.

_____________________________________________________________________________

                         наименование организации - разработчика ТЗ на АС

 

УТВЕРЖДАЮ

Руководитель (должность, наименование предприятия - заказчика  АС)

 

Личная подпись____________         Расшифровка подписи /_____________/

 

Печать          

 

Дата

 

УТВЕРЖДАЮ

Руководитель (должность, наименование предприятия - разработчик" АС)

 

Личная подпись____________         Расшифровка подписи /_____________/

 

Печать

 

Дата

 

                     ________________________________________________________

наименование  вида АС

                     ________________________________________________________

наименование  объекта автоматизации

                     ________________________________________________________

сокращенное наименование АС

 

ТЕХНИЧЕСКОЕ ЗАДАНИЕ

 

На  ____ листах

 

Действует с  «__»__________2009г.

 

 

 

СОГЛАСОВАНО

 

 

Руководитель (должность, наименование согласующей организации)

 

Личная подпись____________       Расшифровка подписи /______________/

 

Печать

 

Дата

1. Требования  к построению системы

Система управления гостиницей должна быть реализована на языке программирования Visual Basic программного продукта Microsoft Excel.  Система должна и отвечать стандартам Windows, в том числе в отношении установки, интерфейса, именования файлов.

Подсистема  “Автоматизация рабочего места администратора гостиницы”  предназначена для  автоматизации процесса ведения  базы данных, для уменьшения затрат связанных со временем, редактированием и поиском необходимой и точной информации по конкретному клиенту гостиницы, что является целью создания автоматизированной информационной системы администратора гостиницы (далее АИС администратора гостиницы).

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

Система управления гостиницей должна обладать модульной структурой. Модули системы должны быть интегрированы  между собой и должны использовать единую базу данных и общий программный  код. Доступ пользователя к модулям  системы должен регламентироваться правами данного пользователя и не должен быть привязан к определенному рабочему месту. Доступ к свойствам АИС со стороны пользователя осуществляется через “Меню” программного продукта, основное назначение заключается в организации автоматизированного рабочего места пользователя, в соответствии с его должностью.

Система должна иметь единые для всех установок  программный код и версионность.

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