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

Vytvořeno:	09-21-2001 14:30:22
Poslední změna:	11-29-2002 12:33:38

Modul

Module: Connection ER Model - Relational Model

Zdrojový kód:

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

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

    // Entity-Typen
    IF bCheck! THEN
        PRINT {BOLD,"ARIAL",11} "Entity bez odpovídajících relací", NL;
    ELSE
        PRINT {BOLD,"ARIAL",11} "Entity a jim odpovídající relace", NL;
    END

    bOutput! = FALSE;
    FOREACH Entity ORDER BY Name DO

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

            IF Entity.Private THEN
                IF NOT bCheck! THEN
                    PRINT {BOLD,"ARIAL",10} CONV$(Entity.Boxname);
                    PRINT {"ARIAL",10} TAB(32), "(problem domain)", NL;
                    bOutput! = TRUE;
                END
            ELSE
                bRlaFound! = FALSE;
                FOR Relation WHERE Entity = Entity.Name DO
                    bRlaFound! = TRUE;
                    bNodeFound! = FALSE;
                    IF relArea$ <> "" THEN
                        FOR Relnode WHERE Area = relArea$
                                      AND Relation = Relation.Name DO
                            bNodeFound! = TRUE;
                        END
                    END
                    IF NOT bNodeFound! AND relArea$ <> "" THEN
                        PRINT {BOLD,"ARIAL",10} CONV$(Entity.Boxname);
                        PRINT {"ARIAL", ITALIC, 10} TAB(32), Conv$(Relation.Boxname), NL;
                        PRINT {"ARIAL",10} TAB(32), "(not existing in diagram)", NL;
                        bOutput! = TRUE;
                    ELSIF NOT bCheck! THEN
                        PRINT {BOLD,"ARIAL",10} CONV$(Entity.Boxname);
                        PRINT {"ARIAL", ITALIC, 10} TAB(32), Conv$(Relation.Boxname), NL;
                        bOutput! = TRUE;
                    END
                END
                IF NOT bRlafound! THEN
                    PRINT {BOLD,"ARIAL",10} CONV$(Entity.Boxname);
                    PRINT {"ARIAL",10} TAB(32), "(nemá odpovídající relaci)", NL;
                    bOutput! = TRUE;
                END
            END

            BREAK;
        END
    END

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