- Перейти на вкладку Формы и создать новую форму на основе таблицы Пациенты, назвав ее Пациент2.
- Раскрыть форму в режиме Конструктор. Щелкнуть правой кнопкой мыши в серой области формы, вызвать контекстное меню и выбрать в нем либо Обработку событий, либо Свойства, вызвав этим окно Свойств формы (® закладка События), где необходимо выбрать свойство события в ответ на которое должна выполняться процедура обработки события. Выбрать Текущая запись и вызвать Построитель, нажав кнопку с многоточием справа от ячейки.
Если в контекстном меню выбрать опцию Обработка событий, то сразу же открывается окно Процедуры обработки события, но в правой ячейке надо изменить свойство события на Current - Текущая запись.
В Построителе выбрать Программы и выйти в окно Процедуры обработки события (подпрограммы Sub)
В верхней части окна есть две ячейки: в левой показано в каком объекте происходит событие (в нашем случае – это форма), в правой показано выбранное нами свойство события - Текущая запись - Current (переход из одной записи в другую). Курсор моргает в том месте подпрограммы Sub, где надо написать инструкцию.
Вводим инструкцию на изменение цвета фона поля ФИО при условии, если возраст меньше 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) – если пациент женщина, тогда ее фамилия будет напечатана синим цветом.
- Для проверки написания нажать на панели инструментов кнопку Компилировать. Если проверка прошла нормально, закрыть все окна, сохранив изменения в форме.
- Открыть форму и проверить изменение цвета.
IV. Контрольное задание по формам.
- Создать кнопку уменьшающую значение возраста на 5 единиц, используя условный оператор IF, установив ограничение для возраста > 0.
- Построить диаграмму по запросу Сумма лекарств, отформатировать цвет столбцов и название диаграммы.
- Создать форму вида в один столбец по запросу Сумма лекарств и встроить в нее кнопку, при нажатии на которую будет открываться диаграмма, построенная по этому запросу.
- Добавить элемент типа «поле со списком», дающем возможность выбора пол «м» или «ж».
