Использование диалоговых окон
Функция MESSAGEBOX возвращает числовое значение, определяющее нажатую пользователем кнопку. Возможные значения приведены в табл. 12.4.
Таблица 12.4. Значения, возвращаемые функцией.
| Значение | Кнопка |
|---|---|
| 1 | ОК |
| 2 | Cancel |
| 3 | Abort |
| 4 | Retry |
| 5 | Ignore |
| 6 | Yes |
| 7 | No |
Рассмотрим использование диалогового окна для вывода сообщения об ошибке ввода значения кредита клиента. Для этого выполните следующие действия:
- Откройте форму для ввода информации о клиентах.
- Выберите поле ввода значения кредита и для события valid определите процедуру (рис. 12.2), которая проверяет введенное значение и при необходимости открывает диалоговое окно с сообщением об ошибке:
if THIS.Value > 5000
= MESSAGEBOX("Максимальный кредит для клиента составляет;
5000 рублей." +;
CHR(13) +;
"В особых случаях согласуйте величину кредита;
с Генеральным директором.",;
0+48+ 0, "Предупреждение")
endif
Рис. 12.2. Определение процедуры для события Valid
- Запустите форму на выполнение, введите значение кредита более 5000, перейдите на следующее поле. Откроется диалоговое окно с сообщением об ошибке (рис. 12.3).
Рис. 12.3. Диалоговое окно с сообщением об ошибке