Информационные системы «фирма»

В Microsoft Access существует специальное  средство для создания макросов - Конструктор макросов (Macro Design). Рассмотрим процесс создания макроса с помощью Конструктора.

Открыть окно Конструктор  макросов (Macro Design) для создания нового макроса можно двумя способами:

Раскройте список макросов в окне База данных (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 ()

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

Dim dbs As Database

Dim rst As Recordset

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

Dim nt As String

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

Set dbs = CurrentDb ()

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

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

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

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

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

Do While Not rst. EOF

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

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

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

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

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

End If

'переход на следующую  запись

rst. MoveNext

'конец цикла

Loop

End Sub

Написать процедуру  создания таблицы Список категорий (структура таблицы аналогична таблице  Категории) и ввода в нее записей.

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

Dim dbs As DAO. Database

Dim rst As DAO. TableDef

Dim Fiel1 As DAO. Field

Dim Fiel2 As DAO. Field

Dim rstt As DAO. Recordset

Dim indi As DAO. Index

Set dbs = CurrentDb ()

'создание таблицы

Set rst = dbs. CreateTableDef ("Список категорий")

'описание первого  поля Fiel1

Set Fiel1 = rst. CreateField ("Категория", dbText, 25)

'добавление поля Fiel1 в семеКатегорияйство полей таблицы tb1

rst. Fields. Append Fiel1

'описание второго поля Fiel2

Set Fiel2 = rst. CreateField ("Стоимость часа работы", dbText, 25)

'добавление поля Fiel2 в  семейство полей таблицы tb1

rst. Fields. Append Fiel2

'добавление таблицы в семейство таблиц

dbs. TableDefs. Append rst

MsgBox "Таблица Список  Категорий", vbOKOnly

zzz:

Set rstt = dbs. OpenRecordset ("Список Категорий")

Do While MsgBox ("Будем вводить данные", vbOKCancel) = vbOK

'добавление пустой  записи

rstt. AddNew

rstt! [Категория] = InputBox ("Введите  категорию")

rstt! [Стоимость часа  работы] = InputBox ("ВВедите стоимость часа работы")

'запись введенных  данных в таблицу

rstt. Update

Loop

'описание ошибочной  ситуации

End Sub

 

3.3 Создание панели управления приложением

 

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

Первая страница панели содержит следующие кнопки: Формы, Запросы, Отчеты, Макросы, Модули, Конструктор, Выход. На странице Формы содержатся следующие кнопки: Заказы, Охранники, Категории-Охранники, Заказы-Категории. На странице Запросы содержатся кнопки для вызова маросов, которые в свою очередь вызывают запросы 1а, 2, 3, 4а, 5.

На странице Модули вызывается форма модулей. На странице Запросы  содержатся кнопки для вызова макросов, которые в свою очередь вызывают запросы 1, 2, 3,4. Кнопка Конструктор вызывает конструктор кнопочных форм.

 

Рисунок 38 – Панель управления

 

Заключение

 

В ходе выполнения курсовой работы были рассмотрены следующие  вопросы:

• создание базы данных и таблиц средствами СУБД Access;
• управление базами данных;
• создание баз данных на основе таблиц
• получены навыки программирования в MS Office

Применение СУБД Access для  разработки базы данных и приложения для работы с ней показало, что  данная СУБД:

• обеспечивает удобные средства для описания структуры таблиц (мастер и Конструктор), возможность просто задать имя поля, выбрать тип данных из списка, размер и формат поля, задать поле со списком и определить источник данных для него;
• Позволяет создавать автоматизированные базы данных на основе языка Visual Basic for Application.

 

Список литературы

 

1. Сергеева Т.И. Создание приложений для работы с базами данных с применением MS SQL Server и Access: практикум / Т.И. Сергеева, М.Ю. Сергеев. Воронеж: ГОУВПО "ВГТУ", 2009.
2. Сенов А.В. Access 2003. Практическая разработка баз данных / А.В. Сенов. СПб.: Питер, 2005.
3. Голицина О.Л., Максимов Н.В., Попов И.И. Базы данных: Учебное пособие. - М.: ФОРУМ: ИНФРА-М, 2003. - 352 с.
4. Джексон Г. Проектирование реляционных баз данных для использования с микроЭВМ. - М.: Мир, 1991. - 252 с.

Размещено на Allbest.ru