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

Vytvořeno:	03-05-1997 11:38:16
Poslední změna:	01-10-2003 13:04:18

Outputs detailed information about the given relation.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Relation(name$)
BEGIN
 //note.. pages with attributes, indices and constraints are being generated implicitly..

 foundsomething! = FALSE;
 FOR Relation WHERE Name = name$ DO
 foundsomething! = TRUE;
 CALL Header("Relace - " + Conv$(Boxname));
 CALL Title ("Relace", Conv$(Boxname));
 END

 //display a dummy title if the relation does not exist
 IF NOT foundsomething! THEN
 CALL Header("Relace - " + name$);
 CALL Title ("Relace", name$);
 END

 IF foundsomething! THEN
 FOR Relation WHERE Name = name$ DO

 //general object data
 CALL GenObjectData(Object, TRUE, TRUE);
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;

 //description of the object, if avialable
 CALL GetSystemProperty("WebPubDescriptionPage", sepPage$);
 IF hasText THEN
 IF sepPage$ = "TRUE" THEN
 PRINT {HTML} Anchor$("Popis", "", "desc" + Str$(Relation.Object) + ".htm");
 PRINT {HTML} " ",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 ELSE
 IF Semantic <> "" THEN
 dummy$ = Semantic;
 PRINT dummy$;
 PRINT {HTML} " ",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 END
 END
 END

 //two column table with properties of the relation - one line per attribute
 CALL H2_TopSpaceless("Vlastnosti");
 PRINT {HTML} "<TABLE NOWRAP VALIGN=BASELINE>",NL;
 //technical name
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Technicý název:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "", Id , "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 //Implementation
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Implementace:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Private THEN
 PRINT {HTML} "ano</TD>",NL;
 ELSE
 PRINT {HTML} "ne</TD>",NL;
 END
 PRINT {HTML} " </TR>",NL;
 //end of table
 PRINT {HTML} "</TABLE>",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;

 //two column table with userdefined properties of the element - one line per property
 CALL GenUserdefinedProperties(Object);

 //table with all attributes
 CALL H2_TopSpaceless("Atributy");
 foundrelattrib! = FALSE;
 FOREACH Relattribute WHERE Relation = Relation.Name DO
 foundrelattrib! = TRUE;
 BREAK;
 END
 IF foundrelattrib! THEN
 PRINT {HTML} "<TABLE CELLPADDING=2 VALIGN=BASELINE NOWRAP>", NL;
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP COLSPAN=4></TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Název</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Typ</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Cizí klíč Referencing</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Odpovídající atributy(entit)</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Datový element</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Popis</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Komentář</TH>";
 PRINT {HTML} " </TR>", NL;

 FOREACH Relattribute AS RA WHERE Relation = Relation.Name ORDER BY Position DO
 //generate the pages for the relattributes
 CALL Relattribute(Relation, Name) INTO Str$(Object) + ".htm";

 PRINT {HTML} " <TR>";

 //primary key, foreign key, not null, with default
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><IMG SRC = ""bullet.gif""></TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 attrType$ = "";
 IF PKey <> 0 THEN
 PRINT {HTML} "P";
 END
 PRINT {HTML} "</TD>",NL;

 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOREACH RelRShipAttribute WHERE Target = Relation AND TargetAttribute = Name DO
 PRINT {HTML} "C";
 BREAK;
 END
 PRINT {HTML} "</TD>",NL;

 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Withdefault THEN
 PRINT {HTML} "d";
 ELSIF NotNull THEN
 PRINT {HTML} "n";
 END
 PRINT {HTML} "</TD>",NL;

 //name of the attribute
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Anchor$("" + Name + "", "", Str$(Object) + ".htm");
 PRINT {HTML} "</TD>",NL;

 //data typ
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 RaType$ = "";
 FOR Data WHERE Name = RA.data DO
 // Function used from Modul <Data Element>
 CALL DataElementType(Data.Name, RaType$);
 END
 IF RaType$ <> "" THEN
 PRINT RaType$;
 ELSE
 PRINT {HTML} "<CENTER>-</CENTER>";
 END
 PRINT {HTML} "</TD>",NL;

 //foreign key
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>",NL;
 wasinside2! = FALSE;
 FOREACH RelRShipAttribute AS RSA WHERE Target = RA.Relation AND TargetAttribute = RA.Name DO
 i%=0;
 FOR Relation WHERE Name = RSA.Source DO
 wasinside2! = TRUE;
 i% = i% + 1;
 IF i% > 1 THEN
 PRINT {HTML} ", ";
 END
 PRINT {HTML} Anchor$(CONV$(BoxName), "", Str$(Object) + ".htm");
 END
 FOR Relattribute WHERE Relation = RSA.Source
 AND Name = RSA.SourceAttribute DO
 PRINT {HTML} ".", Anchor$(Name, "", Str$(Object) + ".htm");
 END
 FOR Relrship WHERE Name = RSA.Rship AND Source = RSA.Source AND Target = RSA.Target DO
 PRINT {HTML} " (", CONV$(Relrship.Boxname),") ",NL;
 END
 END
 IF NOT wasinside2! THEN
 PRINT {HTML} "<CENTER>-</CENTER>";
 END
 PRINT {HTML} "</TD>",NL;

 //corresponding attributes of entity types
 IF Private THEN
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Implementace atributu</TD>",NL;
 ELSE
 foundattrcon! = FALSE;
 first! = TRUE;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOREACH Attributeconnection WHERE Relation = RA.Relation
 AND Relattribute = RA.Name
 ORDER BY Entity, Attribute DO
 foundattrcon! = TRUE;
 //Attribute
 IF NOT first! THEN
 PRINT {HTML} " ";
 END
 FOR Attribute WHERE Attribute.Entity = Attributeconnection.Entity
 AND Attribute.Name = Attributeconnection.Attribute DO
 PRINT {HTML} Anchor$(Attribute.Name, "", Str$(Object) + ".htm");
 END
 //Entity Type
 FOR Entity WHERE Entity.Name = Attributeconnection.Entity DO
 PRINT " (";
 PRINT {HTML} Anchor$(Conv$(Entity.Boxname), "", Str$(Object) + ".htm");
 PRINT ")";
 END
 first! = FALSE;
 END
 IF NOT foundattrcon! THEN
 PRINT {HTML} "<CENTER>-</CENTER>";
 END
 PRINT {HTML} "</TD>",NL;
 END

 //data elem
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF RA.Data <> "" THEN
 FOR Data WHERE Name = RA.Data DO
 PRINT {HTML} Anchor$( Boxname, "", Str$(Object) + ".htm");
 END
 ELSE
 PRINT {HTML} "<CENTER>-</CENTER>";
 END
 PRINT {HTML} "</TD>",NL;

 // Description
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF RA.hasText THEN
 IF sepPage$ = "TRUE" THEN
 PRINT {HTML} Anchor$("Popis", "", "desc" + Str$(RA.Object) + ".htm");
 ELSE
 PRINT {HTML} Anchor$("Popis", "", Str$(RA.Object) + ".htm" + "#Descr");
 END
 ELSE
 PRINT {HTML} "-";
 END
 PRINT {HTML} "</TD>",NL;

 // Comment
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 FOR Object WHERE Object.Id = RA.Object DO
 IF Comment <> "" THEN
 PRINT {HTML} Anchor$( "Komentář", "", Str$(Id) + ".htm" + "#Comm");
 ELSE
 PRINT {HTML} "<CENTER>-</CENTER>";
 END
 END
 PRINT {HTML} "</TD></TR>",NL;

 END
 PRINT {HTML} "</TABLE>",NL, " ", NL;
 ELSE
 PRINT {HTML} "Relace nemá žádné atributy. ",NL;
 END

 // Relrships
 CALL RelrshipsHelper(Relation.Name);

 //indizes
 PRINT {HTML} " ",NL;
 CALL H2_TopSpaceless("Indexy");
 foundIndex! = FALSE;
 FOREACH Index WHERE Relation = Relation.Name
 AND Type = 0
 ORDER BY Name DO
 foundIndex! = TRUE;
 //generate the pages for the indices
 CALL RelIndex(Relation, Name) INTO Str$(Object) + ".htm";

 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=""top"">";
 PRINT {HTML} " ", Anchor$(Name, "", Str$(Object) + ".htm"), "";
 IF Unique OR Notnull OR Clustered THEN
 PRINT {HTML} "", " (";
 IF Unique THEN
 PRINT {HTML} "Jednoznačný";
 END
 IF Notnull THEN
 IF Unique THEN
 PRINT {HTML} ", ";
 END
 PRINT {HTML} "Notnull";
 END
 IF Clustered THEN
 IF Unique OR Notnull THEN
 PRINT {HTML} ", ";
 END
 PRINT {HTML} "Clustered";
 END
 PRINT {HTML} ")", "";
 END
 PRINT {HTML} " ";
 foundIndexAttr!= FALSE;
 PRINT {HTML} NL, "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 FOREACH Indexattribute WHERE Relation = Index.Relation AND Index = Index.Name ORDER BY Position DO
 foundIndexAttr! = TRUE;
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>   </TD>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOR Relattribute WHERE Relation = Index.Relation AND Name = Indexattribute.Attribute DO
 PRINT {HTML} Anchor$(Name, "", Str$(Object) + ".htm");
 END
 PRINT {HTML} "</TD>", NL;
 PRINT {HTML} " </TR>", NL;
 END
 IF NOT foundIndexAttr! THEN
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>   </TD>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>Index nemá atributy.</TD>", NL;
 PRINT {HTML} " </TR>", NL;
 END
 PRINT {HTML} "</TABLE> ", NL;
 END
 IF NOT foundIndex! THEN
 PRINT {HTML} "Relace nemá index.", " ", NL;
 END
 PRINT {HTML} " ",NL;

 //constraints
 CALL H2_TopSpaceless("Integritní omezení");
 foundConstraint! = FALSE;
 FOREACH Index WHERE Relation = Relation.Name
 AND Type <> 0
 ORDER BY Name DO
 foundConstraint! = TRUE;
 //generate the pages for the constraints
 CALL RelConstraint(Relation, Name) INTO Str$(Object) + ".htm";

 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=""top"">";
 PRINT {HTML} " ", Anchor$(Name, "", Str$(Object) + ".htm"), "";
 IF Type = 1 THEN
 PRINT {HTML} "", " (jednoznačné omezení)", "";
 ELSE //Type = 2 -> Check
 PRINT {HTML} "", " (podmíněné omezení)", "";
 END
 PRINT {HTML} " ";
 foundConstraintAttr!= FALSE;
 PRINT {HTML} NL, "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 FOREACH Indexattribute WHERE Relation = Index.Relation AND Index = Index.Name ORDER BY Position DO
 foundConstraintAttr! = TRUE;
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>   </TD>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOR Relattribute WHERE Relation = Index.Relation AND Name = Indexattribute.Attribute DO
 PRINT {HTML} Anchor$(Name, "", Str$(Object) + ".htm");
 END
 PRINT {HTML} "</TD>", NL;
 PRINT {HTML} " </TR>", NL;
 END
 IF NOT foundConstraintAttr! THEN
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>   </TD>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>Omezení nemá atibuty.</TD>", NL;
 PRINT {HTML} " </TR>", NL;
 END
 PRINT {HTML} "</TABLE> ", NL;
 END
 IF NOT foundConstraint! THEN
 PRINT {HTML} "Relace nemá integritní omezení.", " ", NL;
 END
 PRINT {HTML} " ",NL;

 //associated entity type or relationship
 IF Relation.Private THEN
 CALL H2_TopSpaceless("Odpovídající entita/Relační vztah");
 PRINT {HTML} " ";
 PRINT {HTML} "Je implementací relace. ", NL;
 ELSE
 //either an entity type or a n:m relationship can be associated to the relation
 foundentityrel! = FALSE;
 foundrhiprel! = FALSE;
 IF Relation.Entity <> "" THEN
 CALL H2_TopSpaceless("Název odpovídající entity");
 FOR Entity WHERE Name = Relation.Entity DO
 foundentityrel! = TRUE;
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
 PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm"), " ",NL;
 END
 ELSIF Relation.Rship <> 0 THEN
 CALL H2_TopSpaceless("Název odpovídajícího relačního vztahu");
 FOR Rship WHERE Id = Relation.Rship DO
 foundrshiprel! = TRUE;
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
 IF Rship.Name <> "" THEN
 PRINT {HTML} Name;
 ELSE
 firstErcon! = TRUE;
 // erconnections of cardinality sz, ge, as cannot be associated to a relation
 // and are not considered here
 FOREACH Erconnection AS ERCON WHERE Rship = Rship.Id ORDER BY Entity DO
 IF NOT firstErcon! THEN
 PRINT {HTML} ", ";
 END
 FOR Entity WHERE Entity.Name = ERCON.Entity DO
 PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm");
 END
 IF Name <> "" THEN
 PRINT {HTML} " ", Conv$(Name), " ";
 ELSE
 PRINT {HTML} " má vztah s ";
 END
 PRINT {HTML} "(", Cardinality, ") ";
 c% = 0;
 FOREACH Erconnection WHERE Rship = ERCON.Rship
 AND NOT Entity = ERCON.Entity DO
 FOR Entity WHERE Name = Erconnection.Entity DO
 IF c% > 0 THEN
 PRINT {HTML} " a ";
 END
 PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm");
 END
 c% = c% + 1;
 END
 firstErcon! = FALSE;
 END
 END
 END
 PRINT {HTML} " ",NL;
 END
 IF (NOT foundentityrel!) AND (NOT foundrshiprel!) THEN
 CALL H2_TopSpaceless("Název odpovídající entity/relačního vtahu");
 PRINT {HTML} "Relace nemá odpovídající entitu/relační vtah.", " ", NL;
 END
 END
 PRINT {HTML} " ", NL;

 //usage in relarea
 CALL H2_TopSpaceless("Relační modely využívající " + Conv$(Boxname));
 foundarea! = FALSE;
 FOREACH Relnode WHERE Relation=Relation.Name ORDER BY Area DO
 FOR Relarea WHERE Name=Relnode.Area DO
 foundarea! = TRUE;
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
 PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm"), " ",NL;
 END
 END
 IF NOT foundarea! THEN
 PRINT {HTML} "Relace není použita v žádných relačních modelech.", " ", NL;
 END
 PRINT {HTML} " ", NL;

 //referencing modul structures
 CALL H2_TopSpaceless("Reference do modulových struktur");
 foundmod! = FALSE;
 lastMod$ = "";
 FOREACH Relationref WHERE Relation = Name ORDER BY Module DO
 IF Relationref.Module <> lastMod$ THEN
 lastMod$ = Relationref.Module;
 FOR Module WHERE Name = Relationref.Module DO
 foundmod! = TRUE;
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
 PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm")," ",NL;
 END
 END
 END
 IF NOT foundmod! THEN
 PRINT {HTML} "Relace není referencována do žádné modulové struktury.", " ", NL;
 END
 PRINT {HTML} " ", NL;

 //referencing type structures
 CALL H2_TopSpaceless("Reference do typových struktur");
 foundtsd! = FALSE;
 lastTsd$ = "";
 FOREACH Relationpart WHERE Relation = Name ORDER BY Typestructure DO
 IF Relationpart.Typestructure <> lastTsd$ THEN
 lastTsd$ = Relationpart.Typestructure;
 FOR Typestructure WHERE Name = Relationpart.Typestructure DO
 foundtsd! = TRUE;
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
 PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm")," ",NL;
 END
 END
 END
 IF NOT foundtsd! THEN
 PRINT {HTML} "Relace není referencována do žádné typové struktury.", " ", NL;
 END
 PRINT {HTML} " ", NL;

 //data bases that refer to this relation
 CALL H2_TopSpaceless("Reference do databází");
 founddb! = FALSE;
 FOREACH Databaserelation WHERE Relation = Name ORDER BY Database DO
 FOR Database WHERE Name = Databaserelation.Database DO
 founddb! = TRUE;
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
 PRINT {HTML} Anchor$(Name, "", Str$(Object) + ".htm")," ",NL;
 END
 END
 IF NOT founddb! THEN
 PRINT {HTML} "Relace není referencována do žádné databáze.", " ", NL;
 END

 END
 ELSE
 CALL H2_Spaceless("V projektu není relace daného jména.");
 PRINT {HTML} " ",NL;
 END
 CALL Footer("");
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\20459.htm	(C) microTOOL GmbH 2002