Информационная система "Книга рецептов" (стр. 2 из 2)

RETURN ERROR.

END.

IF NOT(CAN-FIND(FIRST Product WHERE

inserted.prod_code = Product.prod_code))

THEN DO:

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

RETURN ERROR.

END.

Отчёт

Table Name Description

----------------------------------------------------------------------------

Dish

Product

Recipe

=========================================================================

============================= Table: Dish ===============================

Table Flags: "f" = frozen, "s" = a SQL table

Table Dump Table Field Index Table

Name Name Flags Count Count Label

----------------------------- -------- ----- ----- ----- -------------------

Dish Dish 4 1 ?

Storage Area: N/A

Trigger Event Trigger Procedure Overridable? Check CRC?

------------- -------------------- ------------ ---------

DELETE D_Dish.p no no

WRITE W_Dish.p no no

============================= FIELD SUMMARY =============================

============================= Table: Dish ===============================

Flags: <c>ase sensitive, ndex component, <m>andatory, <v>iew component

Order Field Name Data Type Flags Format Initial

----- ------------------------- ----------- ----- --------------- ----------

10 dish_code inte i ->,>>>,>>9 0

20 dish_name char X(18)

30 level inte ->,>>>,>>9 0

40 feature char X(18)

Field Name Label Column Label

------------------------------ ---------------------- ----------------------

dish_code код блюда код блюда

dish_name наименование блюда наименование блюда

level уровень сложности уровень сложности

feature вид вид

============================= INDEX SUMMARY =============================

============================= Table: Dish ===============================

Flags: rimary, nique, <w>ord, <a>bbreviated, nactive, + asc, - desc

Flags Index Name Cnt Field Name

----- -------------------------------- --- ---------------------------------

pu XPKDish 1 + dish_code

** Index Name: XPKDish

Storage Area: N/A

============================= FIELD DETAILS =============================

============================= Table: Dish ===============================

=========================================================================

============================= Table: Product ============================

Table Flags: "f" = frozen, "s" = a SQL table

Table Dump Table Field Index Table

Name Name Flags Count Count Label

----------------------------- -------- ----- ----- ----- -------------------

Product Product 3 1?

Storage Area: N/A

Trigger Event Trigger Procedure Overridable? Check CRC?

------------- -------------------- ------------ ----------

DELETE D_Product.p no no

WRITE W_Product.p no no

============================= FIELD SUMMARY =============================

============================= Table: Product ============================

Flags: <c>ase sensitive, ndex component, <m>andatory, <v>iew component

Order Field Name Data Type Flags Format Initial

----- ------------------------- ----------- ----- --------------- ----------

10 prod_code inte i ->,>>>,>>9 0

20 prod_name char X(18)

30 unit_price deci-2 ->>,>>9.99 0

Field Name Label Column Label

------------------------------ ---------------------- ----------------------

prod_code код продукта код продукта

prod_name наименование продукта наименование продукта

unit_price цена за единицу цена за единицу

============================= INDEX SUMMARY =============================

============================= Table: Product ============================

Flags: rimary, nique, <w>ord, <a>bbreviated, nactive, + asc, - desc

Flags Index Name Cnt Field Name

----- -------------------------------- --- ---------------------------------

pu XPKProduct 1 + prod_code

** Index Name: XPKProduct

Storage Area: N/A

============================= FIELD DETAILS =============================

============================= Table: Product ============================

=========================================================================

============================= Table: Recipe =============================

Table Flags: "f" = frozen, "s" = a SQL table

Table Dump Table Field Index Table

Name Name Flags Count Count Label

----------------------------- -------- ----- ----- ----- -------------------

Recipe Recipe 3 1?

Storage Area: N/A

Trigger Event Trigger Procedure Overridable? Check CRC?

------------- -------------------- ------------ ----------

CREATE C_Recipe.p no no

WRITE W_Recipe.p no no

============================= FIELD SUMMARY =============================

============================= Table: Recipe =============================

Flags: <c>ase sensitive, ndex component, <m>andatory, <v>iew component

Order Field Name Data Type Flags Format Initial

----- ------------------------- ----------- ----- --------------- ----------

10 prod_code inte im ->,>>>,>>9 0

20 dish_code inte im ->,>>>,>>9 0

30 needed_amount deci-2 ->,>>>,>>9.99 0

Field Name Label Column Label

------------------------------ ---------------------- ----------------------

prod_code код продукта код продукта

dish_code код блюда код блюда

needed_amount необходимое количество необходимое количество

============================= INDEX SUMMARY =============================

============================= Table: Recipe =============================

Flags: rimary, nique, <w>ord, <a>bbreviated, nactive, + asc, - desc

Flags Index Name Cnt Field Name

----- -------------------------------- --- ---------------------------------

pu XPKRecipe 2 + prod_code

+ dish_code

** Index Name: XPKRecipe

Storage Area: N/A

============================= FIELD DETAILS =============================

============================= Table: Recipe =============================

============================= SEQUENCES =================================