После ввода начала промежутка времени происходит открытие диалогового окна, в которое необходимо ввести значение конца промежутка времени, за который необходимо получить список списанной литературы (Рис 40).
Рис 40 диалоговое окно
После ввода конца промежутка времени происходит открытие таблицы с интересующей информацией (Рис 41).
Рис 41 Таблица, отображающая список списанной литературы за некоторый период
Обработчик события нажатия кнопки:
Происходит списание книги:
INSERT INTO [Списанные экземпляры] ( Invent_n, ID_knigi, Data_списания )
VALUES (Forms![Списание книги]!ПолеСоСписком2, Forms![Списание книги]!ПолеСоСписком5, Forms![Списание книги]!Поле11);
Затем удаление экземпляра:
DELETE *
FROM Ekzempl_knigi
WHERE Invent_n=Forms![Списание книги]!ПолеСоСписком2;
При нажатии кнопки происходит открытие макроса «Список списанной литературы за некоторый период» (Рис 42)
Рис 42 Макрос «Список списанной литературы за некоторый период»
Макрос выполняет макрокоманду «Открыть запрос». Имя запроса «Списанная литература в период времени».
Текст запроса:
Kniga_jyrnal_.n_toma, Kniga_jyrnal_.Izdatel_stvo, Kniga_jyrnal_.God_izdania, Kniga_jyrnal_.n_biblioteki, Kniga_jyrnal_.Stoimost_, [Списанные экземпляры].Invent_n, [Списанные экземпляры].Data_списания
FROM [Списанные экземпляры] INNER JOIN Kniga_jyrnal_ ON [Списанные экземпляры].ID_knigi=Kniga_jyrnal_.ID_knigi
WHERE [Списанные экземпляры].Data_списания Between [Ввести начало периода] And [Ввести конец периода];
При нажатии на кнопку «Список самых популярных произведений за последний год» происходит таблицы, иллюстрирующей список самых популярных произведений за последний год (Рис 43).
Рис 43 Таблица «Список самых популярных произведений за последний год»
Обработчик события нажатия кнопки:
При нажатии кнопки происходит открытие макроса «Список самых популярных произведений за последний год» (Рис 44)
Рис 44 Макрос «Список самых популярных произведений за последний год»
Макрос выполняет макрокоманду «Открыть запрос». Имя запроса «Самые популярные книги за последний год».
Текст запроса:
SELECT Kniga_jyrnal_.ID_knigi, Kniga_jyrnal_.Avtor, Kniga_jyrnal_.Nazvanie, Count(Ekzempl_knigi.Invent_n) AS [Количество читателей этой книги]
FROM Formyl_r INNER JOIN (Kniga_jyrnal_ INNER JOIN Ekzempl_knigi ON Kniga_jyrnal_.ID_knigi=Ekzempl_knigi.ID_knigi) ON Formyl_r.Invent_n=Ekzempl_knigi.Invent_n
WHERE Year(Formyl_r.Data_v)
GROUP BY Kniga_jyrnal_.ID_knigi, Kniga_jyrnal_.Avtor, Kniga_jyrnal_.Nazvanie
ORDER BY Count(Ekzempl_knigi.Invent_n) DESC;
Ещё один макрос запускается сразу же после того, как мы открываем базу. Имя этого макроса «AUTOEXEC» (Рис 45). Он открывает форму «Библиотечный фонд города».
Рис 45 Макрос «AUTOEXEC»
4 Заключение
В результате проделанной работы была создана и описана база данных «Библиотечный фонд города», которая позволяет значительно упростить работу библиотечной организации небольшого города. С её помощью можно реализовать более рациональное управление библиотеками, тем самым уменьшить штат работников и сократить расходы предприятия. Она была создана с применением СУБД Access.
Microsoft Access – самая популярная в мире база данных для операционной системы Microsoft Windows. Кроме того, система управления базами данных Access – также мощная платформа разработки с чрезвычайно гибкой и функциональной интегрированной средой. Среда Access может с успехом использоваться начинающими пользователями и почти не требует знаний программирования. Все эти преимущества легко позволят базе данных «Библиотечный фонд города» быть полезной в производстве.
5 Список литературы
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.