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


Vytvořeno: 02-11-2002 14:13:24
Poslední změna: 01-10-2003 13:21:58

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Relrships(GenerateLinkedPages!)
BEGIN

    CALL Header("Přehled relačních vztahů");
    
    CALL H2("Relační vztahy v relačním modelu");

    foundsomething! = FALSE;
    FOREACH Relrship 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=CENTER COLSPAN=2><FONT SIZE=2 FACE=""Verdana, Arial"">Název </FONT></TH>",NL;
            CALL GenStandardColsHeader();
        FOREACH Relrship ORDER BY Name DO
            IF GenerateLinkedPages! THEN
                CALL Relrship(Name, Boxname, Object) INTO Str$(Object) + ".htm";
            END
            
            PRINT {HTML} " <TR>",NL;
            PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
            PRINT {HTML} "<img src=""bullet.gif""></FONT>";
            PRINT {HTML} "</TD>",NL;
            PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
            PRINT {HTML} Anchor$("<B>" + Boxname + "</B>", "", Str$(Object) + ".htm");
            PRINT {HTML} "</FONT></TD>",NL;
            CALL GenStandardCols(Object);
        END
        PRINT {HTML} "</TABLE>";
    ELSE
        CALL H2_Spaceless("Relace nemají žádné relační vztahy.");
        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\893574864.htm (C) microTOOL GmbH 2002