case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce DataElement_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
DataElement_with_References
(Data Element)

Vytvořeno:	12-08-1995 15:27:32
Poslední změna:	12-02-2002 09:04:10

Generates a list of all attributes, data fields, type fields, or dialog elements referencing the specified data element.

Modul

Module: Data Element

Zdrojový kód:

PROCEDURE DataElement_with_References(Name$)
BEGIN
/*
   print list of elements referencing data element
*/

  first%=0;
  FOR Data WHERE Name=Name$ DO
    PRINT {BOLD,"ARIAL",10} Boxname,NL;

    FOREACH Data AS DT WHERE DT.Super=Data.Name ORDER BY Name DO
      first%=1;
      PRINT {"ARIAL",8} TAB(4),DT.Boxname,TAB(35),"(Specializace)",NL;
    END

    FOREACH Field WHERE Field.Data=Data.Name ORDER BY Boxname DO
      FOR Datastructure WHERE Name=Field.Datastructure DO
        first%=1;
        PRINT {"ARIAL",8} TAB(4),CONV$(Field.Boxname),TAB(35),"(Položka -",
                          TAB(43), "datová struktura ";
        PRINT {"ARIAL",8,ITALIC} CONV$(Datastructure.Boxname);
        PRINT {"ARIAL",8} ")",NL;
      END
    END

    FOREACH Tfield WHERE Tfield.Data=Data.Name ORDER BY Boxname DO
      FOR Typestructure WHERE Name=Tfield.Typestructure DO
        first%=1;
        PRINT {"ARIAL",8} TAB(4),CONV$(Tfield.Boxname),TAB(35),"(Položka -",
                          TAB(43),"typová struktura ";
        PRINT {"ARIAL",8,ITALIC} CONV$(Typestructure.Boxname);
        PRINT {"ARIAL",8} ")",NL;
      END
    END

    FOREACH Attribute WHERE Attribute.Data=Data.Name ORDER BY Name DO
      FOR Entity WHERE Name=Attribute.Entity DO
        first%=1;
        PRINT {"ARIAL",8} TAB(4),Attribute.Name,TAB(35),"(Atribut -",
                          TAB(43),"entita ";
        PRINT {"ARIAL",8,ITALIC} CONV$(Entity.Boxname);
        PRINT {"ARIAL",8} ")",NL;
      END
    END

    FOREACH Relattribute WHERE Relattribute.Data=Data.Name ORDER BY Name DO
      FOR Relation WHERE Name=Relattribute.Relation DO
        first%=1;
        PRINT {"ARIAL",8} TAB(4),Relattribute.Name,TAB(35),"(Atribut -",
                          TAB(43),"relace ";
        PRINT {"ARIAL",8,ITALIC} CONV$(Relation.Boxname);
        PRINT {"ARIAL",8} ")",NL;
      END
    END

    FOREACH Resource WHERE Resource.Data=Data.Name ORDER BY Name DO
      FOR Function WHERE Name=Resource.Function DO
        first%=1;
        PRINT {"ARIAL",8} TAB(4),Resource.Name,TAB(35),"(Dialogová funkce (A) ";
        PRINT {"ARIAL",8,ITALIC} TAB(51),CONV$(Function.Boxname);
        PRINT {"ARIAL",8} ")",NL;
      END
    END

    FOREACH Widget WHERE Widget.Data=Data.Name ORDER BY Name DO
      first%=1;
      FOR Funcdef WHERE Funcdef.Module=Widget.Module AND Funcdef.Funcdefno=Widget.Funcdefno DO
        PRINT {"ARIAL",8} TAB(4),Widget.Name,TAB(35),"(Dialogová funkce (D) ";
        PRINT {"ARIAL",8,ITALIC} TAB(51),CONV$(Funcdef.Boxname);
        PRINT {"ARIAL",8} ")",NL;
      END
    END

    IF first%=0 THEN
      PRINT {"ARIAL",ITALIC,10} TAB(4),"Datový element nemá referenci na žádný prvek.",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\7249.htm	(C) microTOOL GmbH 2002