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
(Module Structure)

Vytvořeno:	12-11-1995 11:46:14
Poslední změna:	12-05-2002 11:05:22

Checks for all elements in the specified module structure for missing connections to a parent element.

Modul

Module: Module Structure

Zdrojový kód:

PROCEDURE Check_Connections FOR MODULE
BEGIN
/*
  print elements not connected
*/

  PRINT {"ARIAL",12,BOLD} "Test propojení prvků v modulu ";
  PRINT {"ARIAL",12,BOLD,ITALIC} CONV$(Module.Boxname),NL(2);

  lg% = Language;

  first%=0;
  // structure elements
  FOREACH Component AS E WHERE E.Module=Module.Name
                         AND E.Parentpage=0
                         AND E.Boxname<>Module.Boxname DO
    IF first%=0 THEN
      PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
    END
    IF lg% = 2 AND Type ="np" THEN
        PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname), TAB(24), "(vnořený program)",NL;
    ELSE
        PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname), TAB(24), "(strukturní prvek)",NL;
    END
    first%=1;
  END
  // Templates
  FOREACH Templateelement AS E WHERE E.Module=Module.Name
                               AND E.Parentpage=0 DO
    IF first%=0 THEN
      PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
    END
    PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname),TAB(24), "(prvek z předlohy)", NL;
    first%=1;
  END
  // Functions
  FOREACH Funcdef AS E WHERE E.Module=Module.Name
                       AND (E.Parentpage=0 AND E.Parentfuncdefno=0) DO
    IF first%=0 THEN
      PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
    END
    IF lg% = 1 THEN
        type$ = "(funkce)";
    ELSIF lg% = 2 THEN
        IF Public = 0 THEN
            type$ = "(blok)";
        ELSE
            type$ = "(vstup)";
        END
    ELSIF lg% = 3 THEN
        type$ = "(procedura)";
    ELSIF lg% = 5 THEN
        type$ = "(metoda)";
    ELSIF lg% = 6 THEN
        type$ = "(podprogram/proces)";
    ELSIF lg% = 7 THEN
        type$ = "(úloha)";
    ELSE
        type$ = "(funkce/procedura)";
    END
    PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname),TAB(24), type$, NL;
    first%=1;
  END
  // Type Definition/Variable
  FOREACH Declare AS E WHERE E.Module=Module.Name
                       AND E.Parentpage=0 DO
    IF first%=0 THEN
      PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
    END
    PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname),TAB(24), "(proměnná/definice typu)", NL;
    first%=1;
  END
  // reference to type structure
  FOREACH Typeref AS E WHERE E.Module=Module.Name
                       AND E.Parentpage=0 DO
    IF first%=0 THEN
      PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
    END
    PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname),TAB(24), "(reference na typovou strukturu)", NL;
    first%=1;
  END
  // Relation
  FOREACH Relationref AS E WHERE E.Module=Module.Name
                           AND E.Parentpage=0 DO
    IF first%=0 THEN
      PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
    END
    PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname),TAB(24), "(reference na relaci)",NL;
    first%=1;
  END
  // Cursor
  FOREACH Relationref AS E WHERE E.Module=Module.Name
                           AND E.Parentpage=0 DO
    IF first%=0 THEN
      PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
    END
    PRINT {"ARIAL",10} TAB(4),CONV$(E.Boxname),TAB(24), "(Cursor)",NL;
    first%=1;
  END
  // Import (Usage)
  FOREACH Usage AS E WHERE E.Module=Module.Name
                     AND E.Parentpage=0 DO
    FOR Module AS M WHERE M.Name=E.Usedmodule DO
      IF first%=0 THEN
        PRINT {"ARIAL",10,BOLD} "Nepřipojené prvky:",NL;
      END
      IF lg% = 1 THEN
        PRINT {"ARIAL",10} TAB(4),CONV$(M.Boxname),TAB(24), "(reference na modul)",NL;
      ELSIF lg% = 2 OR
            lg% =3 THEN
        PRINT {"ARIAL",10} TAB(4),CONV$(M.Boxname),TAB(24), "(reference na program)",NL;
      ELSE
        PRINT {"ARIAL",10} TAB(4),CONV$(M.Boxname),TAB(24), "(reference na modulovou strukturu)",NL;
      END
      first%=1;
    END
  END

  IF first%=0 THEN
    PRINT {"ARIAL",10} TAB(4),"Bez chyb připojení prvků.",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\31048.htm	(C) microTOOL GmbH 2002