Курсовая работа: Разработка информационной системы средствами СУБД Access

Раскройте список макросов в окне База данных (Database), щелкнув левой кнопкой мыши по ярлыку Макросы (Macros), и нажмите кнопку Создать (New) в верхней части окна.

Щёлкните по стрелке вниз на кнопке Новый объект (New Object) на панели инструментов База данных (Database) и выберите элемент Макрос (Macro). Окно Конструктора макросов построено аналогично окну Конструктора таблиц, т. е. разделено по горизонтали на две части: панель описаний и панель аргументов. Верхняя часть окна Конструктора — панель описаний — состоит из нескольких столбцов. По умолчанию на этой панели выводится два столбца: "Макрокоманда" (Action) и "Примечание" (Comments). Панель описаний позволяет определить последовательность макрокоманд, из которых состоит макрос. Строка в столбце "Макрокоманда" (Action) представляет собой поле со списком, в котором можно выбрать нужную макрокоманду. Строка в столбце "Примечание" (Comments) — это обычное текстовое поле, в которое можно ввести комментарий, описывающий выполняемое действие.

Когда поле "Макрокоманда" (Action) заполнено, в нижней части окна Конструктора макросов появляется панель аргументов, предназначенная для ввода значений аргументов соответствующей макрокоманды. Список полей на этой панели зависит от выбранной макрокоманды и может отсутствовать, если макрокоманда не имеет аргументов. Таким образом, при создании макросов не нужно запоминать список аргументов для каждой макрокоманды.

По заданию нужно создать макрос для решения задачи, использующей запросы: рассчитать стоимость заказа, используя данные о сотрудниках, выполняющих заказ и обновить поле Стоимость заказа в таблице Заказы.

Рисунок 36

Таблица 6 – поля макроса 1

Макрокоманда	Описание
УстановитьСообщения	Предназначена для включения и отключения системных сообщений.
ОткрытьЗапрос	С помощью этой макрокоманды можно открыть запрос на выборку или перекрестный запрос в режиме таблицы, режиме конструктора или режиме предварительного просмотра.
Сообщение	Макрокоманда предназначена для отображения окна сообщения, содержащего предупреждение или сведения. Например, макрокоманду Сообщение можно использовать при проверке условия на значение с помощью макроса. Когда элемент или запись не могут пройти проверку на значение в макросе, окно сообщения может отобразить сообщение об ошибке и подсказать, какого типа данные должны быть введены.
ОткрытьОтчет	Макрокоманда позволяет открыть отчет в режиме конструктора или режиме предварительного просмотра, а также вывести отчет на печать. Кроме того, можно ограничить записи, которые будут печататься в отчете.

Рисунок 37

Таблица 7 –поля макроса 2

Макрокоманда	Описание
СдвигРазмер	Если параметры окна документа настроены для работы с перекрывающимися окнами, а не с вкладками документов, то можно использовать макрокоманду СдвигРазмер для перемещения или изменения размеров активного окна.
ОткрытьФорму	Макрокоманда предназначена для открытия формы в режиме формы, в режиме конструктора, в режиме предварительного просмотра или в режиме таблицы. Она позволяет выбирать режим ввода данных и режим окна для формы, а также ограничивать количество записей, отображаемых в форме.
ВыделитьОбъект	Макрокоманда позволяет выделить указанный объект базы данных.
НаЗапись	Макрокоманда предназначена для того, чтобы сделать указанную запись текущей записью в открытой таблице, форме или результирующем наборе запроса.
ЗадатьЗначение	С помощью макрокоманды можно задать значение для поля, элемента управления или свойства в форме, форме в режиме таблицы или в отчете Microsoft Office Access
Закрыть	Макрокоманда предназначена для закрытия окна, либо определенного Microsoft Office Access 2007, либо активного, если никакое другое не выбрано.
ОткрытьОтчет	Макрокоманда позволяет открыть отчет в режиме конструктора или режиме предварительного просмотра, а также вывести отчет на печать. Кроме того, можно ограничить записи, которые будут печататься в отчете.

\

3.2 Разработка модулей

Приложение содержит три модуля, которые реализуют специальные алгоритмы обработки данных. Требуется написать процедуру поиска данных по категории в таблице Охранники.

Option Compare Database

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

'определение объектных переменных

DimdbsAsDatabase

DimrstAsRecordset

'определение полей для ввода ключей

Dim nt As String

'запись в dbs ссылки на текущую базу данных

Set dbs = CurrentDb()

'запись в rst ссылки на таблицу Поставка

Set rst = dbs.OpenRecordset("Охранники", dbOpenTable)

'ввод названия товара для поиска

nt = InputBox("Введите категорию", "Ввод параметров поиска")

'цикл, работающий пока таблица не закончилась

DoWhileNotrst.EOF

'сравнение введенного текста с полем из записи таблицы Охранники

Ifnt = rst![Категория] Then

'вывод найденной записи

MsgBox " Категория: " & rst![Категория] & _

" ФИО: " & rst![ФИО], vbOKOnly