case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce ERModel_RelationalModel_Connection_Attributes(modul: Connection ER Model

[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
ERModel_RelationalModel_Connection_Attributes
(Connection ER Model - Relational Model)

Vytvořeno:	09-21-2001 14:31:06
Poslední změna:	11-29-2002 12:33:54

Modul

Module: Connection ER Model - Relational Model

Zdrojový kód:

PROCEDURE ERModel_RelationalModel_Connection_Attributes(ermArea$, relArea$, bCheck!)
BEGIN
/* ***************************************************************************

    ***************************************************************************
    (Created 09/19/2001 mT)
    ***************************************************************************/

    // Titel
    IF bCheck! THEN
        PRINT {BOLD,"ARIAL",11} "Atributy entit bez odpovídajících relačních atributů", NL;
    ELSE
        PRINT {BOLD,"ARIAL",11} "Atributy entit a jim odpovídající relační atributy", NL;
    END

    bOutPut!=FALSE;
    FOREACH Entity ORDER BY Name DO

        FOREACH Enode WHERE (Area = ermArea$ OR ermArea$ = "")
                        AND Entity = Entity.Name DO

            bEntOutput! = FALSE;
            IF NOT Entity.Private OR NOT bCheck! THEN
                FOREACH Attribute WHERE Entity = Entity.Name
                               ORDER BY Position DO
                    IF NOT Attribute.Private OR NOT bcheck! THEN
                        bAttrFound! = FALSE;
                        FOREACH Attributeconnection WHERE Entity = Attribute.Entity
                                                      AND Attribute = Attribute.Name DO
                            IF NOT bcheck! THEN
                                FOR Relation WHERE Name = Attributeconnection.Relation DO
                                    IF NOT bAttrFound! THEN
                                        PRINT {BOLD,"ARIAL",10} CONV$(Entity.Boxname) + "." + Attribute.Name;
                                         bOutput! = TRUE; bEntOutput! = TRUE;
                                    END
                                    PRINT {"ARIAL", ITALIC, 10} TAB(32), Conv$(Relation.Boxname) + "." + Attributeconnection.Relattribute, NL;
                                END
                            END
                            bAttrFound! = TRUE;
                        END
                        IF NOT bAttrFound! THEN
                            PRINT {BOLD,"ARIAL",10} CONV$(Entity.Boxname) + "." + Attribute.Name;
                            IF Attribute.Private THEN
                                PRINT {"ARIAL",10} TAB(32), "(problem domain)", NL;
                            ELSE
                                PRINT {"ARIAL",10} TAB(32), "(nemá odpovídající atribut)", NL;
                            END
                            bOutput! = TRUE; bEntOutput! = TRUE;
                        END
                    END
                END
            END
            IF bEntOutput! THEN
                PRINT NL;
            END

            BREAK;
        END
    END
    IF NOT bOutput! THEN
        IF bCheck! THEN
            PRINT {"ARIAL", 11} TAB(4), "Nenalezeny atributy bez vazby.", NL;
        ELSE
            PRINT {"ARIAL", 11} TAB(4), "Nenalezeny žádné atributy.", NL;
        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\206933760.htm	(C) microTOOL GmbH 2002