3.3. Связи между таблицами.
Таблицы Клиенты и Учет эксплуатации связаны через поле Наименование клиента.
Таблицы Клиенты и Автостоянки связаны через поле Номер автостоянки
3.4. Характеристика выходной информации
Запрос Учет результатов
В запрос включены поля: Из Табл. Учет эксплуатации – Дата постановки, Срок нахождения.
Из Табл. Клиенты – Наименование клиента.
Из Табл. Автостоянки Номер стоянки, Цена места, себестоимость содержания места.
Вычисляемые поля:
Затраты на Стоянку: [Себестоимость содержания места]*[Срок нахождения]
Доходы от стоянки: [Цена места]* [Срок нахождения]
Прибыль от стоянки: [Доходы от стоянки:] - [Затраты на Стоянку]
Условие отбора по Наименование клиента (Укажите имя клиента?) и по номеру автостоянки (укажите номер автостоянки?)
Отчет Учет результатов.
Включены все поля из запроса Учет результатов. Уровень группировки по полям – номер стоянки. Данные сортируются по полю – Наименованию клиента. Итоги подводятся по полям – Затраты, Доходы, Прибыль (Sum). Ориентация бумаги – Альбомная.
Описание главной формы информационной системы.
Форма Учет результатов работы турфирмы.
Форма объединяет на разных вкладках Клиенты, Автостоянки, Учет эксплуатации. Каждая форма находится на отдельной одноименной вкладке. На вкладке Выходная информация располагаются кнопки, вызывающие отчет Учет результатов и запрос Учет результатов.
На вкладках форм располагаются кнопки, позволяющие найти запись и кнопка, вызывающая отчет по данной форме.
На вкладке Автостоянки и Учет эксплуатации располагается кнопка – контроль достоверности. Текст программы для данной кнопки см. в приложении.
Алгоритм работы системы и инструкции пользователю.
Работа АИС начинается с открытия главной формы Учет результатов работы турфирмы. Вызов происходит автоматически макросом AUTOEXEC при открытии базы данных «Курсовая». Форма состоит из 2 кнопок.
Инструкции пользователю:
Работу с системой следует начинать с заполнения (корректировки) таблиц Клиенты и Автостоянки с помощью соответствующих кнопок главного окна базы данных.
После заполнения этих таблиц можно переходить к заполнению таблицы Учет результатов, для которой часть данных заполняется из таблиц Клиенты и Автостоянки
После ввода исходных данных можно приступать к получению выходных данных с помощью запроса Учет результатов, если не будут выдаваться данные по введенному туру, то следует выбрать другую автостоянку.
Приложение
1)контроль достоверности для Автостоянки:
Private Sub Кнопка11_Click()
Dim b, g, e As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Автостоянки")
Set e = b.OpenRecordset("Ошибки")
Err = False
Do While Not g.EOF
If g![Цена места за 1 сутки] <= 0 Or g![Себестоиммость содержания места в сутки] <= 0 Then
e.Edit
e.AddNew
e![Дата Время] = Str(Date) + "" + Str(Time)
e![Пояснение] = "В таблице Автостоянки для стоянки № " + Str(g![Номер стоянки]) + "Отрицательные данные"
e.Update
Err = True
End If
g.MoveNext
Loop
If Not Err Then
e.AddNew
e![Дата Время] = Str(Date) + "" + Str(Time)
e![Пояснение] = "В таблице Автостоянки нет ошибок "
e.Update
End If
DoCmd.OpenTable ("Ошибки")
g.Close
e.Close
End Sub
2) контроль достоверности для Учёта Эксплуатации:
Private Sub Кнопка11_Click()
Dim b, g, e As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Учет эксплуатации")
Set e = b.OpenRecordset("Ошибки")
Err = False
Do While Not g.EOF
If g![Срок нахождения в сутках] <= 0 Then
e.Edit
e.AddNew
e![Дата Время] = Str(Date) + "" + Str(Time)
e![Пояснение] = "В таблице Учет Эксплуатации для записи № " + Str(g![Номер записи]) + "Отрицательные данные Срока нахождения"
e.Update
Err = True
End If
g.MoveNext
Loop
If Not Err Then
e.AddNew
e![Дата Время] = Str(Date) + "" + Str(Time)
e![Пояснение] = "В таблице Учет Эксплуатации нет ошибок "
e.Update
End If
DoCmd.OpenTable ("Ошибки")
g.Close
e.Close
End Sub