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

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

Vytvořeno:	12-11-1995 13:00:29
Poslední změna:	12-10-2002 12:54:56

Outputs a list of all elements in the specified type structure with no connection to a parent element.

Modul

Module: Type Structure

Zdrojový kód:

PROCEDURE Check_Connections FOR TYPESTRUCTURE
BEGIN
/*
  check connections; print name of elements without connection
  to parent element
*/
  PRINT {"ARIAL",12,BOLD} "Test propojení prvků v typové struktuře ";
  PRINT {"ARIAL",12,BOLD,ITALIC} CONV$(Typestructure.Boxname),NL;

  found%=0;

  // Fields
  first%=0;
  FOREACH Tfield WHERE Tfield.Typestructure=Typestructure.Name AND
                       Tfield.Boxname<>Typestructure.Boxname DO
    IF Tfield.Pfieldno=0 AND Tfield.Pcondno=0 THEN
      IF first%=0 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Nepřipojené položky:",NL;
        first%=1;
        found%=1;
      END
      PRINT {"ARIAL",10} TAB(4),CONV$(Tfield.Boxname),NL;
    END
  END

  // Parts
  first%=0;
  FOREACH Tpart WHERE Tpart.Typestructure=Typestructure.Name DO
    IF Tpart.Pfieldno=0 AND Tpart.Pcondno=0 THEN
      IF first%=0 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Nepřipojené party:",NL;
        first%=1;
        found%=1;
      END
      PRINT {"ARIAL",10} TAB(4),CONV$(Tpart.Boxname),NL;
    END
  END

  // Relationparts
  first%=0;
  FOREACH Relationpart WHERE Relationpart.Typestructure=Typestructure.Name DO
    IF Relationpart.Pfieldno=0 AND Relationpart.Pcondno=0 THEN
      FOR Relation WHERE Relation.Name=Relationpart.Relation DO
        IF first%=0 THEN
          PRINT {BOLD,"ARIAL",10} NL,"Nepřipojené relace:",NL;
          first%=1;
          found%=1;
        END
        PRINT {"ARIAL",10} TAB(4),CONV$(Relation.Boxname),NL;
      END
    END
  END

  // conditions
  first%=0;
  FOREACH Tcond WHERE Tcond.Typestructure=Typestructure.Name DO
    IF Tcond.Pfieldno=0 AND Tcond.Pcondno=0 AND Condition<>"em" THEN
      IF first%=0 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Nepřipojené podmínky:",NL;
        first%=1;
        found%=1;
      END
      PRINT {"ARIAL",10} TAB(4),CONV$(Tcond.Boxname),NL;
    END
  END

  // structure elements
  FOREACH Tcond WHERE Tcond.Typestructure=typestructure.Name AND
                      Tcond.Pfieldno=0 AND
                      Tcond.Pcondno=0 AND
                      Condition="em" DO
    PRINT {BOLD,"ARIAL",10} NL,"Nepřipojené strukturní prvky.",NL;
    found%=1;
    BREAK;
  END

  PRINT NL;

  IF found%=0 THEN
    PRINT {"ARIAL",10} TAB(4),"Bez formálních chyb propojení.",NL;
  END

  PRINT NL(2);

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