Курсовая работа: Разработка автоматизированной системы "Библиотека"

Макрокоманда открывает запрос на создание таблицы о сумме, которую заплатил читатель.

е) ОткрытьЗапрос

Имя запроса: Оплата_пени

Режим: Таблица

Режим данных: Изменение

Макрокоманда открывает запрос на обновление той суммы, которую внес читатель и которую ему осталось оплатить.

Главная_форма.Выбор_читателя – реагирование системы на выбор пользователем определенного читателя.

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

Главная_форма.Переход – вспомогательный макрос для перехода на последнюю запись при оплате пени пользователем.

Главная_форма.Возврат_книги – возвращение читателем книги, снятие ее с рук, подсчет пени для читателя и убирание тех, кто заплатил.

Главная_форма.На_руках_ли – открытие запроса На_руках_ли? , что позволяет проверить, какие книги на руках.

Главная_форма.Закрытие_формы – закрытие формы Главная форма и применение запроса Аннулировать_долг(2) , что позволяет изменить в таблицах долг читателя, если он оплатил его.

Адреса_клиентов.Кнопки – макрос по выбору читателей по заданной первой букве фамилии.

Сумма_оплаченная – переход к выбранному читателю из возможных

Поиск_книги.Фильтр – применение фильтра на основании заданных параметров.

Поиск_книги.Ошибка – выдается сообщение, если читатель пытается взять книгу, которая на руках у другого человека.

Поиск_книги.Взять – вспомогательный макрос для поиска книги.

Поиск_книги.Взял – закрывает форму Поиск_книги и записывает выбранную книгу за читателем.

Поиск_книги .Error – выдает сообщение, если при поиске книги по критериям читатель указал более или менее пяти критериев.

8.2 Реализация алгоритмов средствами Visual Basic

Следующий алгоритм предназначен для перехода на форму Адреса_клиентов после нажатия кнопки Просмотр всех читателей на главной форме:

Private Sub ВсеЧитатели _Click()

On Error GoTo Err_ ВсеЧитатели _Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1040) & ChrW(1076) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1072) & ChrW(95) & ChrW(1082) & ChrW(1083) & ChrW(1080) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1086) & ChrW(1074)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ ВсеЧитатели _Click:

Exit Sub