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

Vytvořeno: 04-17-1997 13:54:22
Poslední změna: 01-14-2003 13:15:57
Outputs detailed information about the given database.
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Database(name$)
BEGIN
  CALL Header("Databáze" + " - " + name$);
  CALL Title ("Databáze", name$);
  
  foundsomething! = FALSE;
  FOR Database WHERE Name = name$ DO
    foundsomething! = TRUE;
    BREAK;
  END

  IF foundsomething! THEN
    FOR Database WHERE Name = name$ DO
    
      //general object data
      CALL GenObjectData(Object, TRUE, TRUE);
      PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
      
      //description of the object, if avialable
      IF hasText THEN
        CALL GetSystemProperty("WebPubDescriptionPage", sepPage$);
        IF sepPage$ = "TRUE" THEN
          PRINT {HTML} Anchor$("<B>Popis</B>", "", "desc" + Str$(Database.Object) + ".htm");
          PRINT {HTML} "<BR>",NL;
          PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
        ELSE
          IF Text <> "" THEN
            dummy$ = Text;
            PRINT dummy$;
            PRINT {HTML} "<BR>",NL;
            PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
          END
        END
      END

      //two column table with userdefined properties of the element - one line per property
      CALL GenUserdefinedProperties(Object);

      //all referenced relations
      CALL H2_TopSpaceless("Relace v databázi " + name$);
      found! = FALSE;
      FOREACH Databaserelation WHERE Database = Database.Name DO
        found! = TRUE;
        BREAK;
      END
      IF found! THEN
        PRINT {HTML} "<TABLE>",NL;
        FOREACH Databaserelation WHERE Database = Database.Name ORDER BY Relation DO
          FOR Relation WHERE Name = Databaserelation.Relation DO
            link$ = Anchor$("<B>" + Conv$(Boxname) + "</B>", "", Str$(Object) + ".htm");
            PRINT {HTML} " <TR>",NL;
            PRINT {HTML} " <TD><IMG SRC = ""bullet.gif""></TD>",NL;
            PRINT {HTML} " <TD><FONT SIZE=2 FACE=""Verdana, Arial"">", link$,"</FONT></TD>",NL;
            PRINT {HTML} " </TR>",NL;
          END
        END
        PRINT {HTML} "</TABLE>",NL;
      ELSE
        PRINT {HTML} "Databáze neobsahuje žádné relace ", name$, ".<BR>",NL;
      END
      PRINT {HTML} "<BR>",NL;

      //all referenced type structures
      CALL H2_TopSpaceless("Typové struktury v databázi " + name$);
      found! = FALSE;
      FOREACH Databaseview WHERE Database = Database.Name DO
        found! = TRUE;
      END
      IF found! THEN
        PRINT {HTML} "<TABLE>",NL;
        FOREACH Databaseview WHERE Database = Database.Name ORDER BY Typestructure DO
          FOR Typestructure WHERE Name = Databaseview.Typestructure DO
            link$ = Anchor$("<B>" + Conv$(Boxname) + "</B>", "", Str$(Object) + ".htm");
            PRINT {HTML} " <TR>",NL;
            PRINT {HTML} " <TD><IMG SRC = ""bullet.gif""></TD>",NL;
            PRINT {HTML} " <TD><FONT SIZE=2 FACE=""Verdana, Arial"">", link$,"</FONT></TD>",NL;
            PRINT {HTML} " </TR>",NL;
          END
        END
        PRINT {HTML} "</TABLE>",NL;
      ELSE
        PRINT {HTML} "Databáze neobsahuje žádné typové struktury ", name$, ".<BR>",NL;
      END
      PRINT {HTML} "<BR>",NL;

      //tablespaces of database
      CALL H2_TopSpaceless("Tabulky databáze " + name$);
      found! = FALSE;
      FOREACH Tablespace WHERE Database = Database.Name DO
        found! = TRUE;
        BREAK;
      END
      IF found! THEN
        PRINT {HTML} "<TABLE>",NL;
        FOREACH Tablespace WHERE Database = Database.Name ORDER BY Name DO
        
          //generate pages for tablespaces
          CALL Tablespace(Database, Name) INTO Str$(Object) + ".htm";
          
          link$ = Anchor$("<B>" + Name + "</B>", "", Str$(Object) + ".htm");
          PRINT {HTML} " <TR>",NL;
          PRINT {HTML} " <TD><IMG SRC = ""bullet.gif""></TD>",NL;
          PRINT {HTML} " <TD><FONT SIZE=2 FACE=""Verdana, Arial"">", link$,"</FONT></TD>",NL;
          PRINT {HTML} " </TR>",NL;
        END
        PRINT {HTML} "</TABLE>",NL;
      ELSE
        PRINT {HTML} "Žádné tabulky nejsou definovány.<BR>",NL;
      END
      
      //source code
      PRINT {HTML} "<BR>",NL;
      CALL H2_TopSpaceless("Zdrojový kód databáze " + name$);
      PRINT {HTML} "<FONT SIZE=4 FACE=""Courier, Courier New"">",NL;
      PRINT {HTML} "<LISTING>",NL;
      SET STYLE {HTML};
      CALL "SQL" DEFAULT FOR Database;
      SET STYLE {"Arial", 10};
      PRINT {HTML} "</LISTING>",NL;
      PRINT {HTML} "</FONT>",NL;
    END
  ELSE
    CALL H2_Spaceless("Neexistuje databáze daného jména.");
    PRINT {HTML} "<BR>",NL;
  END
  
  CALL Footer("Data");
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\12474.htm (C) microTOOL GmbH 2002