Презентация, доклад по информатике на тему Макросы в базе данных

Содержание

Назначение макросовМакросы используются для автоматизации исполнения последовательности рутинных операций с БД, например:а) автоматическое открытие и/или печать нескольких форм или отчетов;б) автоматическое экспортирование данных из БД в другой формат (например , в dBase).

Слайд 1МАКРОСЫ В MS ACCESS
*

МАКРОСЫ В  MS ACCESS*

Слайд 2Назначение макросов
Макросы используются для автоматизации исполнения последовательности рутинных операций с БД,

например:
а) автоматическое открытие и/или печать нескольких форм или отчетов;
б) автоматическое экспортирование данных
из БД в другой формат (например , в dBase).

Назначение макросовМакросы используются для автоматизации исполнения последовательности рутинных операций с БД, например:а) автоматическое открытие и/или печать нескольких

Слайд 3Виды макрокоманд в макросах
Макрос представляет собой одну или последовательность нескольких макрокоманд

из числа следующих:
Восстановить Песочные часы ВывестиВформате ОткрытьЗапрос Звуковой сигнал ОткрытьМодуль
и т. д.
Виды макрокоманд в макросахМакрос представляет собой одну или последовательность нескольких макрокоманд из числа следующих:Восстановить

Слайд 4Макрос с условием в форме
Можно устанавливать запуск макроса при выполнении какого-либо

условия в форме или отчете, например:
Макрос с условием в формеМожно устанавливать запуск макроса при выполнении какого-либо условия в форме или отчете, например:

Слайд 5Создание макроса с условием
[Макрос]-[Создать];
Создать макрос;
[Вид] – [Условие].
В результате

появится дополнительный столбец УСЛОВИЕ, в который можно внести условие запуска для каждой макрокоманды. Например:
[Forms]![Запрос читателя]![КолЭкз]>1
Создание макроса с условием [Макрос]-[Создать]; Создать макрос; [Вид] – [Условие].В результате появится дополнительный столбец УСЛОВИЕ, в который

Слайд 6Запуск макроса
Запуск макроса может осуществляться:
а) автоматически при открытии БД;
б) при активизации

специально созданной для запуска макроса кнопке управления. Кнопка может быть создана в форме или отчете;
в) автоматически при возникновении определенного события в форме, отчете или в элементе управления типа поле или поле со списком.

Запуск макросаЗапуск макроса может осуществляться:а) автоматически при открытии БД;б) при активизации специально созданной для запуска макроса кнопке

Слайд 7Использование модулей наVBA
VBA имеет значительно большие функциональные возможности по сравнению с

макросами, а именно:
⮚       VBA позволяет использовать в выражениях и в качестве аргументов процедур переменные, значения которых могут динамически изменяться, в макросах же применяются только статические значения;
⮚       VBA обеспечивает очень гибкие возможности управления всеми объектами Access, особенно объектами, связанными с данными. Напрмер, VBA дает возможность работать с отдельными записями набора. Макросы позволяют работать только с набором записей.
Использование модулей наVBAVBA имеет значительно большие функциональные возможности по сравнению с макросами, а именно:⮚       VBA позволяет использовать

Слайд 8Использование модулей наVBA
VBA обеспечивает возможность создавать средства перехвата и обработки

ошибок. Макросы этого не позволяют.

Поэтому макросы целесообразно использовать для создания прототипов приложений пользователя, а «доведение до ума» приложений следует производить с использованием VBA.
Использование модулей наVBA VBA обеспечивает возможность создавать средства перехвата и обработки ошибок. Макросы этого не позволяют.Поэтому макросы

Слайд 9Пример задачи, связанной с вводом данных в БД из внешней аппаратуры
БД

предназначена для учета отгрузки предприятием металлического проката. Взвешивание отгружаемой продукции производится на автоматических весах. Результат взвешивания считывается в компьютер через СОМ-порт и записывается в файл. Программа чтения данных представляет собой EXE-модуль. Запуск EXE-модуля и перенос данных из файла в БД нужно осуществить из БД.
Пример задачи, связанной с вводом данных в БД из внешней аппаратурыБД предназначена для учета отгрузки предприятием металлического

Слайд 10Интерфейс пользователя

Интерфейс пользователя

Слайд 11Алгоритм решения
В форме ТОВАРЫ пользователь заполняет поля: №вагона, Описание груза, №

накладной;
По событию ПОСЛЕ ОБНОВЛЕНИЯ запускается макрос, который запускает модуль;
Модуль запускает EXE-модуль, затем после паузы, соответствующей времени взвешивания, считывает результаты взвешивания из файла и заносит их в БД.
Алгоритм решенияВ форме ТОВАРЫ пользователь заполняет поля: №вагона, Описание груза, № накладной;По событию ПОСЛЕ ОБНОВЛЕНИЯ запускается макрос,

Слайд 12Пример запуска exe-модуля из модуля VBA

Dim a, b, p As Variant
Shell

“d:\gast20.exe" 'Запуск exe-модуля, выполняющего
'чтение данных с автоматических весов и запись в файл .dat
a = Timer 'Запуск функции чтения кода времени с таймера
b = a
While (b - a < 2) 'Цикл ожидания на 2 сек
b = Timer ‘(За 2 сек производится взвешивание)
Wend
Пример запуска exe-модуля из модуля VBADim a, b, p As VariantShell “d:\gast20.exe

Слайд 13Пример ввода данных в БД из файла
Open “D:\b1" For Input As

1 'Открытие файла b1.dat для чтения
Input #1, p 'Чтение результата взвешивания p из файла
Close #1 'Закрытие файла
Beep 'Звуковой сигнал
Forms![товары1]![масса,т] = p * 0.01 'Ввод данных в БД
Forms![товары1]![Дата/время] = Now() 'Ввод текущего времени в БД

Запуск модуля с помощью макроса

Пример ввода данных в БД из файлаOpen “D:\b1

Слайд 14Пример задачи, связанной с необходимостью автоматической корректировки данных о запасах на

складе по результатам продаж
Пример задачи, связанной с необходимостью автоматической корректировки данных о запасах на складе по результатам продаж

Слайд 15Пример использования модулей на VBA
Автоматический перерасчет остатка товаров на складе после

каждой продажи можно произвести только с помощью модуля на VBA


Пример использования модулей на VBAАвтоматический перерасчет остатка товаров на складе после каждой продажи можно произвести только с

Слайд 16Модуль учета продаж
Private Sub КолЗаказаТовара_AfterUpdate()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName

= "Склад"
stLinkCriteria = "[КодТовара]=" & Me![КодТовара]
Продано = Forms("Расход")("КолЗаказаТовара").Value
<Операторы, выполняющие перерасчет остатка на складе>
End Sub
Модуль учета продажPrivate Sub КолЗаказаТовара_AfterUpdate()Dim stDocName As StringDim stLinkCriteria As StringstDocName =

Слайд 17Операторы перерасчета остатка на складе
‘Фрагмент модуля открывает форму Склад на записи,

‘связанной по ключевому полю КодТовара с записью, ‘открытой в данный момент в форме Расход, затем
‘ производит перерасчет

DoCmd.OpenForm ("Склад"), , , stLinkCriteria
Остаток = Forms("Склад")("Количество").Value
Forms("Склад")("Количество").Value = Остаток - Продано

Пример использования модулей на VBA

Операторы перерасчета остатка на складе‘Фрагмент модуля открывает форму Склад на записи, ‘связанной по ключевому полю КодТовара с

Что такое shareslide.ru?

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть