Создание базы данных гостиниц.

В данном курсовом проекте разрабатывается электронный справочник гостиниц города Саратов. Было выбрано четыре из них. Это Витязь, Орел, Москва и Искра.

Для этого на листе Excel была создана база данных с информацией о времени, когда можно вселиться в гостиницу, о количестве номеров на определенную дату, а также цене билетов с учетом комиссии за каждый день брони в размере 3 рублей.

Для создания справочника использовалась пользовательская форма UserForm.

Ниже приведены рисунки программы.

Private Sub ok_Click()

With UserForm1

Dim i As Integer

x = CDate(y.Text) ‘x – считывается значение сегодняшней даты у

b1 = x + 30 ‘b1- считывается дата, до которой можно

проверить наличие билетов

Cells(4, 1) = x

For i = 5 To 34 ‘ заполняются даты в таблице с сегодняшней по

конечную

x = x + 1

Cells(i, 1) = x

Next i

End With

End Sub

Private Sub prodol_Click()

With UserForm1

Dim i As Integer, j As Integer, z As Integer, tabl(34) As Integer, z1 As Date

t1 = CDate(b1.Text) ‘t1 – считывается значение даты b, введенной с

клавиатуры, на которую хотят узнать наличие билетов

t2 = CDate(b.Text)

x = CDate(y.Text)

For i = 4 To 34

z1 = Cells(i, 1) ‘ z1 – считывается значение дат из таблицы

If t1 = z1 Then z = i ‘ если значение даты из таблицы z1 совпадает с

введенным значением t1 ,то z присваиваем номер ячейки

c нужной датой

Next i

Cells(36, 1) = (z - 4) ‘ в ячейку (36,1) записывается значение (z-4), за сколько

дней до отправления хотят купить билет

For j = 1 To 33

tabl(j) = Cells(z, j + 1) ‘ считываем из таблицы наличие мест по всем

отправления на эту дату и заносим в таблицу tabl(j)

Cells(37, j) = tabl(j) ‘ выводим tabl(j) ниже нашей таблицы

Next j

End With

End Sub

Private Sub prodol1_Click()

With UserForm1

Dim i As Integer, j As Integer, tm(8) As Integer, tm1(8) As Integer

If a = "орел" Then

For j = 1 To 8

tm(j) = Cells(37, j + 8)

tm1(j) = Cells(35, j + 9)

Cells(38, j) = tm(j)

Cells(39, j) = tm1(j)

Next j

e = "10.00"

h = "14.00"

n1 = "утро"

n2 = "день"

ElseIf a = "самара" Then

For j = 1 To 8

tm(j) = Cells(37, j)

tm1(j) = Cells(35, j + 1)

Cells(38, j) = tm(j)

Cells(39, j) = tm1(j)

Next j

e = "9.00"

h = "15.00"

n1 = "утро"

n2 = "день"

ElseIf a = "искра" Then

For j = 1 To 8

tm(j) = Cells(37, j + 16)

tm1(j) = Cells(35, j + 17)

Cells(38, j) = tm(j)

Cells(39, j) = tm1(j)

Next j

e = "8.30"

h = "12.00"

n1 = "утро"

n2 = "день"

ElseIf a = "энергия" Then

For j = 1 To 8

tm(j) = Cells(37, j + 24)

tm1(j) = Cells(35, j + 25)

Cells(38, j) = tm(j)

Cells(39, j) = tm1(j)

Next j

e = "9.30"

h = "14.30"

n1 = "утро"

n2 = "день"

Else: MsgBox ("возможно вы ошиблись")

End If

End With

End Sub

Private Sub prodol2_Click()

With UserForm1

Dim j As Integer, vr(4) As Integer, vr1(4) As Integer

If c = True Then ‘ если выбрали первое время отправления с, то vr(j)

считывается с 1-го по 4-й элемент 38 строки, наличие

мест первой гостиницы, vr1(j) считывается с 1-го по 4-й

элемент 39 строки, цены за номер

For j = 1 To 4

vr(j) = Cells(38, j)

vr1(j) = Cells(39, j)

Cells(40, j) = vr(j)

Cells(41, j) = vr1(j)

Next j

End If

If d = True Then

For j = 1 To 4

vr(j) = Cells(38, j + 4)

vr1(j) = Cells(39, j + 4)

Cells(40, j) = vr(j)

Cells(41, j) = vr1(j)

Next j

End If

End With

End Sub

Private Sub mesta_Click()

With UserForm1

Dim z As Integer

z = Cells(36, 1) ‘ z- считывается, за сколько дней до отправления хотят

купить номер

If p = True Then

f = Cells(34, 1)

If f <> 0 Then g = (Cells(35, j) + 3 * z)

End If

If k = True Then

f = Cells(40, 2)

If f <> 0 Then g = (Cells(35, j + 1) + 3 * z) ‘ если места есть в наличии, то высчитывается цена номера с учетом комиссии 3 рубля за каждый день брони(g)

End If

If o = True Then

f = Cells(40, 3)

g = (Cells(35, j + 2) + 3 * z)

End If

If s = True Then

f = Cells(34, 4)

g = (Cells(35, j + 3) + 3 * z)

End If

End With

End Sub

Список используемой литературы:

1. Гнеденко Б.В., Коваленко И.Н. Введение в теорию массового обслуживания. – М.: Наука, 1966.

2. Косневски Ч. Занимательная математика и персональный компьютер. – М.: Просвещение, 1989.Гнеденко Б.В., Коваленко И.Н. Введение в теорию массового обслуживания. – М.: Наука, 1966.

3. Ковальски С. Excel 2000 без проблем. – М.: Бином, 2000.

4. Липаев В.В. Проектирование программных средств. – М.: Высшая школа,8. Гнеденко Б.В., Коваленко И.Н. Введение в теорию массового обслуживания. – М.: Наука, 1966.

12