case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce EntityType_with

[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]

Vyhodnocovací funkce
EntityType_with_Attributes
(Entity Type)

Vytvořeno:	04-12-1996 14:13:36
Poslední změna:	12-03-2002 13:41:14

Lists all attributes of the specified entity type, indicating whether an attribute belongs to a primary key or not.

Modul

Module: Entity Type

Zdrojový kód:

PROCEDURE EntityType_with_Attributes(Name$)
BEGIN
/*
  print attribute list of entity type (primary key attributes underlined)
*/

    FOR Entity WHERE Name=Name$ DO
        PRINT {BOLD,"ARIAL",10} CONV$(Entity.Boxname),NL;
        found%=0;
        FOREACH Attribute WHERE Entity = Entity.Name ORDER BY Position DO
            found%=1;
            PRINT {"ARIAL",8} TAB(4);
            Pkey%=0;
            // look it the keylist of the current Enode if the Attribute is there
            // and check if the this is a primary key
            FOR Identifierattribute WHERE Attribute = Attribute.Name
                    AND Entity = Attribute.Entity
                    AND Identifier = Entity.Primaryidentifier DO
                Pkey%=1;
            END

            IF Pkey%<>0 THEN
                PRINT {"ARIAL",UNDERLINE,8} Attribute.Name;
            ELSE
                PRINT {"Arial", 8} Name;
            END
            FOR Data WHERE Data.Name=Attribute.Data DO
                PRINT {"ARIAL",8} TAB(25);
                PRINT {"ARIAL",8} "(",Data.Boxname,")";
            END
            PRINT NL;
       END
       IF found% = 0 THEN
          PRINT {"Arial",10,ITALIC} TAB(4),"Entita nemá žádné atributy.",NL;
       END
       PRINT NL;
   END

END

Generováno: 16.10.2003 7:41	Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf	Generováno systémem case/4/0
Vygeneroval: Administrator	Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\6524.htm	(C) microTOOL GmbH 2002