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

Vytvořeno:	11-22-2000 15:44:24
Poslední změna:	01-10-2003 09:37:20

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Partition(Id%)
BEGIN

 foundsomething! = FALSE;
 FOR Partition WHERE Id = Id% DO
 foundsomething! = TRUE;
 IF Name <> "" THEN
 heading1$ = Name;
 ELSE
 heading1$ = Str$(Number);
 END
 CALL Header("Partition - " + heading1$);
 IF Tablespace <> "" AND Database <> "" THEN
 heading2$ = Database + ", " + Tablespace;
 ELSIF Relation <> "" AND Index <> "" THEN
 FOR Relation WHERE Name = Partition.Relation DO
 heading2$ = Conv$(Boxname);
 END
 heading2$ = heading2$ + ", " + Index;
 ELSE
 heading2$ = "";
 END
 CALL Title2("Partition", heading1$, heading2$);
 END

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

 IF foundsomething! THEN
 FOR Partition WHERE Id = Id% DO

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

 //two column table with properties of the element - one line per attribute
 CALL H2_TopSpaceless("Vlastnosti");
 PRINT {HTML} "<TABLE NOWRAP VALIGN=BASELINE>",NL;

 //database
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Databáze:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 found! = FALSE;
 FOR Database WHERE Name = Partition.Database DO
 PRINT {HTML} Anchor$("" + Name + "", "", Str$(Object) + ".htm");
 found! = TRUE;
 END
 IF NOT found! THEN //partition belongs not to the tablespace of a database, but to a clustered index
 PRINT {HTML} "-";
 END
 PRINT {HTML} "</TD></TR>",NL;

 //tablespace
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Tabulka:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 found! = FALSE;
 FOR Tablespace WHERE Database = Partition.Database
 AND Name = Partition.Tablespace DO
 PRINT {HTML} Anchor$("" + Name + "", "", Str$(Object) + ".htm");
 found! = TRUE;
 END
 IF NOT found! THEN //partition belongs not to the tablespace of a database, but to a clustered index
 PRINT {HTML} "-";
 END
 PRINT {HTML} "</TD></TR>",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>";
 found! = FALSE;
 FOR Relation WHERE Name = Partition.Relation DO
 PRINT {HTML} Anchor$("" + Conv$(Boxname) + "", "", Str$(Object) + ".htm");
 found! = TRUE;
 END
 IF NOT found! THEN //partition belongs not to a clustered index, but to a tablespace of a database
 PRINT {HTML} "-";
 END
 PRINT {HTML} "</TD></TR>",NL;

 //index
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Index:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 found! = FALSE;
 FOR Index WHERE Relation = Partition.Relation
 AND Name = Partition.Index DO
 PRINT {HTML} Anchor$("" + Name + "", "", Str$(Object) + ".htm");
 found! = TRUE;
 END
 IF NOT found! THEN //partition belongs not to a clustered index, but to a tablespace of a database
 PRINT {HTML} "-";
 END
 PRINT {HTML} "</TD></TR>",NL;

 //value
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Hodnota:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Value <> "" THEN
 PRINT {HTML} "" + Value + "";
 ELSE
 PRINT {HTML} "<není určeno>";
 END
 PRINT {HTML} "</TD></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);
 END

 ELSE
 CALL H2_Spaceless("Projekt neobsahuje partition 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\83907596.htm	(C) microTOOL GmbH 2002