case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Rshipshelper(modul: Web Publishing)

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

Vytvořeno:	02-11-2002 15:34:57
Poslední změna:	01-10-2003 13:43:13

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Rshipshelper(Ename$)
BEGIN

    CALL H2_TopSpaceless ("Relační vztahy");

    FOREACH Entity WHERE Ename$ = Entity.Name DO
            FOREACH Erconnection WHERE Erconnection.Entity = Entity.Name
                               AND NOT Erconnection.Cardinality = "ge" DO
                FOR Rship WHERE Rship.Id=Erconnection.Rship DO
                    IF first% <> 0 THEN
                        PRINT NL;
                    END
                    first% = 1;
                    PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
                    PRINT {"ARIAL",10} Conv$(Entity.Boxname);
                    IF Erconnection.Name <> "" THEN
                        PRINT {HTML} " ", Anchor$("<b>" + Conv$(Erconnection.Name) + "</b>", "", Str$(Object) + ".htm"), " ";
                    ELSIF Erconnection.Cardinality="as" THEN
                        PRINT {"ARIAL",10,BOLD} " popisuje vztah mezi ";
                    ELSIF Erconnection.Cardinality="sz" THEN
                        PRINT {"ARIAL",10,BOLD} " specializuje ";
                    ELSE
                        PRINT {"ARIAL",10,BOLD} " má relační vztah ";
                    END
                    c% = 0;
                    FOREACH Erconnection AS EC WHERE EC.Rship=Rship.Id
                        AND NOT EC.Entity=Erconnection.Entity
                        AND NOT EC.cardinality="as"
                        AND NOT EC.cardinality="sz" DO
                        FOR Entity WHERE Entity.Name=EC.Entity DO
                            IF c%>0 THEN
                                PRINT {"ARIAL",10} " a ";
                            END
                            PRINT {"ARIAL",10} Conv$(Entity.Boxname);
                        END
                    c% = c% + 1;
                    END
                PRINT NL;
                END
        END
    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\703040168.htm	(C) microTOOL GmbH 2002