case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce QueryErmData(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
QueryErmData
(OLE Functions for MS Word)

Vytvořeno:	04-25-1996 10:59:01
Poslední změna:	11-28-2002 10:09:19

Outputs all data elements referenced by entity type attributes in the specified ER model; the amount of information delivered can be customized by parameters.

Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryErmData(diagname$, which$)
BEGIN
    PRINT {"Arial", 12,BOLD} "Datové elementy v ER modelu ";
    FOR Erarea WHERE Name = diagname$ DO
        PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname);
    END
    PRINT {"Arial", 12} NL;
    FOREACH Data ORDER BY Name DO
        found%= 0;
        FOREACH Enode WHERE Area = diagname$ DO
            FOREACH Attribute WHERE Entity = Enode.Entity DO
                IF Data = Data.Name THEN
                    found%= 1;
                    BREAK;
                END
            END
            IF found% = 1 THEN
                BREAK;
            END
        END
        IF found% = 1 THEN
            PRINT {"Arial", 10, BOLD} NL, Boxname, NL;
            IF INSTR(which$, "y") > 0 THEN
                CALL DataElementType FOR Data;
            END
            IF INSTR(which$, "v") > 0 THEN
                CALL DataElementValues FOR Data;
                CALL DataElementRange FOR Data;
            END
            IF INSTR(which$, "s") > 0 THEN
                CALL DataElementSemantic FOR Data;
            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\15312.htm	(C) microTOOL GmbH 2002