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

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

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

Больница.mdb

Отчет.docx

Содержание:


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

Реализовать с помощью 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

Вывод

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

Литература