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

  • ID: 06496 
  • 6 страниц
200 рубСкачать

антиплагиат в подарок

Отчет.docx

Паспортный стол.mdb

Содержание:


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

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

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

Таблицы

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

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

[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 = CondStr + " AND ([Имя]) Like '" + [Имя] + "*'"

If Not IsNull([Отчество]) Then CondStr = 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

[Отчество] = Null

Вывод

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

Литература