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
Modules
(Web Publishing)

Vytvořeno: 03-05-1997 11:36:58
Poslední změna: 01-10-2003 09:34:51
Lists all modules in the current system (including module templates).
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Modules()
BEGIN

  //IMPORTANT NOTE: It is NOT possible to generate linked Modul pages at this place,
  //because their generation requires the knowledge of the XOffset and YOffset values
  //returned by OLE Automation WritePicture. So don't try to incorporate such
  //functionality later here in that function.

  CALL Header("Modulové struktury/Předlohy modulů");

  //Fallunterscheidung: Modulstrukturen/Modulvorlagen
  // Template = 0 -> normale Modulstruktur
  // Template <> 0 -> Modulvorlage
  
  CALL H2("Modulové struktury");
  
  foundsomething! = FALSE;
  FOREACH Module WHERE template = 0 DO
    foundsomething! = TRUE;
    BREAK;
  END

  IF foundsomething! THEN
    PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
    PRINT {HTML} " <TR>",NL;
    PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=LEFT COLSPAN=2><FONT SIZE=2 FACE=""Verdana, Arial"">Název</FONT></TH>",NL;
    CALL GenStandardColsHeader();
    PRINT {HTML} " </TR>",NL;

    FOREACH Module WHERE template = 0 ORDER BY Name DO
      PRINT {HTML} " <TR>",NL;
      PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
      PRINT {HTML} "<img src=""bullet.gif""> ";
      PRINT {HTML} "</FONT></TD>",NL;
      PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
      PRINT {HTML} Anchor$("<B>" + Conv$(Boxname) + "</B>", "", Str$(Object) + ".htm");
      PRINT {HTML} "</FONT></TD>",NL;

      CALL GenStandardCols(Object);
      
      PRINT {HTML} " </TR>",NL;
    END
    PRINT {HTML} "</TABLE>",NL;
  ELSE
    PRINT {HTML} "Projekt neobsahuje žádné modulové struktury.";
    PRINT {HTML} "<BR>",NL;
  END


  CALL H2("Předlohy modulů");
  
  foundsomething! = FALSE;
  FOREACH Module WHERE template <> 0 DO
    foundsomething! = TRUE;
    BREAK;
  END

  IF foundsomething! THEN
    PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
    PRINT {HTML} " <TR>",NL;
    PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=LEFT COLSPAN=2><FONT SIZE=2 FACE=""Verdana, Arial"">Název</FONT></TH>",NL;
    CALL GenStandardColsHeader();
    PRINT {HTML} " </TR>",NL;

    FOREACH Module WHERE template <> 0 ORDER BY Name DO
      PRINT {HTML} " <TR>",NL;
      PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
      PRINT {HTML} "<img src=""bullet.gif""> ";
      PRINT {HTML} "</FONT></TD>",NL;
      PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
      PRINT {HTML} Anchor$("<B>" + Conv$(Boxname) + "</B>", "", Str$(Object) + ".htm");
      PRINT {HTML} "</FONT></TD>",NL;

      CALL GenStandardCols(Object);
      
      PRINT {HTML} " </TR>",NL;
    END
    PRINT {HTML} "</TABLE>",NL;
  ELSE
    PRINT {HTML} "Projekt neobsahuje žádné předlohy modulů.";
    PRINT {HTML} "<BR>",NL;
  END
  
  CALL Footer("");
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\24294.htm (C) microTOOL GmbH 2002