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



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



Рис. 12.2. Определение процедуры для события Valid
  • Выберите поле ввода значения кредита и для события Valid определите процедуру (рис. 12.2), которая проверяет введенное значение и при необходимости открывает диалоговое окно с сообщением об ошибке:
  • if THIS.Value > 5000

    = MESSAGEBOX("Максимальный кредит для клиента составляет ;

    5000 рублей." + ;

    CHR(13) + ;

    "В особых случаях согласуйте величину кредита ;

    с Генеральным директором.",; 0+4 8+ 0, "Предупреждение")

    endif

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


  • Содержание Назад Вперед