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

Условия достоверности ввода данных на уровне поля таблицы

Для определения условия достоверности ввода данных на уровне поля таблицы используется область Field validation (Проверка правильности ввода) вкладки Fields (Поля) окна конструктора таблиц. В поле Rule (Условие) задается логическое выражение, а в поле Message (Сообщение) – сообщение, отображаемое на экране, если логическое выражение возвращает значение False.

Определим условие достоверности данных для поля nQuant, содержащего количество купленного товара, таблицы ordsaled. При вводе количества товара необходимо автоматически проверять его фактическое количество на складе.

Для определения данного условия достоверности данных выполните следующие действия:

  1. Откройте проект sales.
  2. Перейдите на вкладку Data (Данные).
  3. В разделе Tables (Таблицы) выберите таблицу ordsaled и нажмите кнопку Modify (Модифицировать).
  4. В окне конструктора таблицы выберите поле nQuant.
  5. В поле ввода Rule (Условие) области Field validation (Проверка правильности ввода) введите вызов функции CheckQuant ().
  6. В поле ввода Message (Сообщение) введите текст сообщения: "Заказанное количество товара превышает его фактическое количество" (рис. 14.6).
  7. Откройте окно редактирования хранимых процедур и добавьте в него новую процедуру CheckQuant:
procedure CheckQuant
nCdGoods = Ordsaled.iCdGoods
*определяем фактическое количество товара
SELECT nFactQuant;
FROM Goods;
WHERE iCdGoods = nCdGoods;
INTO ARRAY nQuant
*сравниваем заказанное количество с имеющимся на складе
RETURN Ordsaled.nQuant(1) <= nQuant(1)

Иллюстрированный самоучитель по Visual FoxPro 8 › Условия достоверности, хранимые процедуры, триггеры, представления данных › Условия достоверности ввода данных на уровне поля таблицы
Рис. 14.6. Определение условия достоверности для поля nQuant

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.