Иллюстрированный самоучитель по 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)

Рис. 14.6. Определение условия достоверности для поля nQuant