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

Vytvořeno:	12-08-1995 18:31:11
Poslední změna:	11-28-2002 10:53:55

Outputs all data elements referenced by the specified data structure; the amount of information delivered can be customized by parameters.

Modul

Module: OLE Functions for MS Word

Zdrojový kód:

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

    foundany%= 0;
    FOREACH Data ORDER BY Name DO
        found% = 0;
        FOREACH Field WHERE datastructure = diagname$ AND
                             (page% = 0 OR Page = page%) DO
            IF Attribute <> "" THEN
                FOR Attribute WHERE Entity = Field.Entity AND
                                      Name = Field.Attribute DO
                    IF Data = Data.Name THEN
                        found%= 1;
                        foundany%= 1;
                    END
                END
            END
            IF found% = 1 THEN
                BREAK;
            ELSIF Data = Data.Name THEN
                found%= 1;
                foundany%= 1;
                BREAK;
            END
        END
        IF found% = 1 THEN
            PRINT {"Arial", 10, BOLD} Boxname, NL;
            IF INSTR(which$, "y") > 0 THEN
                CALL DataElementType FOR Data;
            END
            IF INSTR(which$, "v") > 0 THEN
                CALL DataElementCondition FOR Data;
                CALL DataElementMessage FOR Data;
                CALL DataElementDefaultValue FOR Data;
                CALL DataElementPicture FOR Data;
                CALL DataElementValues FOR Data;
                CALL DataElementRange FOR Data;
                CALL DataElementResource FOR Data;
            END
            IF INSTR(which$, "s") > 0 AND Semantic<>"" THEN
                PRINT {"ARIAL",10,BOLD} NL,TAB(4),"Semantika datového elementu",NL(2);
                PRINT Semantic;
            END
            PRINT {"Arial", 10} NL;
        END
    END

    IF foundany% = 0 THEN
        PRINT {"Arial",10,ITALIC} TAB(4),"Do datové struktury nejsou referencovány žádné datové elementy..",NL;
    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\4110.htm	(C) microTOOL GmbH 2002