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_DataElements
(Type Structure)

Vytvořeno: 12-11-1995 13:01:56
Poslední změna: 12-10-2002 13:51:04
Outputs a list of all data elements referenced by the elements in the specified type structure.
Modul

Module: Type Structure

Zdrojový kód:

PROCEDURE List_DataElements FOR TYPESTRUCTURE
BEGIN
/*
   list data elements
*/

  PRINT {BOLD,"ARIAL",12} "Seznam datových elementů v typové struktuře ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Typestructure.Boxname),NL(2);
  first%=0;
  FOREACH Tfield WHERE Tfield.Typestructure=Typestructure.Name ORDER BY Data DO
    IF Relattribute<>"" THEN
      FOR Relattribute WHERE Name=Tfield.Relattribute
                         AND Relation=Tfield.Relation DO
        FOR Data WHERE Name=Relattribute.Data DO
          first%=1;
          PRINT {BOLD,"ARIAL",10} Data.Boxname,NL;
          CALL Information_about_DataElement_2 FOR Data;
        END
      END
    ELSIF Tfield.Data <> "" THEN
      FOR Data WHERE Data.Name=Tfield.Data DO
        first%=1;
        PRINT {BOLD,"ARIAL",10} Data.Boxname,NL;
        CALL Information_about_DataElement_2 FOR Data;
      END
    END
  END

  IF first%=0 THEN
    PRINT {BOLD,"ARIAL",10,ITALIC} TAB(4),"Do této struktury nejsou referencovány žádné datové elementy.",NL;
  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\409.htm (C) microTOOL GmbH 2002