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

Vytvořeno: 01-14-1997 12:54:43
Poslední změna: 11-28-2002 09:57:33
Outputs all elements of the specified data structure; for fields the amount of information delivered can be customized by parameters.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryDsdAttr(diagname$, page%, which$)
BEGIN
    FOR Datastructure WHERE Name = diagname$ DO
        IF page% = 0 THEN
            PRINT {"Arial", 12, BOLD} NL, "Položky datové struktury ";
            PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname), NL;
        ELSE
            PRINT {"Arial", 12, BOLD} NL, "Položky datové struktury ";
            PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname);
            PRINT {"Arial", 12, BOLD} ", stránka diagramu ", page%, NL;
        END
        PRINT NL;
    END

    FOREACH Field WHERE Datastructure = diagname$
                    AND (Y > 15)
                    AND (page% = 0 OR Page = page%)
                    ORDER BY Boxname DO
        PRINT {"Arial", 10, BOLD} NL,CONV$(Boxname),NL;
        IF INSTR(which$, "a") > 0 THEN
            IF Attribute <> "" THEN
                PRINT {"Arial", 8, BOLD} TAB(4),"Reference na atribut:";
                PRINT {"Arial", 8} TAB(18),Attribute," ";
                FOR Attribute WHERE Name = Field.Attribute AND
                                    Entity = Field.Entity DO
                  FOR Entity WHERE Name=Attribute.Entity DO
                    PRINT {"Arial", 8} TAB(36),"(Entita: ",CONV$(Boxname),")",NL;
                  END
                END
            END
        END
        IF INSTR(which$, "d") > 0 THEN
            IF Data <> "" THEN
                FOR Data WHERE Name = Field.Data DO
                    PRINT {"Arial", 8, BOLD} TAB(4),"Datový element:";
                    PRINT {"Arial", 8} TAB(18),Boxname,NL;
                END
            END
        END
        IF INSTR(which$, "t") > 0 THEN
            IF Data <> "" THEN
                FOR Data WHERE Name = Field.Data DO
                    CALL DataElementType FOR Data;
                END
            END
        END
    END
    
    FOREACH Entitypart WHERE Datastructure = diagname$
                         AND (page% = 0 OR Page = page%) DO
        PRINT {"Arial", 10, BOLD} NL,CONV$(Boxname),NL;
        PRINT {"Arial", 8, BOLD} TAB(4),"Entita:";
        FOR Entity WHERE Name=Entitypart.Entity DO
            PRINT {"Arial", 8} TAB(18), CONV$(Boxname),NL;
        END
    END
    
    FOREACH Dpart WHERE Datastructure = diagname$
                    AND (page% = 0 OR Page = page%) DO
        PRINT {"Arial", 10, BOLD} NL,CONV$(Boxname),NL;
        PRINT {"Arial", 8, BOLD} TAB(4),"Part:";
        FOR Datastructure WHERE Name=Dpart.Dpartname DO
            PRINT {"Arial", 8} TAB(18), CONV$(Boxname),NL;
        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\29728.htm (C) microTOOL GmbH 2002