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

Vytvořeno: 04-18-1996 15:24:06
Poslední změna: 11-28-2002 10:50:43
Outputs all elements of the specified type structure; for type fields the amount of information delivered can be customized by parameters.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryTsdAttr(diagname$, page%, which$)
BEGIN
    FOR Typestructure WHERE Name = diagname$ DO
        IF page% = 0 THEN
            PRINT {"Arial", 12, BOLD} NL, "Položky typové structury ";
            PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname), NL;
        ELSE
            PRINT {"Arial", 12, BOLD} NL, "Položky typové structury ";
            PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname);
            PRINT {"Arial", 12, BOLD} ", stránka diagramu ", page%, NL;
        END
    END
    FOREACH Tfield WHERE Typestructure = diagname$ AND
                     (page% = 0 OR Page = page%) AND
                     NOT(X = 286 AND Y = 15) ORDER BY Boxname DO
        PRINT {"ARIAL",10,BOLD} NL,CONV$(Boxname),NL;
        IF INSTR(which$, "a")>0 AND Relattribute<>"" THEN
            PRINT {"ARIAL",8, BOLD} TAB(4),"Reference na atribut:";
            PRINT {"ARIAL",8} TAB(18),Relattribute;
            FOR Relation WHERE Name=Tfield.Relation DO
              PRINT {"Arial", 8} TAB(36),"(relace: ",CONV$(Boxname),")";
              IF INSTR(which$, "d")>0 OR INSTR(which$, "t")>0 THEN
                FOR Relattribute WHERE Relation=Tfield.Relation AND Name=Tfield.Relattribute DO
                  FOR Data WHERE Name = Relattribute.Data DO
                    IF INSTR(which$, "d")>0 THEN
                      PRINT NL;
                      PRINT {"ARIAL",8, BOLD} TAB(4),"Datový element:";
                      PRINT {"ARIAL",8} TAB(18),Boxname;
                    END
                    IF INSTR(which$, "t")>0 THEN
                      PRINT NL;
                      CALL DataElementType FOR Data;
                    END
                  END
                END
              END
            END
            PRINT NL;
        END
        IF INSTR(which$, "d")>0 AND Data<>"" THEN
            FOR Data WHERE Name = Tfield.Data DO
                PRINT {"ARIAL",8, BOLD} TAB(4),"Datový element:";
                PRINT {"ARIAL",8} TAB(18),Boxname, NL;
            END
        END
        IF INSTR(which$, "t")>0 AND Data<>"" THEN
            FOR Data WHERE Name = Tfield.Data DO
                CALL DataElementType FOR Data;
            END
        END
    END
    
    FOREACH Relationpart WHERE Typestructure = diagname$
                         AND (page% = 0 OR Page = page%) ORDER BY Boxname DO
        PRINT {"Arial", 10, BOLD} NL,CONV$(Boxname),NL;
        PRINT {"Arial", 8, BOLD} TAB(4),"Relace:";
        FOR Relation WHERE Name=Relationpart.Relation DO
            PRINT {"Arial", 8} TAB(18), CONV$(Boxname),NL;
        END
    END
    
    FOREACH Tpart WHERE Typestructure = diagname$
                    AND (page% = 0 OR Page = page%) ORDER BY Boxname DO
        PRINT {"Arial", 10, BOLD} NL,CONV$(Boxname),NL;
        PRINT {"Arial", 8, BOLD} TAB(4),"Part:";
        FOR Typestructure WHERE Name=Tpart.Tpartname 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\3115.htm (C) microTOOL GmbH 2002