Реализовать с помощью MS Access базу данных отдела аренда квартир агентства недвижимости
- ID: 06037
- 6 страниц
Содержание:
Постановка задачи
Реализовать с помощью 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
Вывод