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

Vytvořeno:	03-27-2000 12:35:35
Poslední změna:	01-10-2003 11:09:02

Outputs detailed information about the given index defined in the actual system.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE RelIndex(Relation$, Name$)
BEGIN

 foundsomething! = FALSE;
 FOR Index WHERE Relation = Relation$
 AND Name = Name$ DO
 foundsomething! = TRUE;
 CALL Header("Index - " + Name);
 FOR Relation WHERE Relation.Name = Index.Relation DO
 CALL Title2("Index", Index.Name, Conv$(Relation.Boxname));
 END
 END

 //display a dummy title if the index does not exist
 IF NOT foundsomething! THEN
 CALL Header("Index - " + name$);
 CALL Title ("Index", name$);
 PRINT {HTML} " ",NL;
 END

 IF foundsomething! THEN
 FOR Index WHERE Relation = Relation$
 AND Name = Name$ DO

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

 //two column table with properties of the index - one line per attribute
 CALL H2_TopSpaceless("Vlastnosti");
 PRINT {HTML} "<TABLE NOWRAP VALIGN=BASELINE>",NL;
 //relation
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Relace:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOR Relation WHERE Name = Index.Relation DO
 PRINT {HTML} Anchor$("" + Conv$(Boxname) + "", "", Str$(Object) + ".htm");
 END
 PRINT {HTML} "</TD></TR>",NL;
 //Unique
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Jednoznačný:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Unique THEN
 PRINT {HTML} "ano</TD>",NL;
 ELSE
 PRINT {HTML} "ne</TD>",NL;
 END
 PRINT {HTML} " </TR>",NL;
 //NotNull
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Povolena hodnota null:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Notnull THEN
 PRINT {HTML} "ne</TD>",NL;
 ELSE
 PRINT {HTML} "ano</TD>",NL;
 END
 PRINT {HTML} " </TR>",NL;
 //Cluster Index
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Cluster index:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Clustered 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 indexattributes
 CALL H2_TopSpaceless("Atributy indexu");
 foundattr! = FALSE;
 FOREACH Indexattribute WHERE Relation = Index.Relation
 AND Index = Index.Name
 ORDER BY Position DO
 foundattr! = TRUE;
 BREAK;
 END
 IF foundattr! THEN
 PRINT {HTML} "<TABLE CELLPADDING=2 VALIGN=BASELINE NOWRAP>", NL;
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP></TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Název</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Řazení</TH>", NL;
 PRINT {HTML} " </TR>", NL;

 FOREACH Indexattribute WHERE Relation = Index.Relation
 AND Index = Index.Name
 ORDER BY Position DO
 PRINT {HTML} " <TR>";

 //name of the attribute
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=""top""></TD>";
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOR Relattribute WHERE Relation = Indexattribute.Relation
 AND Name = Indexattribute.Attribute DO
 PRINT {HTML} Anchor$("" + Name + "", "", Str$(Object) + ".htm");
 END
 PRINT {HTML} "</TD>",NL;

 //ascending, descending
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Desc THEN
 PRINT {HTML} "sestupně", NL;
 ELSE
 PRINT {HTML} "vzestupně", NL;
 END
 PRINT {HTML} "</TD></TR>",NL;
 END
 PRINT {HTML} "</TABLE>", NL;

 ELSE
 PRINT {HTML} "Index nemé definovány žádné atributy. ", NL;
 END
 PRINT {HTML} " ",NL;

 IF Clustered THEN
 //partitions
 CALL H2_TopSpaceless("Partitions");
 foundPart! = FALSE;
 FOREACH Partition WHERE Relation = Index.Relation
 AND Index = Index.Name ORDER BY Number DO
 foundPart! = TRUE;
 BREAK;
 END
 IF foundPart! THEN
 PRINT {HTML} "<TABLE CELLPADDING=2 VALIGN=BASELINE NOWRAP>", NL;
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP></TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Číslo</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Hodnota</TH>", NL;
 PRINT {HTML} " </TR>", NL;

 FOREACH Partition WHERE Relation = Index.Relation
 AND Index = Index.Name ORDER BY Number DO

 //generate the pages for the partition
 CALL Partition(Id) INTO Str$(Object) + ".htm";

 PRINT {HTML} " <TR>", NL;

 //number
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=""top""></TD>";
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Anchor$("" + Str$(Number) + "", "", Str$(Object) + ".htm");
 PRINT {HTML} "</TD>", NL;
 //value
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Value <> "" THEN
 PRINT {HTML} Value;
 END
 PRINT {HTML} "</TD></TR>", NL;
 END
 PRINT {HTML} "</TABLE> ", NL;
 END

 IF NOT foundPart! THEN
 PRINT {HTML} "Index nemá definovány žádnou partition.", " ", NL;
 END
 PRINT {HTML} " ",NL;
 END

 //source code
 CALL H2_TopSpaceless("Zdrojový kód indexu " + Name$);
 PRINT {HTML} "",NL;
 PRINT {HTML} "<LISTING>",NL;
 SET STYLE {HTML};
 CALL "SQL" DEFAULT FOR Index;
 SET STYLE {"Arial", 10};
 PRINT {HTML} "</LISTING>",NL;
 PRINT {HTML} "",NL;

 END
 ELSE
 CALL H2_Spaceless("Neexistuje index 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\188190000.htm	(C) microTOOL GmbH 2002