case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce RelationalModel_ERModel_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
RelationalModel_ERModel_Connection_Attributes
(Connection ER Model - Relational Model)

Vytvořeno:	09-21-2001 15:15:16
Poslední změna:	11-29-2002 12:41:58

Modul

Module: Connection ER Model - Relational Model

Zdrojový kód:

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

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

    IF bCheck! THEN
        PRINT {BOLD,"ARIAL",11} "Relační atribut bez odpovídajícího entitního atributu", NL;
    ELSE
        PRINT {BOLD,"ARIAL",11} "Relační atribut a odpovídající entitní atribut", NL;
    END

    bOutPut!=FALSE;
    FOREACH Relation ORDER BY Name DO

        FOREACH Relnode WHERE (Area = relArea$ OR relArea$ = "")
                          AND Relation = Relation.Name DO

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

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