Иллюстрированный самоучитель по Visual FoxPro 8

Использование диалоговых окон

Рассмотрим использование диалогового окна для вывода сообщения об ошибке ввода значения кредита клиента. Для этого выполните следующие действия:

1. Откройте форму для ввода информации о клиентах.

   

   Рис. 12.2. Определение процедуры для события Valid

2. Выберите поле ввода значения кредита и для события Valid определите процедуру (рис. 12.2), которая проверяет введенное значение и при необходимости открывает диалоговое окно с сообщением об ошибке:

   if THIS.Value > 5000
   = MESSAGEBOX("Максимальный кредит для клиента составляет;
   5000 рублей." +;
   CHR(13) +;
   "В особых случаях согласуйте величину кредита;
   с Генеральным директором.",; 0+4 8+ 0, "Предупреждение")
   endif
   

3. Запустите форму на выполнение, введите значение кредита более 5 000, перейдите на следующее поле. Откроется диалоговое окно с сообщением об ошибке (рис. 12.3).

Рис. 12.3. Диалоговое окно с сообщением об ошибке