case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce QueryRelCardinality(modul: OLE Functions for MS Word)

[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
QueryRelCardinality
(OLE Functions for MS Word)

Vytvořeno:	01-20-1997 10:07:20
Poslední změna:	11-28-2002 10:30:48

Auxiliary function: Converts the 1st or 2nd byte of RelRship.Cardinality according to the terms used on the user interface.

Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryRelCardinality(RshipName$, Source$, Target$,
                              BYREF SourceCardinality$, BYREF TargetCardinality$)
BEGIN
/*
  converts RelRship.Cardinality (referred to as "Source$" + "Target$")
  according to label text used in diagram
*/
  FOR Relrship WHERE Name = RshipName$
               AND Source = Source$
               AND Target = Target$ DO
    IF UCASE$(SourceCardinality$) = "X" THEN
      SourceCardinality$ = "CN";
    ELSIF (UCASE$(SourceCardinality$) = "M") AND NOT
          (UCASE$(TargetCardinality$) = "N") THEN
      SourceCardinality$ = "N";
    ELSE
      SourceCardinality$ = UCASE$(SourceCardinality$);
    END

    IF UCASE$(TargetCardinality$) = "X" THEN
      TargetCardinality$ = "CN";
    ELSIF (UCASE$(TargetCardinality$) = "M") AND NOT
          (UCASE$(SourceCardinality$) = "N") THEN
      TargetCardinality$ = "N";
    ELSE
      TargetCardinality$ = UCASE$(TargetCardinality$);
    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\2781.htm	(C) microTOOL GmbH 2002