Структура таблицы “Автор”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Автор | Текстовый | 25 | Автор издания |
Таблица 1.3.
Структура таблицы “Другие авторы”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Другие авторы | Текстовый | 50 | Другие авторы |
Таблица 1.4.
Структура таблиц “Коллективные авторы”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Название министерства/ведомства | Текстовый | 50 | ||
| 3 | Название организации/кафедры | Текстовый | 50 | ||
| 4 | Номер съезда/конференции/семинара | Текстовый | 15 | ||
| 5 | Дата проведения | Текстовый | 15 | ||
| 6 | Место проведения | Текстовый | 15 | ||
| 7 | Прочая информация | Текстовый | 50 |
Таблица 1.5.
Структура таблицы “Название”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Название книги | Текстовый | 100 | ||
| 3 | Продолжение название | Текстовый | 150 | ||
| 4 | Ответственность | Текстовый | 100 |
Таблица 1.6.
Структура таблицы “Аннотация”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Аннотация | Поле МЕМО |
Таблица 1.7.
Структура таблицы “Выходные данные”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Идентификатор издательства | Числовой | Длинное целое | 0 | |
| 3 | Год издания | Числовой | Целое |
Таблица 1.8.
Структура таблицы “Сведения об издании”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Сведения об издании | Текстовый | 50 |
Таблица 1.9.
Структура таблицы “Серия”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Название серии | Текстовый | 100 | ||
| 3 | Номер выпуска | Текстовый | 15 |
Таблица 1.10.
Структура таблицы “Том”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Номер тома/книги | Текстовый | 15 | ||
| 3 | Название тома/книги | Текстовый | 100 | ||
| 4 | Продолжение названия тома | Текстовый | 100 | ||
| 5 | Ответственность за том | Текстовый | 100 |
Таблица 1.11.
Структура таблицы “Количественные характеристики”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 2 | Количественные характеристики | Текстовый | 20 | ||
| 3 | Сопроводительный материал | Текстовыйподстановка | 15 | cписок значений: "Чертежи";"CD";"Дискета";"Альбом"; “Приложение” |
Таблица 1.12.
Структура таблицы “Издательства”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Идентификатор издательства | Счетчик | Длинное целое | 0 | Индексированное ключевое поле, совпадения не допускаются |
| 2 | Место издания | Текстовый | 20 | ||
| 3 | Издательство | Текстовый | 50 | ||
| 4 | Телефон | Текстовый | 15 | Шаблон ввода:!\(999") "000\-0000;0;_ |
Таблица 1.13.
Структура таблицы “Инвентарная книга”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Инвентарный номер | Числовой | С плавающей точкой (8 байт) | 0 | Индексированное ключевое поле, совпадения не допускаются |
| 2 | Цена издания | Денежный | Денежный | 2 | |
| 3 | Идентификатор издания | Числовой | Длинное целое | 0 | |
| 4 | Состояние | Текстовый,подстановка | 10 | Поле со списком:"в фонде"; "на руках" |
Таблица 1.14.
Структура таблицы “Справочник ББК”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Код ББК | Текстовый | 10 | Индексированное ключевое поле, совпадения не допускаются | |
| 2 | Описание ББК | Текстовый | 100 |
Таблица 1.15.
Структура таблицы “Сведения о читателях”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Номер читательского формуляра | Счетчик | Длинное целое | 0 | Индексированное поле, совпадения не допускаются |
| 2 | Фамилия | Текстовый | 20 | ||
| 3 | Имя_Отчество | Текстовый | 40 | ||
| 4 | Год рождения | Дата/Время | Краткий формат даты | Шаблон ввода:99/99/00;0;_ | |
| 5 | Группа | Текстовый: подстановка | 10 | Поле со списком: таблица “Группы” | |
| 6 | Домашний адрес временный | Текстовый | 60 | ||
| 7 | Домашний адрес постоянный | Текстовый | 60 | ||
| 8 | Телефон | Текстовый | 15 | Шаблон ввода:!\(999") "000\-0000;0;_ | |
| 9 | Дата заведения формуляра | Дата/Время | Краткий формат даты | Шаблон: 99/99/00;0;_ | |
| 10 | Дата списания | Дата/Время | Краткий формат даты | Шаблон: 99/99/00;0;_ | |
| 11 | Дата перегистрации | Дата/Время | Краткий формат даты | Шаблон: 99/99/00;0;_ | |
| 12 | Фамилия отца | Текстовый | 20 | ||
| 13 | Имя_отчество отца | Текстовый | 50 | ||
| 14 | Место работы отца | Текстовый | 60 | ||
| 15 | Фамилия матери | Текстовый | 20 | ||
| 16 | Имя_отчество матери | Текстовый | 50 | ||
| 17 | Место работы матери | Текстовый | 60 |
Таблица 1.16.
Структура таблицы “Читательский формуляр”
| № | Имя поля | Тип | Размер | Дес | Назначение |
| 1 | Номер читательского формуляра | Числовой | Длинное целое | 0 | |
| 2 | Инвентарный номер книги | С плавающей точкой (8 байт) | 20 | ||
| 3 | Дата выдачи | Дата/Время | Краткий формат даты | Шаблон: 99/99/00;0;_ | |
| 4 | Дата возврата | Дата/Время | Краткий формат даты | Шаблон: 99/99/00;0;_ | |
| 5 | Возврат | Дата/Время | Краткий формат даты | Шаблон: 99/99/00;0;_ |
ПРИЛОЖЕНИЕ 2
Листингпрограммыглавнойкнопочнойформы
Option Compare Database
Option Explicit
Private Sub Form_LostFocus()
DoCmd.Maximize
End Sub
Private Sub Form_Open(Cancel As Integer)
' Свертывание окна базы данных,
' инициализация формы.
' Переход на страницу кнопочной формы, отмеченную для использования по умолчанию.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'поумолчанию' "
Me.FilterOn = True
End Sub
Private Sub Form_Current()
' Обновление заголовка и заполнение
' списка команд.
Me.Caption = Nz(Me![ItemText], "")
FillOptions
End Sub
Private Sub FillOptions()
' Заполнение команд для страницы
' кнопочной формы.
' Число кнопок в форме.
Const conNumButtons = 8
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
DimintOptionAsInteger
' Установка фокуса на первую кнопку формы,
' скрытие всех кнопок формы, кроме первой.
' Поле с фокусом скрыть нельзя.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
NextintOption
' Открытие таблицы элементов кнопочной формы,
' поиск первого элемента текущей страницы формы.
Set dbs = CurrentDb()
strSQL = "SELECT * FROM [Элементыкнопочнойформы]"
strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
strSQL = strSQL & " ORDER BY [ItemNumber];"
Set rst = dbs.OpenRecordset(strSQL)
' Вывод сообщения при отсутствии элементов
' на странице кнопочной формы. В остальных
' случаях - заполнение страницы элементами.
If (rst.EOF) Then
Me![OptionLabel1].Caption = "Элементыкнопочнойформыотсутствуют"
Else
While (Not (rst.EOF))
Me("Option" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Caption = rst![ItemText]
rst.MoveNext
Wend
End If
' Закрытие набора записей и базы данных.
rst.Close
dbs.Close
End Sub
Private Function HandleButtonClick(intBtn As Integer)
' Эта функция вызывается при нажатии кнопки.
' Аргумент intBtn указывает, какая кнопка была нажата.
' Константы для выполняемых команд.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
' Особаяошибка.
Const conErrDoCmdCancelled = 2501
Dim dbs As Database
Dim rst As Recordset
On Error GoTo HandleButtonClick_Err
' Поиск записи, соответствующей нажатой кнопке,
' в таблице элементов кнопочной формы.