Реляционные СУБД в Visual FoxPro 7




Таблица 12.4. Значения, возвращаемые функцией



Таблица 12.4. Значения, возвращаемые функцией

Значение Кнопка
1 ОК
2 Cancel
3 Abort
4 Retry
5 Ignore
6 Yes
7 No

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

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

if THIS.Value > 5000

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

5000 рублей." + ;

CHR(13) + ;

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

с Генеральным директором.",;

0+48+ 0, "Предупреждение")

endif









Начало  Назад  Вперед



Книжный магазин