13. Внедрение подчинённой формы, синхронизация полей. При включённом Мастере на Панели элементов выберите и разместите элемент Подчинённая форма/отчёт на форме. В окне, предложенном Мастером, укажите на источник данных для подформы: выберите пункт Формы, имя – Состав заказа. Далее уточните имена основного и подчинённого полей, выбрав из списка строку «'Состав заказа' для каждой записи 'Выбор заказов', поле связи 'Заказы.Код заказа'» или задав вариант Самостоятельное определение. Выбор этого варианта может потребоваться, если в списке готовых способов синхронизации, предложенных мастером, необходимый способ отсутствует. При выборе варианта «Самостоятельное определение» вид окна изменится. В колонках «Поля формы или отчёта:» и «Поля подчинённой формы или отчёта:» выберите из списка поле Код заказа. В последнем окне Мастера оставьте предложенное для подформы имя «Состав заказа». Сохраните изменения и проверьте работу формы в режиме просмотра. В конструкторе формы просмотрите закладку Данные свойств подформы. Свойство Подчинённые поля должно содержать значение Код заказа, свойство Основные поля – значение Заказы.Код заказа. Это и есть поля в подформе и форме, по которым связываются и синхронизируются данные. Установка указанных свойств путём выбора в отдельном окне (открывается при нажатии кнопки (…) справа от полей ввода свойств) или ввода имён полей позволяет «вручную», без мастера, синхронизировать форму и её подформу.
После сохранения и проверки работы формы Заказы просмотрите закладку Данные. Свойства Подчинённые поля и Основные поля будут содержать значение Код заказа. Это и есть поля в форме и подформе, по которым связываются и синхронизируются данные.
14. Автоматическое заполнение даты. Для поля Дата заказа на закладке Данные подокна Свойства найдите свойство Значение по умолчанию и введите выражение Date(). Эта функция при вводе нового заказа будет автоматически присваивать полю Дата заказа значение текущей системной даты.
15. Автоматическое заполнение полей Цена продажи, ЕИ и Сумма. В режиме конструктора откройте группу макросов Заказы. Сформируйте 3 макроса, используя данные из табл. 3.
Таблица 3
Макросы вычислений
Имя макроса
|
Макро-
|
Аргументы макрокоманды
|
команда
|
Элемент
|
Выражение
|
Сумма
|
ЗадатьЗначение
|
[Сумма]
|
[Цена продажи]*[Количество]
|
Цена продажи
|
[Цена продажи]
|
[Цена]
|
|
[Сумма]
|
[Цена продажи]*[Количество]
|
После обновления ценности
|
[Цена продажи]
|
[Цена]
|
|
[Сумма]
|
[Цена продажи]*[Количество]
|
|
[ЕИ]
|
[Основная ЕИ]
|
Здесь имя каждого макроса вводится одной строкой в отдельную клетку. Для получения 2-й макрокоманды 2-го макроса удобно использовать копирование 1-го макроса. Первые 2 макрокоманды 3-го макроса можно получить копированием строк 2-го макроса или использовать вместо них команду ЗапускМакроса. При этом следует выполнить команду Сохранить (кнопка с изображением дискеты) и выбрать из списка в качестве аргумента Имя макроса полное имя макроса Заказы.Цена продажи.
Теперь необходимо обеспечить вызов созданных макросов из подчинённой формы Состав заказа: 1-й макрос должен выполняться по событию После обновления каждого из полей Цена продажи и Количество, 2-й – по событию После обновления поля Цена, 3-й – по событию После обновления поля Ценность. При указании имён макросов надо выбрать из списка (а можно вводить и вручную) полные имена макросов, соответственно Обработчики.Сумма, Обработчики.Цена продажи и Обработчики.После обновления ценности .
16. Автоматический расчёт поля Общая сумма при изменении состава заказа. Создайте макрос Общая сумма, состоящий из двух макрокоманд ЗадатьЗначение. 1-я макрокоманда рассчитывает общую сумму с помощью функции DSum. Для этого присвойте аргументу Выражение значение, представляющее собой вызов встроенной функции с тремя параметрами:
DSum("[Сумма]"; "[Составы заказов]";
"[Код заказа]=[Forms]![Заказы]![Код заказа]”)
Здесь первый параметр функции определяет название поля для суммирования (что суммировать), второй – название используемой таблицы или запроса (где суммировать), третий – условие отбора суммируемых значений.
Т. к. обращение к полю Общая сумма в форме Заказы производится из подформы, то при вводе аргумента Элемент используется, как и выше в функции, полное имя поля – [Forms]![Заказы]![Общая сумма] .
При отсутствии записей, удовлетворяющих условию в функции DSum, она выдаёт значение Null, поэтому для 2-й макрокоманды в колонку Условие введено IsNull([Forms]![Заказы]![Общая сумма]) , а Аргументы макрокоманды равны:
Элемент
Выражение
|
[Forms]![Заказы]![Общая сумма]
|
Замечание: здесь Forms
можно заменить на Формы
|
Здесь в качестве выражения выступает «пустое значение», что является альтернативой ввода значения 0 (число нуль).
Макрос Общая сумма должен выполняться при изменении состава заказа, т. е. при наступлении в подформе Состав заказа событий:
1) После обновления, т. е. при изменении суммы одной из строк или добавлении строки;
2) После подтверждения Del , т. е. после удаления строки в составе заказа.
На закладке Данные поля Общая сумма для свойства Блокировка можно установить значение Да. Однако этого делать не стоит, если в дальнейшем предусматривается возможность ввода документов без состава табличной части, путём ручного ввода общей суммы.
17. Для быстрого ввода новых клиентов, сотрудников и ценностей, которых ещё нет в базе данных, в разделе Примечание формы формы Заказы добавлены кнопки Сотрудники, Клиенты и Ценности. Создайте также кнопку Печать заказа, по нажатию которой будет выводиться на бумагу копия текущего заказа.
Создайте логическую функцию Загружена. Она проверяет, загружена ли форма с заданным именем. В Access-97/2000 в имени функции используйте только латинские буквы, например: IsLoaded.
Для определения функции создайте новый модуль общего доступа и дополните его следующим текстом (содержимое строк после апострофа – это комментарии, которые можно не вводить), обязательно используя позиционный вывод начала строк (Tab – отступ на 4 символа вперёд, Shift-Tab – назад):
' Заголовок объявляемой логической (булевской) функции:
Function Загружена(ИмяФормы$) As Boolean
' $ объявляет строковую переменную (String),
' % - целочисленную (Integer)
Загружена = False ' начальное предположение
' о незагруженности формы
Dim i As Integer 'это описание необходимо при
' наличии в области объявлений (Declarations) в
' начале модульного листа опции Option Explicit
For i = 0 To Forms.Count – 1 ' заголовок цикла
' формы нумеруются от нуля!!!
If Forms(i).FormName=ИмяФормы Then ' начало
' блочного условного оператора If - Если
Загружена = True ' форма найдена!
Exit Function ' выход из функции
End If ' завершение блока If проверки условия
Next i ' завершение перечисляемого
' оператора цикла типа For - Для
End Function ' завершение объявления функции Загружена
Функция Загружена проверяет, загружена ли форма с заданным в строковой переменной ИмяФормы именем. При вводе текста функции после ссылки на семейство Forms открытых форм и ввода точки появляется список свойств и методов семейства. Вместо ввода свойства FormName можно ввести или выбрать из списка свойство Name. Свойство FormName использовалось в ранних версиях VBA, но поддерживается в более поздних.
Для того, чтобы после вызова формы Сотрудники, Клиенты или Ценности обновить списки в полях со списками Сотрудник, Клиент или Ценность в самой форме Заказы, создайте, а затем присвойте свойству Включение (оно соответствует активизации формы) макрос Обновить заказы с четырьмя макрокомандами (табл. 4). В первых трёх командах макроса функция Загружена проверяет, загружена ли одна из трёх форм. Если «да», то макрокоманда Закрыть закрывает форму. Если «нет», то во избежание ошибки закрытия неоткрытой формы макрокоманда Закрыть не выполняется.
Таблица 4
Макрос обновления формы Заказы
Имя
макроса
|
Условие
|
Макрокоманда
|
Аргументы
макрокоманды
|
Тип
объекта
|
Имя
объекта
|
Обновить
заказы
|
Загружена("Сотрудники")
|
Закрыть
|
Форма
|
Сотрудники
|
|
Загружена("Клиенты")
|
Закрыть
|
Форма
|
Клиенты
|
|
Загружена("Ценности")
|
Закрыть
|
Форма
|
Ценности
|
|
|
ОбновитьОбъект
|
Форма
|
Заказы
|
Проверьте работу формы Заказы совместно с формами Сотрудники, Клиенты и Ценности. Добавляемые новые сотрудники, клиенты и ценности будут присутствовать в списках формы Заказы. Три указанные формы будут закрываться автоматически при активизации формы Заказы.
Задание 1. В форме Клиенты добавьте и активизируйте кнопки вызова форм Типы клиентов, Города и Улицы. Путём копирования строк макроса Обновить заказы и внесения изменений создайте макрос Обновить форму Клиенты, закрывающий формы Типы клиентов, Города и Улицы при наступлении события Включение формы Клиенты. Подключите макрос к событию формы.
Задание 2. Для обновления списков городов в форме Улицы добавлена кнопка Города. Разработайте и подключите к событию Включение формы макрос Обновить форму Улицы, содержащий две макрокоманды: закрытия формы Города, если она открыта, и обновления формы Улицы. Следует отметить, что достаточно обновления поля со списком Город этой формы.
Задание 3. Аналогично создайте и подключите к событию Включение формы Ценности макрос Обновить форму Ценности.
Лабораторная работа № 4
Создание отчётов – печатных форм для вывода данных
Цель. Приобретение навыков создания отчётов и подчинённых отчётов, освоение этапов создания печатных документов (счетов, накладных, ордеров, сводов и т.д.).
Порядок выполнения работы
Используйте Мастер построения отчётов для создания простейших печатных формы. В качестве источников данных используйте имеющиеся таблицы и запросы. В форме Главная кнопочная форма по нажатию кнопки Отчёты можно выводить отдельное окно печати отчётов или, изменив надпись на кнопке, просто выводить отчёт, источником данных для которого можно использовать запрос Заказы клиентов.
Открыв окно Схема данных, в разделе Файл основного меню выберите команду Печать схемы данных для получения отчёта, представляющего схему базы данных.
Лабораторная работа № 5
Построение диаграмм
Цель. Использование диаграмм для получения графического представления данных.
Порядок выполнения работы
Создание графиков в Access максимально упрощено. Следует поместить элемент управления Диаграмма на Панель элементов, чтобы он всегда был доступен в конструкторе формы. Выполните команду создания формы в режиме конструктора или откройте одну из имеющихся форм, в которой требуется разместить диаграмму. В разделе Сервис основного меню выберите команду «Настройка…». В открывшемся окне на закладке Команды в левом списке Категории выделите категорию «Элементы управления». В правом окне найдите команду «Диаграмма…» и левой кнопкой мыши перетащите её на кнопочную панель элементов формы с названием «Панель элементов». Закройте окно настройки. Нажав на кнопку элемента управления Диаграмма и выделив мышью область в окне формы для размещения окна диаграммы, запустите Мастера диаграмм, который в несколько этапов, используя окна создания диаграмм, поможет автоматически построить один из выбранных типов диаграмм.
График реализации ценностей по месяцам. В окнах мастера выбрать таблицу Заказы и затем – поля Дата оплаты и Общая сумма. Изменить вид диаграммы, расположение и вид её элементов.
Лабораторная работа № 6
|
