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
Check_Connections
(Data Structure/Event/Material)

Vytvořeno: 12-11-1995 13:00:16
Poslední změna: 12-02-2002 10:09:42
Outputs a list of all elements in the specified data structure with no connection to a parent element.
Modul

Module: Data Structure/Event/Material

Zdrojový kód:

PROCEDURE Check_Connections FOR DATASTRUCTURE
BEGIN
/*
  check connections in data structures; print name of elements
  without connection to parent element
*/
  PRINT {"ARIAL",12,BOLD} "Test propojení v datové struktuře ";
  PRINT {"ARIAL",12,BOLD,ITALIC} CONV$(Datastructure.Boxname),NL;

  found%=0;
  
  // Fields
  first%=0;
  FOREACH Field WHERE Field.Datastructure=Datastructure.Name AND
                      Field.Boxname<>Datastructure.Boxname DO
    IF Field.Pfieldno=0 AND Field.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$(Field.Boxname),NL;
    END
  END

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

  // Parts
  first%=0;
  FOREACH Dpart WHERE Dpart.Datastructure=Datastructure.Name DO
    IF Dpart.Pfieldno=0 AND Dpart.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$(Dpart.Boxname),NL;
    END
  END

  // conditions
  first%=0;
  FOREACH Dcond WHERE Dcond.Datastructure=Datastructure.Name DO
    IF Dcond.Pfieldno=0 AND Dcond.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$(Dcond.Boxname),NL;
    END
  END

  // structure elements
  FOREACH Dcond WHERE Dcond.Datastructure=Datastructure.Name AND
                      Dcond.Pfieldno=0 AND
                      Dcond.Pcondno=0 AND
                      Condition="em" DO
    PRINT {BOLD,"ARIAL",10} NL,"Strukturní prvky bez propojení.",NL;
    found%=1;
    BREAK;
  END

  PRINT NL;

  IF found%=0 THEN
    PRINT {"ARIAL",10} TAB(4),"Bez chyb propojení.",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\11740.htm (C) microTOOL GmbH 2002