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

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

Если в контекстном меню выбрать опцию Обработка событий,то сразу же открывается окно Процедуры обработки события, но в правой ячейке надо изменить свойство события на Current — Текущая запись .

В Построителе выбрать Программы и выйти в окно Процедуры обработки события (подпрограммы Sub)

В верхней части окна есть две ячейки: в левой показано в каком объекте происходит событие (в нашем случае – это форма), в правой показано выбранное нами свойство события — Текущая запись — Current(переход из одной записи в другую). Курсор моргает в том месте подпрограммы Sub, где надо написать инструкцию.

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

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

Цвет Красная составляющая Зеленая составляющая Синяя составляющая
Черный
Синий
Зеленый
Бирюзовый
Красный
Малиновый
Желтый
Белый

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

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

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

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

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

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

If [Возраст]

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

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

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

  1. Открытьформу и проверить изменение цвета.

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

Статьи к прочтению:

Андрей Фурсов. Главное событие современной истории


Похожие статьи: