Создание процедуры обработки события.

8.

Контрольное задание по запросам.

1. Создать групповой запрос, который вычисляет средний возраст для мужчин и для женщин.
2. Создать запрос с параметром,взяв в качестве параметра данные поля Диагноз, а также в запросе должны быть выбраны поля: ФИО, дата рождения, врач.
3. Создать запрос Вычисление месяца, в котором вычисляется номер месяца поступления и выписки пациентов. (Использовать встроенную функцию Month(…), которая работает аналогично функции Year(…), но в качестве результата возвращает номер месяца).
4. Создать запрос на обновление данных в поле Возраст. (учесть, что числовой тип данных в этом поле должен иметь размер поля – целое и число десятичных знаков - 0)

Программа на языке Microsoft Visual Basic пишется в виде блоков, которые называют процедурами. Процедура содержит набор инструкций Visual Basic, с помощью которых выполняются действия или рассчитывается значение. Процедурой обработки события называют процедуру, выполняющуюся в ответ на событие, инициируемое пользователем или программой или генерируемое системой. Событием называют определенное действие, возникающее при работе с конкретным объектом. Microsoft Access реагирует на целый ряд событий: нажатие кнопки мыши, изменение данных, открытие или закрытие форм и т.д. С помощью процедуры обработки события пользователь имеет возможность определить собственные отклики на события, происходящие в форме, отчете или элементе управления. Существуют процедуры двух типов: Sub и Function.

Процедура-подпрограмма Sub выполняет действие или набор действий, но не возвращает значение. Пользователь имеет возможность создавать процедуры Sub самостоятельно или использовать процедуры обработки событий, определенные в Microsoft Access.

Процедура-функция Function (часто такие процедуры называют просто функциями) возвращает значение, например, полученное в результате расчетов. Visual Basic включает ряд встроенных функций; например, функция Now возвращает текущее значение даты и времени. В дополнение к встроенным функциям, пользователь имеет возможность самостоятельно создавать функции, которые называют специальными или пользовательскими функциями

1. Перейти на вкладку Формы и создать новую форму на основе таблицы Пациенты, назвав ее Пациент2.
2. Раскрыть форму в режиме Конструктор.Щелкнуть правой кнопкой мыши в серой области формы, вызвать контекстное меню и выбрать в нем либо Обработку событий,либо Свойства, вызвав этим окно Свойств формы (закладка События),где необходимо выбрать свойство события в ответ на которое должна выполняться процедура обработки события.Выбрать Текущая записьи вызвать Построитель, нажав кнопку с многоточием справа от ячейки. В Построителе выбрать Программы и выйти в окно Процедуры обработки события (подпрограммы Sub)В верхней части окна есть две ячейки: в левой показано в каком объекте происходит событие (в нашем случае – это форма), в правой показано выбранное нами свойство события - Текущая запись - Current(переход из одной записи в другую). Курсор моргает в том месте подпрограммы Sub, где надо написать инструкцию. Если в контекстном меню выбрать опцию Обработка событий,то сразу же открывается окно Процедуры обработки события, но в правой ячейке надо изменить свойство события на Current - Текущая запись .

3. Вводим инструкцию на изменение цвета фона поля ФИО при условии, если возраст меньше 30 лет и изменение цвета текста в зависимости от пола.

Цвета фона описывает оператор Backcolor, а цвет текста – Forecolor, значения функции RGB (red, green, blue) определяют отображаемый цвет и находятся в интервале от 0 до 255. В следующей таблице приведены некоторые стандартные цвета и их красная, зеленая и синяя составляющие:

При вводе инструкции надо соблюдать некоторые правила написания:

ü Если имя поля введено русскими буквами, то это имя заключается в квадратные скобки, если английскими, то без скобок.

ü Если значение поля введено буквами, то эти буквы заключаются в кавычки, если цифрами, то без кавычек.

Пример: pol=1, Pol=«м», [пол]=1, [пол]=«м».

Ввести инструкцию:

[ФИО]. Backcolor=RGB(0,255,0)- фамилии пациентов будут отображены на зеленом фоне.

If [Возраст]<30 Then [ФИО]. Backcolor=RGB(255,255,0)– если возраст пациентов меньше 30 лет, их фамилии будут отображены на желтом фоне.

If [Пол]= «м» Then [ФИО]. Forecolor=RGB(255,0,0)– если пациент мужчина, тогда его фамилия будет напечатана красным цветом.

If [Пол]= «ж» Then [ФИО]. Forecolor=RGB(0,0,255)– если пациент женщина, тогда ее фамилия будет напечатана синим цветом.

1. Для проверки написания нажать на панели инструментов кнопку Компилировать.Если проверка прошла нормально, закрыть все окна, сохранив изменения в форме.
2. Открыть форму и проверить изменение цвета.