case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Relationships_incomplete(modul: Review-Manager Data model checks)

[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
Relationships_incomplete
(Review-Manager Data model checks)

Vytvořeno:	02-01-2000 19:19:31
Poslední změna:	12-10-2002 11:10:34

Outputs all relationships in the relational model, where the whole primary key of the source relation is not translated as foreign key in the target relation. Many-to-many-relationships are ignored.

Modul

Module: Review-Manager Data model checks

Zdrojový kód:

PROCEDURE Relationships_incomplete()
BEGIN

    PRINT "Relační vztah", NL;

    //select all relationships order by Name
    FOREACH Relrship WHERE Relrship.Cardinality <> "nm" AND
                           Relrship.Cardinality <> "mx" AND
                           Relrship.Cardinality <> "xm" AND
                           Relrship.Cardinality <> "xx"
                     ORDER BY Source, Name, Target DO

        attr$ = "";
        FOREACH Relattribute WHERE Relattribute.Relation = Relrship.Source AND
                                   Relattribute.Pkey <> 0
                             ORDER BY Position DO

            found! = FALSE;
            FOR Relrshipattribute AS RSA WHERE RSA.Rship = Relrship.Name AND
                                               RSA.Source = Relrship.Source AND
                                               RSA.Target = Relrship.Target AND
                                               RSA.Sourceattribute = Relattribute.Name DO
                found! = TRUE;
            END // FOREACH Relrshipattribute AS RSA

            IF NOT found! THEN
                IF attr$ = "" THEN
                    attr$ = "Nepřiřazen: " + Relattribute.Name;
                ELSE
                    attr$ = attr$ + ", " + Relattribute.Name;
                END // IF
            END // IF
        END // FOREACH Relattribute

        IF attr$ <> "" THEN
            CALL Util_PrintRelrship(Relrship.Tid, "", attr$, FALSE);
        END // IF

    END // FOREACH Relrship

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\525329100.htm	(C) microTOOL GmbH 2002