Курсовая работа: Информационная система "Книга рецептов"

IF deleted.dish_code <> 0 AND

deleted.dish_code <> inserted.dish_code

THENDO:

MESSAGE "Код блюда менять нельзя; он должен совпадать с кодом блюда в каталоге блюд."

RETURN ERROR.

END.

IF inserted.dish_code = 0

THEN DO:

MESSAGE "Код блюда не может быть нулевым.".

RETURN ERROR.

END.

3) Длярецептов.

а) Триггер на изменение записи таблицы рецепты.

TRIGGER PROCEDURE FOR WRITE OF Recipe

NEW inserted OLD deleted.

IF NOT(CAN-FIND(FIRST Dish WHERE

inserted.dish_code = Dish.dish_code))

THEN DO:

MESSAGE «Данных о таком блюде нет в БД. Внесите, пожалуйста, сначала информацию в таблицу блюда.».

RETURN ERROR.

END.

IF NOT(CAN-FIND(FIRST Product WHERE

inserted.prod_code = Product.prod_code))

THEN DO:

MESSAGE «Данных о таком продукте нет в БД. Внесите, пожалуйста, сначала информацию в таблицу продукты.»

RETURN ERROR.

END.