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

[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
Title4
(Web Publishing)

Vytvořeno:	02-11-2002 14:42:47
Poslední změna:	01-14-2003 10:49:36

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Title4(Topic$, Name$, Id%)
BEGIN

 PRINT {HTML} "";
 PRINT {BOLD} topic$;
 PRINT {HTML} " ";
 PRINT {HTML} "";
 IF name$ = "" THEN
 PRINT NL;
 ELSE
 PRINT {BOLD} name$;
 END
 PRINT {HTML} "", NL;

 FOREACH Rship WHERE Name = Name$ AND Id = Id% DO
 FOREACH Rnode WHERE Rship = Rship.Id DO
 FOR Erarea WHERE Name = Rnode.Area DO
 FOREACH Enode WHERE Enode.Area = Erarea.Name DO
 FOR Entity WHERE Entity.Name = Enode.Entity DO
 FOREACH Erconnection WHERE Erconnection.Entity = Entity.Name
 AND Erconnection.Rship = Rship.Id
 AND NOT Erconnection.Cardinality = "ge" DO
 FOR Rship WHERE Rship.Id=Erconnection.Rship DO
 FOR Rnode WHERE Rnode.Area = Erarea.Name
 AND Rnode.Rship = Rship.Id DO
 IF first% <> 0 THEN
 PRINT NL;
 END
 first% = 1;
 PRINT {HTML} "<Table ALIGN=CENTER>";
 PRINT {HTML} " ";
 PRINT {HTML} "(";
 PRINT {HTML} "" + Conv$(Entity.Boxname) + "";
 IF Erconnection.Name <> "" THEN

 PRINT {HTML} " " + Conv$(Erconnection.Name) + " ";
 ELSIF Erconnection.Cardinality="as" THEN
 PRINT {HTML} " popisuje relační vztah mezi ";
 ELSIF Erconnection.Cardinality="sz" THEN
 PRINT {BOLD} " specializuje ";
 ELSE
 PRINT {BOLD} " má relační vztah k ";
 END
 c% = 0;
 FOREACH Erconnection AS EC WHERE EC.Rship=Rship.Id
 AND NOT EC.Entity=Erconnection.Entity
 AND NOT EC.cardinality="as"
 AND NOT EC.cardinality="sz" DO
 FOR Entity WHERE Entity.Name=EC.Entity DO
 IF c%>0 THEN
 PRINT {HTML} " a ";
 END
 PRINT {HTML} "" + Conv$(Entity.Boxname) + "";
 END
 c% = c% + 1;
 END
 PRINT {HTML} ")";
 PRINT {HTML} "</TD>";
 PRINT {HTML} "</TABLE>";
 END
 END
 END
 END
 END
 END
 END
 END
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
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\317706793.htm	(C) microTOOL GmbH 2002