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

Vytvořeno:	09-21-2001 12:52:09
Poslední změna:	11-29-2002 12:36:15

Modul

Module: Connection ER Model - Relational Model

Zdrojový kód:

PROCEDURE GetRelrshipName(sRelation$, tRelation$, rshipName$, BYREF name$)
BEGIN
/* ***************************************************************************

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

    name$ = "";

    FOR Relrship WHERE Source = sRelation$
                   AND Target = tRelation$
                   AND Name = rshipName$ DO
        FOR Relation WHERE Name = Relrship.Source DO
            name$ = Conv$(Relation.Boxname) + " ";
        END
        name$ = name$ + Conv$(Relrship.Boxname) + " ";
        FOR Relation WHERE Name = Relrship.Target DO
            name$ = name$ + Conv$(Relation.Boxname);
        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\668520270.htm	(C) microTOOL GmbH 2002