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

Vytvořeno:	12-19-2000 15:59:25
Poslední změna:	01-14-2003 10:37:32

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE SystemInformation()
BEGIN
 CALL Header("Informace o projektu");
 CALL Title ("", "Informace o projektu");

 FOREACH Systemdatamodel WHERE Type = "sys" DO
 CALL GenObjectData(Object, FALSE, FALSE);
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">";
 CALL GenUserdefinedProperties(Object);
 END

 PRINT {HTML} Anchor$( "", "", "#Top");
 CALL H2("Typy uživatelem definovaných parametrů");
 lastType$ = "";
 foundProperty!= FALSE;
 FOREACH ObjectpropertyType ORDER BY ObjectType, Name DO
 IF ObjectpropertyType.ObjectType <> lastType$ THEN
 IF lastType$ <> "" THEN
 PRINT {HTML} "</TABLE>",NL;
 END
 lastType$ = ObjectpropertyType.ObjectType;
 CALL GetObjecttypeName(lastType$, name$);
 PRINT {HTML} "";
 PRINT name$;
 PRINT {HTML} "", NL;
 PRINT {HTML} "<TABLE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=LEFT COLSPAN=2>Název</TH>", NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=CENTER>Typ</TH>", NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=CENTER>Hodnoty/default</TH>", NL;
 PRINT {HTML} " <TH VALIGN=TOP>Poznámky</TH>", NL;
 PRINT {HTML} " </TR>", NL;
 END

 PRINT {HTML} " <TR>", NL;
 //name
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><IMG SRC = ""bullet.gif""></TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Name + "</TD>",NL;

 // type
 IF Type=1 OR Type=5 THEN /*Integer value*/
 type$ = "Integer";
 def$ = Str$(Idefaultvalue);
 ELSIF Type=2 THEN /*String value*/
 type$ = "String";
 def$ = Sdefaultvalue;
 ELSIF Type=8 /*Enumeration value*/ THEN
 type$ = "Výčtový typ";
 def$ = Sdefaultvalue;
 ELSE /*Boolean value*/
 type$ = "Boolean";
 IF Idefaultvalue<>0 THEN
 def$ = "ano";
 ELSE
 def$ = "ne";
 END
 END
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" +type$ + "</TD>",NL;

 // vaules and default
 IF Type = 8 THEN // enum vaules
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 firstValue!= TRUE;
 FOREACH ObjectpropertyTypeValue WHERE ObjectpropertyType = ObjectpropertyType.Name AND
 ObjectType = ObjectpropertyType.ObjectType ORDER BY Pos DO
 IF NOT firstValue! THEN
 PRINT {HTML} " ";
 END
 PRINT {HTML} "" + Value;
 IF ObjectpropertyType.hasDefault AND Value = def$ THEN
 PRINT {HTML} " (D)";
 END
 firstValue! = FALSE;
 END
 ELSE
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF hasDefault THEN
 PRINT {HTML} "" + def$;
 ELSE
 PRINT {HTML} "" + "-";
 END
 END
 PRINT {HTML} "</TD>",NL;

 // description
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP WIDTH=""260"">";
 PRINT {HTML} "" + Comment + "</TD>",NL;

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

 END
 IF lastType$ <> "" THEN
 PRINT {HTML} "</TABLE>",NL;
 END
 PRINT {HTML} " ", Anchor$("<IMG SRC=""triangle.gif"" BORDER=""0"" WIDTH=""14"" HEIGHT=""14"" ALIGN=""TOP"">","","#Top"), " ",NL;

 // file types
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 CALL H2("Typy souborů");
 foundFileType!= FALSE;
 FOREACH Filetype ORDER BY Language, Name DO
 IF NOT foundFiletype! THEN
 foundFileType!= TRUE;
 PRINT {HTML} "<TABLE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=LEFT COLSPAN=2>Název</TH>", NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=CENTER>Jazyk</TH>", NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=CENTER>Cesta</TH>", NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=CENTER>Přípona</TH>", NL;
 PRINT {HTML} " <TH VALIGN=TOP ALIGN=CENTER>Funkce</TH>", NL;
 PRINT {HTML} " </TR>", NL;
 END
 PRINT {HTML} " <TR>", NL;

 //name
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><IMG SRC = ""bullet.gif""></TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Name + "</TD>",NL;

 //language
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 PRINT {HTML} LanguageName$(Language) + "</TD>",NL;

 // Path
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Path + "</TD>",NL;

 // Extension
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 PRINT {HTML} Extension + "</TD>",NL;

 // Format
 foundFormat! = FALSE;
 FOR Format WHERE Id = Filetype.Format DO
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Anchor$(Format.Name, "", Str$(Object) + ".htm") + "</TD>",NL;
 foundFormat! = TRUE;
 END
 IF NOT foundFormat! THEN
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 PRINT {HTML} "-" + "</TD>",NL;
 END

 PRINT {HTML} " </TR>", NL;
 END
 IF foundFiletype! THEN
 PRINT {HTML} "</TABLE>",NL;
 ELSE
 CALL H2_Spaceless("V projektu nejsou definovány žádné formáty souborů.");
 END
 PRINT {HTML} " ",NL," ", Anchor$("<IMG SRC=""triangle.gif"" BORDER=""0"" WIDTH=""14"" HEIGHT=""14"" ALIGN=""TOP"">","","#Top"), " ",NL;

 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\199957748.htm	(C) microTOOL GmbH 2002