Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[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
List_Attributes_with_References
(Entity Type)

Vytvořeno: 12-11-1995 10:53:28
Poslední změna: 12-03-2002 14:05:13
Outputs a list naming all the data fields, flows, stores, and dialog elements referencing the attributes of the specified entity type.
Modul

Module: Entity Type

Zdrojový kód:

PROCEDURE List_Attributes_with_References FOR ENTITY
BEGIN
/*
  list references to attributes of entity type
*/

  first%=0;
  PRINT {BOLD,"ARIAL",12} "Seznam atributů entity ";
  PRINT {BOLD,"ARIAL",12,ITALIC} CONV$(Boxname);
  PRINT {BOLD,"ARIAL",12} " s referencemi jejich využití",NL(2);
  PRINT {"ARIAL",BOLD,10} CONV$(Entity.Boxname),NL;
  
  found%=0;
  FOREACH Attribute WHERE Attribute.Entity=Entity.Name ORDER BY Name DO

    found%=1;
    PRINT {"ARIAL",10} TAB(4),Attribute.Name,NL;
    
    FOREACH Field WHERE Field.Attribute=Attribute.Name
                    AND Field.Entity=Entity.Name DO
      FOR Datastructure WHERE Datastructure.Name=Field.Datastructure DO
        first%=1;
        PRINT {"ARIAL",8} TAB(8),"datová struktura:";
        PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Datastructure.Boxname);
        PRINT {"ARIAL",8} TAB(36),"(položka typu atribut)",NL;
      END
    END

    FOREACH Funentflow WHERE Funentflow.Infoname=Attribute.Name
                         AND Funentflow.Entity=Entity.Name ORDER BY Ifd DO
      FOR Informationflow WHERE Informationflow.Name=Funentflow.Ifd DO
        first%=1;
        PRINT {"ARIAL",8} TAB(8),"diagram informačních toků:";
        PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Informationflow.Boxname);
        PRINT {"ARIAL",8} TAB(36),"(tok)",NL;
      END
    END

    FOREACH Funportflow WHERE Funportflow.Attribute=Attribute.Name
                          AND Funportflow.Entity=Entity.Name ORDER BY Ifd DO
      FOR Informationflow WHERE Informationflow.Name=Funportflow.Ifd DO
        first%=1;
        PRINT {"ARIAL",8} TAB(8),"diagram informačních toků:";
        PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Informationflow.Boxname);
        PRINT {"ARIAL",8} TAB(36),"(tok)",NL;
      END
    END

    // Resource-Attribute
    FOREACH Resourceattribute WHERE Entity=Entity.Name
                                AND Attribute=Attribute.Name ORDER BY Resource DO
      FOR Resource WHERE Name=Resourceattribute.Resource
                     AND Function=Resourceattribute.Function DO
        FOREACH Ifunc WHERE Function=Resource.Function DO
          first%=1;
          PRINT {"ARIAL",8} TAB(8),"diagram informačních toků:";
          FOR Informationflow WHERE Name=IFunc.Ifd DO
            PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Boxname);
          END
          PRINT {"ARIAL",8} TAB(36),"(dialogová funkce: ";
          FOR Function WHERE Name=Resource.Function DO
            PRINT {"ARIAL",8,ITALIC} CONV$(Boxname);
          END
          PRINT {"ARIAL",8} ")",NL;
          PRINT {"ARIAL",8} TAB(18),"položka dialogu: ";
          PRINT {"ARIAL",8,ITALIC} TAB(27),Resource.Name,NL;
        END
      END
    END
    //Attribute-Connection
    FOREACH Attributeconnection WHERE Entity=Entity.Name AND Attribute = Attribute.Name DO
      PRINT {"ARIAL"} TAB(8),"relace: ", Attributeconnection.Relation;
      PRINT {"ARIAL",8} TAB(36), "(atribut: ", Attributeconnection.Attribute , ")",NL;
    END

  END
  IF first%=0 THEN
    IF found%=0 THEN
      PRINT {"ARIAL",ITALIC,10} TAB(4),"entita nemá atributy.",NL;
    ELSE
      PRINT {"ARIAL",ITALIC,10} TAB(4),"atributy nemají žádné reference.",NL;
    END
  END
  PRINT NL;

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\7551.htm (C) microTOOL GmbH 2002