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

Vytvořeno: 02-11-2002 15:23:07
Poslední změna: 01-10-2003 13:42:05
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Rships(GenerateLinkedPages!)
BEGIN

    CALL Header("Přehled relačních vztahů");
    
    CALL H2("Relační vztahy v ER modelu");
    
    foundsomething! = FALSE;
    FOREACH Rship 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"">Name </FONT></TH>",NL;
            CALL GenStandardColsHeader();
        FOREACH Rship ORDER BY Name DO
            IF GenerateLinkedPages! THEN
            CALL Rship(Name, Id) 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>" + Name + "</B>", "", Str$(Object) + ".htm");
            PRINT {HTML} "</FONT></TD>",NL;
            CALL GenStandardCols(Object);
        END
        PRINT {HTML} "</TABLE>";
    ELSE
        CALL H2_Spaceless("Entity nemají žádné 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\651784725.htm (C) microTOOL GmbH 2002