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

Vytvořeno: 03-20-1997 11:18:20
Poslední změna: 11-28-2002 10:48:50
Outputs technical information for the relational model. Parameters: diagname$=diagram name, which$="enouz" for versions, comment on versions, text on versions, responsible user, state
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryRelTech(diagname$, which$)
BEGIN
    PRINT {"Arial", 12, BOLD} "Technické informace relačního modelu ";
    FOR Relarea WHERE Name = diagname$ DO
    
    PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname);
    PRINT {"Arial", 12, BOLD} ":", NL(2);
    found%=0;
    first%=0;
    IF INSTR(which$, "e") > 0 THEN
      FOREACH Version WHERE Object = Relarea.Object
                      ORDER BY Versionno DO
        IF first%=0 THEN
            PRINT {"Arial", 12, BOLD} "Verze", NL;
        END
        found%=1;
        first%=1;
        day$=MID$(Datetimecreated,4,2);
        month$=LEFT$(Datetimecreated,2);
        year$=MID$(Datetimecreated,7,4);
        date$=month$+"/"+day$+"/"+year$;
        time$=MID$(Datetimecreated,11,5);
        PRINT {"Arial", 8} TAB(4), Name, TAB(30), User, TAB(50), date$, TAB(58),time$,NL(2);
        IF INSTR(which$, "m") > 0 THEN
           IF Comment<>"" THEN
                PRINT {"Arial", 8, BOLD} "Komentář:", NL ;
                PRINT {"Arial", 8} Comment, NL(2);
           END
        END
        IF INSTR(which$, "n") > 0 THEN
           IF Text<>"" THEN
                PRINT {"Arial", 8, BOLD} "Popis:", NL ;
                PRINT {"Arial", 8} Text, NL(2);
            END
        END
      END
      IF found%=0 THEN
        PRINT {"Arial", 10, ITALIC} "Neexistují verze.", NL;
      END
      PRINT {"Arial", 10} NL;
    END
    IF INSTR(which$, "u") > 0 THEN
      FOR Object WHERE Id = Relarea.Object DO
        PRINT {"Arial", 10, BOLD} "Zodpovědná osoba: " ;
        IF User <>"" THEN
            FOR User WHERE Login = Object.User DO
                PRINT {"Arial", 10} Fullname, NL(2);
            END
        ELSE
            PRINT {"Arial", 10} "není určeno", NL(2);
        END
      END
    END
    IF INSTR(which$, "z") > 0 THEN
      FOR Object WHERE Id = Relarea.Object DO
        PRINT {"Arial", 10, BOLD} "Stav: ";
        IF State <>"" THEN
            PRINT {"Arial", 10} State, NL(2);
        ELSE
            PRINT {"Arial", 10} "není určeno", NL(2);
        END
      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\21821.htm (C) microTOOL GmbH 2002