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

[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
QueryRelCom
(OLE Functions for MS Word)

Vytvořeno:	01-07-1997 19:08:59
Poslední změna:	11-28-2002 10:32:00

Outputs commentary for the relational model, relations and relationships. Parameter: diagname$= diagram name

Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryRelCom(diagname$)
BEGIN

// Comment for Relational Model
FOR Relarea WHERE Name = diagname$ DO
     FOR Object WHERE Id = Relarea.Object DO
        IF Comment<>"" THEN
            PRINT {"Arial", 12, BOLD} "Komentář relačního modelu ";
            PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Relarea.Boxname);
            PRINT {"Arial", 12, BOLD} ":", NL, NL;
            PRINT {"Arial", 10} TAB(4), Comment, NL(2);
        END
     END

     // Comment for Relations
     FOREACH Relnode WHERE Area = Relarea.Name ORDER BY Relation DO
        FOR Relation WHERE Name = Relnode.Relation DO
            foundrelation!=FALSE;
            FOR Object WHERE Id = Relation.Object DO
               IF Comment<>"" THEN
                    foundrelation!=TRUE;
                    PRINT {"Arial", 10, BOLD} "Komentář relace ";
                    PRINT {"Arial", 10, BOLD, ITALIC} CONV$(Relation.Boxname);
                    PRINT {"Arial", 10, BOLD} ":", NL(2);
                    PRINT {"Arial", 10} TAB(4), Comment, NL(2);
               END
            END
        END
     END

     //Comment for Relationships
     FOREACH Rellink WHERE Area = Relarea.Name DO
        FOR Relrship WHERE Source = Rellink.Source
                       AND Target = Rellink.Target
                       AND Name = Rellink.Name DO
           FOR Object WHERE Id = Relrship.Object DO
               IF Comment<>"" THEN
                    PRINT {"Arial", 10, BOLD} "Komentář vztahu ";
                    FOR Relation WHERE Name = Relrship.Source DO
                        PRINT {"Arial", 10, BOLD, ITALIC} Conv$(Boxname), " ";
                    END
                    PRINT {"Arial", 10, BOLD, ITALIC} Conv$(Relrship.Boxname);
                    FOR Relation WHERE Name = Relrship.Target DO
                        PRINT {"Arial", 10, BOLD, ITALIC} " ", Conv$(Boxname), NL(2);
                    END
                    PRINT {"Arial", 10} TAB(4), Comment, NL(2);
               END
           END
        END
     END
END

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\13988.htm	(C) microTOOL GmbH 2002