Добавил:
ICK
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовые по ИТВЭ. 18 и 27 варианты / 27.БД Книга рецептов / D_Product
.p TRIGGER PROCEDURE FOR DELETE OF Product.
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* DELETE trigger on Product */
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* Product входит в Recipe ON PARENT DELETE RESTRICT */
/* ERWIN_RELATION:PARENT_OWNER="", PARENT_TABLE="Product"
CHILD_OWNER="", CHILD_TABLE="Recipe"
P2C_VERB_PHRASE="входит в", C2P_VERB_PHRASE="состоит из",
FK_CONSTRAINT="входит_в", FK_COLUMNS="prod_code" */
IF CAN-FIND(FIRST Recipe WHERE
/* %JoinFKPK(Recipe,Product," = "," and") */
Recipe.prod_code = Product.prod_code)
THEN DO:
MESSAGE "Такое удаление не возможно, так как есть рецепты, для осуществления которых необходим этот продукт.".
RETURN ERROR.
END.
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* DELETE trigger on Product */
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* Product входит в Recipe ON PARENT DELETE RESTRICT */
/* ERWIN_RELATION:PARENT_OWNER="", PARENT_TABLE="Product"
CHILD_OWNER="", CHILD_TABLE="Recipe"
P2C_VERB_PHRASE="входит в", C2P_VERB_PHRASE="состоит из",
FK_CONSTRAINT="входит_в", FK_COLUMNS="prod_code" */
IF CAN-FIND(FIRST Recipe WHERE
/* %JoinFKPK(Recipe,Product," = "," and") */
Recipe.prod_code = Product.prod_code)
THEN DO:
MESSAGE "Такое удаление не возможно, так как есть рецепты, для осуществления которых необходим этот продукт.".
RETURN ERROR.
END.
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
Соседние файлы в папке 27.БД Книга рецептов