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
Util_PrintAttributeconnection
(Review-Manager Utilities)

Vytvořeno: 02-07-2000 11:56:15
Poslední změna: 12-10-2002 11:27:01
Modul

Module: Review-Manager Utilities

Zdrojový kód:

PROCEDURE Util_PrintAttributeconnection(tid$, first$)
BEGIN

    FOR Attributeconnection AS ACO WHERE ACO.Tid = tid$ DO

        CALL Util_GetEntityBoxname(ACO.Entity, e$);
        CALL Util_GetAttributeData(ACO.Entity, ACO.Attribute, ed$);
        CALL Util_GetRelationBoxname(ACO.Relation, r$);
        CALL Util_GetRelattributeData(ACO.Relation, ACO.Relattribute, rd$);
    
        IF left$(ucase$(first$), 1) = "E" THEN
            PRINT e$, ".", ACO.Attribute, " <-> ", r$, ".", ACO.Relattribute;
            text$ = "Atribut " + ACO.Attribute + " entity " + e$ + " má přiřazen jiný datový element (" + ed$ + ") než atribut " + ACO.Relattribute + " relace " + r$ + " ( " + rd$ + ")";
        ELSE
            PRINT r$, ".", ACO.Relattribute, " <-> ", e$, ".", ACO.Attribute;
            text$ = "Atribut " + ACO.Relattribute + " relace " + r$ + " má přiřazen jiný datový element (" + rd$ + ") než atribut " + ACO.Attribute + " entity " + e$ + " ( " + ed$ + ")";
        END // IF

        PRINT NL,
              tid$;
        
        CALL Util_PrintExtraText(text$);
        
    END // FOR Attributeconnection AS ACO
    
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\389112633.htm (C) microTOOL GmbH 2002