Руководство программиста

1 2

Организация ввода данных в программу и вывода результатов

Ввод данных в программу осуществляется при помощи мыши и с клавиатуры в объекты типа TextBox.

Для вывода результатов используется объекты типа ComboBox, TextBox, таблицы MS Access и текстовые файлы.

Схема данных

Схема данных приведена в Приложении Б (см. рисунок Б.2).

SQL запрос и его описание

Выбирают поля из таблиц тблКнига, тблАвторы и тблМестоРасположения, которые следует объединить в запросе.

SELECT тблКнига.Шифр, [Фамилия] & " " & Left([Имя],1) & ". " & Left([Отчество],1) & "." AS ФИО, тблКнига.[Название книги], тблКнига.[Код издательства], тблКнига.[Год издания], тблКнига.[Код темы], тблКнига.[Код жанра], тблКнига.[Количество страниц], тблМестоРасположения.[Аббревиатура отдела]

Описывается способ объединения полей таблиц в запросе. INNER JOIN означает, что объединятся будут только те записи, в которых связанные поля обеих таблиц совпадают.

FROM тблМестоРасположения INNER JOIN ((тблКнига INNER JOIN тблРасположение ON тблКнига.[Код книги] = тблРасположение.[Код книги]) INNER JOIN (тблАвторы INNER JOIN тблСвязи ON тблАвторы.[Код автора] = тблСвязи.[Код автора]) ON тблКнига.[Код книги] = тблСвязи.[Код книги]) ON тблМестоРасположения.[Код отдела] = тблРасположение.[Код отдела]

Определяется порядок сортировки записей в запросе по полям «ФИО» и «Название книги» по возрастанию

ORDER BY [Фамилия] & " " & Left([Имя],1) & ". " & Left([Отчество],1) & ".", тблКнига.[Название книги];

Описание процедур и их параметров

Рассмотрим процедуру нажатия на кнопку «Добавление автора»:

Private Sub Кнопка27_Click()

On Error GoTo Err_Кнопка27_Click

Выделяем переменную под имя формы

Dim strdocname As String

Конкретизириум переменную

strdocname = "Добавление автора"

Открытие формы "Добавление автора" в режиме ввода данных.

DoCmd.OpenForm strdocname,,,, acAdd

Закрытие формы "Литературные произведения".

DoCmd.Close acForm, "Литературные произведения"

Делаем невидимой кнопку "Найти запись"

Forms![Добавление автора]!Кнопка25.Visible = False

Передача фокуса текстовому полю "Фамилия".

Forms![Добавление автора]!Фамилия.SetFocus

Exit_Кнопка27_Click:

Выход из процедуры

Exit Sub

Err_Кнопка27_Click:

В случае появления ошибки вывод на экран сообщения

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

Тестовый пример

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

Крылов И. А. «Басни», 78.56, дет. ч/з, басни, классическая литература, 1850 г., Просвещение, 2000 г., 75 стр.

Щелкаем мышью по кнопке «Добавить книгу», расположенную на форме «Литературные произведения». В появившейся форме «Добавление книги» вводим в текстовое окно «Шифр» библиотечный шифр книги – 78.56. При этом поле «Код книги» обновляется автоматически. Убеждаемся в том, что в выпадающем списке «Автор книги» отсутствует Крылов И. А. Добавим его в список с помощью кнопки «Добавить автора». Вводим в поля появившейся формы «Добавление автора» следующие значения:

Фамилия - Крылов

Имя - Иван

Отчество - Андреевич

Пол - мужской

Дата рождения - 24.05.1823

Дата смерти - 13.03.1890

И нажимаем кнопку «Добавить книгу». Из списка «Автор книги» выбираем, Крылов И.А. Аналогично заполняются другие поля формы «Добавление книги», а затем нажимаем кнопку «Добавить запись». Далее в форме «Литературные произведения» можно просмотреть информацию об этой книге.

Приложение