Реализовать с помощью MS Access базу данных отдела аренда квартир агентства недвижимости

Содержание:

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

Реализовать с помощью MS Access базу данных отдела аренда квартир агентства недвижимости.

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

После сдачи квартиры в аренду, данные о ней сохраняются в базе, но помечаются соответствующим образом.

Таблицы

Структура таблиц.

Таблица База (ключ – Код)

[image]

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

[image]

Формы

В базе используются следующие формы:

Главная кнопочная форма. Она появляется при открытии базы.

[image]

Форма поиска нужного варианта квартиры.

[image]

Форма - результат поиска.

[image]

Форма просмотр/редактирование данных.

[image]

Форма сдача квартиры. Заполняется после подписания договора.

[image]

Запросы

Все запросы в базе осуществляются через встроенный язык программирования VBA с использованием вставок языка структурированных запросов - SQL.

Код программы поиска данных в форме Поиск

Dim CondStr As String

CondStr = ""

If Not IsNull([Город]) Then CondStr = " AND ([Город]) Like '" + [Город] + "*'"

If Not IsNull([Район]) Then CondStr = CondStr + " AND ([Район]) Like '" + [Район] + "*'"

If Not IsNull([Комнат]) Then CondStr = CondStr + " AND ([Комнат]) Like '" + [Комнат] + "'"

If Not IsNull([Цена, руб/м]) Then CondStr = " AND ([Цена, руб/м]) Like '" + [Цена, руб/м] + "*'"

If Len(CondStr) > 0 Then

CondStr = Mid(CondStr, 6)

DoCmd.OpenForm "Результат поиска", acNormal, , , acFormReadOnly

Forms![ Результат поиска].FilterOn = True

Forms![ Результат поиска].Filter = CondStr

Else

MsgBox "Введите условия отбора"

End If

Код очистки полей на форме поиска данных.

[Город] = Null

[Район] = Null

[Комнат] = Null

[Цена, руб/м] = Null

Вывод