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

Vytvořeno:	02-11-2002 16:14:50
Poslední změna:	01-14-2003 10:22:45

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE SDDialogElements(FuncdefModule$, Name$)
BEGIN

 FOREACH Funcdef WHERE Funcdef.Module = FuncdefModule$ DO
 FOR Widget WHERE Widget.Name = Name$ AND Widget.Funcdefno = Funcdef.Funcdefno DO
 CALL Header("Prvek dialogu - " + Conv$(Widget.Name));
 CALL Title("Prvek dialogu", Conv$(Widget.Name));
 END
 END

 FOREACH Widgettype DO
 FOREACH Widget WHERE Widget.Module = FuncdefModule$ AND Widget.Name = Name$
 AND Widgettype.Widgettypeno = Widget.Widgettype ORDER BY Widget.Name DO
 CALL H2_TopSpaceless("Vlastnosti");

 PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Typ</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP WIDTH=250>Hodnota</TH>", NL;
 PRINT {HTML} " </TR>",NL;

 FOREACH Widgetproperty WHERE Widgetproperty.Widget = Widget.Name AND Widgetproperty.Module = Widget.Module DO
 FOREACH Propertytype WHERE Propertytype.Widgettypeno = Widgetproperty.Widgettypeno
 AND Propertytype.Propertytypeno = Widgetproperty.Propertytypeno DO

 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Propertytype.Name,NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Propertytype.Type = 1 THEN
 PRINT {HTML} Widgetproperty.IValue;
 ELSIF Propertytype.Type = 2 THEN
 PRINT {HTML} Widgetproperty.IValue;
 ELSIF Propertytype.Type = 4 THEN
 PRINT {HTML} Widgetproperty.BValue;
 ELSIF Propertytype.Type = 5 THEN
 PRINT {HTML} Widgetproperty.IValue;
 ELSIF Propertytype.Type = 6 THEN
 PRINT {HTML} Widgetproperty.IValue;
 ELSIF Propertytype.Type = 7 THEN
 PRINT {HTML} Widgetproperty.IValue;
 ELSIF Propertytype.Type = 8 THEN
 PRINT {HTML} Widgetproperty.SValue;
 ELSIF Propertytype.Type = 9 THEN
 PRINT {HTML} Widgetproperty.SValue;
 ELSIF Propertytype.Type = 10 THEN
 PRINT {HTML} Widgetproperty.BValue;
 ELSIF Propertytype.Type = 11 THEN
 PRINT {HTML} Widgetproperty.SValue;
 ELSE
 PRINT {HTML} Widgetproperty.BValue;
 END

 END
 END
 PRINT {HTML} " </TR>",NL;
 //end of table
 PRINT {HTML} "</TABLE>",NL;


 found! = FALSE;
 FOR Data WHERE Data.Name = Widget.Data DO
 IF NOT found!= 0 THEN
 CALL H2_TopSpaceless("Datové elementy");
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + Conv$(Data.Boxname) + " ", ""; PRINT {HTML} "</TD>", NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 found! = TRUE;
 END
 END

 FOREACH Callback WHERE Callback.Module = Widget.Module
 AND Callback.Widget = Widget.Name DO
 found! = FALSE;
 FOREACH Callbacktype WHERE Callbacktype.Callbacktypeno = Callback.Callbacktypeno
 AND Callbacktype.Widgettypeno = Widgettype.Widgettypeno DO
 IF NOT found! = 0 THEN
 CALL H2_TopSpaceless("Callbacky");
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + Conv$(Callbacktype.Name) + " ", ""; PRINT {HTML} "</TD>", NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 found! = TRUE;
 END
 END
 END

 FOREACH Widgetattribute WHERE Widgetattribute.Funcdefno = Widget.Funcdefno
 AND Widgetattribute. Module = Widget.Module DO
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 CALL H2_TopSpaceless("Atributy");
 IF Widgetattribute.Attribute <> "" THEN
 PRINT {HTML} "" + Widgetattribute.Attribute + "( Relace: " + Widgetattribute.Relation + " ) ", ""; PRINT {HTML} "</TD>", NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 END
 END

 first! = TRUE;
 FOREACH Widgetvalue WHERE Widgetvalue.Funcdefno = Widget.Funcdefno ORDER BY Pos DO
 IF first! THEN
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 CALL H2_TopSpaceless("Příklady hodnot");
 first! = FALSE;
 END
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Widgetvalue.Name, " ", "";
 PRINT {HTML} " ";
 PRINT {HTML} "</TD>", NL;
 found! = TRUE;
 END

 IF Widget.Code <> "" THEN
 CALL H2_TopSpaceless("Zdrojový kód");
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT Widget.Code;
 PRINT {HTML} "</TD>", NL;
 END
 END
 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\2620547.htm	(C) microTOOL GmbH 2002