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

Vytvořeno: 12-08-1995 17:43:36
Poslední změna: 11-27-2002 13:34:46
Outputs all elements belonging to the subtree underneath the specified data structure condition.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenDSDCond(name$, condno%, page%, onlyPage%, BYREF DiagName$)
BEGIN
    x%= 2;
    WHILE x% < 571 DO
        FOREACH Entitypart WHERE Datastructure = name$ AND
                                 Pcondno = condno% AND
                                 Ppage = Page% AND
                                 X = x% AND
                                 (onlyPage% = 0 OR Page = onlyPage%) AND
                                 Text <> "" DO
            CALL GenDSDTitle (DiagName$);
            FOR Entity WHERE Name = Entitypart.Entity DO
                CALL GenDiagHeader("Entity Type", CONV$(Boxname));
            END
            PRINT Text;
        END
        FOREACH Dpart WHERE Datastructure = name$ AND
                            Pcondno = condno% AND
                            Ppage = page% AND
                            X = x% AND
                            (onlyPage% = 0 OR Page = onlyPage%) AND
                            Text <> "" DO
            CALL GenDSDTitle (DiagName$);
            CALL GenDiagHeader("Part", CONV$(Boxname));
            PRINT Text;
        END
        FOREACH Field WHERE Datastructure = name$ AND
                            Pcondno = condno% AND
                            Ppage = page% AND
                            (onlyPage% = 0 OR Page = onlyPage%) AND
                            X = x% DO
            IF Text <> "" THEN
                CALL GenDSDTitle (DiagName$);
                IF Attribute = "" THEN
                    CALL GenDiagHeader("Data Field", CONV$(Boxname));
                ELSE
                    CALL GenDiagHeader("Attribute Field", CONV$(Boxname));
                END
                PRINT Text;
            END
            CALL GenDSDField(name$, Fieldno, Page, onlyPage%, DiagName$);
        END
        FOREACH Dcond WHERE Datastructure = name$ AND
                            Pcondno = condno% AND
                            Ppage = page% AND
                            (onlyPage% = 0 OR Page = onlyPage%) AND
                            X = x% DO
            IF Condition <> "em" AND Text <> "" THEN
                CALL GenDSDTitle (DiagName$);
                CALL GenDiagHeader("Condition", CONV$(Boxname));
                PRINT Text;
            END
            CALL GenDSDCond(name$, Dcondno, Page, onlyPage%, DiagName$);
        END
        x%= x% + 71;
    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\16616.htm (C) microTOOL GmbH 2002