home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 April
/
Chip_2000-04_cd.bin
/
zkuste
/
Tango
/
data1.cab
/
Tango_Demos_TCFs
/
ResultsBuilder.tcf
< prev
next >
Wrap
Extensible Markup Language
|
1999-09-21
|
18KB
|
463 lines
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE TAF SYSTEM "tango.dtd" >
<TCF Version="0x02000002">
<Comments />
<!--Defined Classes-->
<Classes>
<ClassDef>
<Name>resultsBuilder</Name>
<!--Class constructor-->
<On_Create>
<Implementation>
<ActionRef Ref="resultsBuilder.On_Create.Comments" />
</Implementation>
</On_Create>
<!--Class destructor-->
<On_Destroy>
<Implementation />
</On_Destroy>
<!--Methods of this class-->
<Methods>
<MethodDef>
<Name>addText</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ColumnNumber</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addText.Append_Text" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addLink</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ColumnNumber</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addLink.Append_Link" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addEmail</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ColumnNumber</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addEmail.Append_Email" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addFile</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ColumnNumber</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addFile.Append_File" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addBoolean</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ColumnNumber</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addBoolean.Append_Boolean" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addListValue</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ArrayName</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ColumnNumber</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addListValue.Append_ListValue" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>openResults</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ArrayName</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>DetailSection</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>HeadingColor</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>ResultsColor</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.openResults.Initialize_Results" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>outputResults</Name>
<MethodParameterList />
<Implementation>
<ActionRef Ref="resultsBuilder.outputResults.Output_Results" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addBlank</Name>
<MethodParameterList />
<Implementation>
<ActionRef Ref="resultsBuilder.addBlank.Append_Blank" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addDivider</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>BackgroundColor</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addDivider.Append_Blank" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
<MethodDef>
<Name>addCustom</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Label</Name>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>MetaHTML</Name>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="resultsBuilder.addCustom.Append_Custom" />
</Implementation>
<UseReturnValue>TRUE</UseReturnValue>
</MethodDef>
</Methods>
<!--Instance variables for this class-->
<Variables />
</ClassDef>
</Classes>
<!--Program actions-->
<Actions>
<ResultAction ID="resultsBuilder.On_Create.Comments" Sig="null">
<ResultsOutput Ref="resultsBuilder.On_Create.Comments.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addText.Append_Text" Sig="null">
<ResultsOutput Ref="resultsBuilder.addText.Append_Text.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addLink.Append_Link" Sig="null">
<ResultsOutput Ref="resultsBuilder.addLink.Append_Link.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addEmail.Append_Email" Sig="null">
<ResultsOutput Ref="resultsBuilder.addEmail.Append_Email.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addFile.Append_File" Sig="null">
<ResultsOutput Ref="resultsBuilder.addFile.Append_File.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addBoolean.Append_Boolean" Sig="null">
<ResultsOutput Ref="resultsBuilder.addBoolean.Append_Boolean.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addListValue.Append_ListValue" Sig="null">
<ResultsOutput Ref="resultsBuilder.addListValue.Append_ListValue.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.openResults.Initialize_Results" Sig="null">
<ResultsOutput Ref="resultsBuilder.openResults.Initialize_Results.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.outputResults.Output_Results" Sig="null">
<ResultsOutput Ref="resultsBuilder.outputResults.Output_Results.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addBlank.Append_Blank" Sig="null">
<ResultsOutput Ref="resultsBuilder.addBlank.Append_Blank.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addDivider.Append_Blank" Sig="null">
<ResultsOutput Ref="resultsBuilder.addDivider.Append_Blank.Results" />
</ResultAction>
<ResultAction ID="resultsBuilder.addCustom.Append_Custom" Sig="null">
<ResultsOutput Ref="resultsBuilder.addCustom.Append_Custom.Results" />
</ResultAction>
</Actions>
<!--Data sources-->
<DataSources />
<!--Output blocks-->
<Outputs>
<Output ID="resultsBuilder.On_Create.Comments.Results" Type="HTML"><![CDATA[
<@COMMENT>
This Tango Class File compiles HTML to display read-only data from a database.
It can be used to display either a details page for a single record or a
table for multiple records.
Kevin Hurwitz, Kevin.Hurwitz@pervasive.com
Developer Solutions, Pervasive Software
</@COMMENT>]]></Output>
<Output ID="resultsBuilder.addText.Append_Text.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR>
<TD><@VAR method$Label ENCODING=NONE></TD>
<TD><@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62></TD>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD><@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62></TD>">
</@IF>]]></Output>
<Output ID="resultsBuilder.addLink.Append_Link.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR>
<TD><@VAR method$Label ENCODING=NONE></TD>
<TD><A HREF=<@DQ>http://<@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62><@DQ>><@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62></A></TD>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD><A HREF=<@DQ>http://<@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62><@DQ>><@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62></A></TD>">
</@IF>]]></Output>
<Output ID="resultsBuilder.addEmail.Append_Email.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR>
<TD><@VAR method$Label ENCODING=NONE></TD>
<TD><A HREF=<@DQ>mailto:<@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62><@DQ>><@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62></A></TD>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD><A HREF=<@DQ>mailto:<@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62><@DQ>><@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62></A></TD>">
</@IF>
]]></Output>
<Output ID="resultsBuilder.addFile.Append_File.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR>
<TD><@VAR method$Label ENCODING=NONE></TD>
<TD><A HREF=<@DQ>file://<@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62><@DQ>><@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62></A></TD>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD><A HREF=<@DQ>file://<@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62><@DQ>><@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62></A></TD>">
</@IF>
]]></Output>
<Output ID="resultsBuilder.addBoolean.Append_Boolean.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR>
<TD><@VAR method$Label ENCODING=NONE></TD>
<TD><@CHAR 60>@IFEQUAL <@DQ><@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62><@DQ> <@DQ>0<@DQ><@CHAR 62>No<@CHAR 60>@ELSE<@CHAR 62>Yes<@CHAR 60>/@IF<@CHAR 62>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD><@CHAR 60>@IFEQUAL <@DQ><@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62><@DQ> <@DQ>0<@DQ><@CHAR 62>No<@CHAR 60>@ELSE<@CHAR 62>Yes<@CHAR 60>/@IF<@CHAR 62></TD>">
</@IF>]]></Output>
<Output ID="resultsBuilder.addListValue.Append_ListValue.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR>
<TD><@VAR method$Label ENCODING=NONE></TD>
<TD><@CHAR 60>@ROWS ARRAY=<@DQ><@VAR method$ArrayName ENCODING=NONE><@DQ><@CHAR 62><@CHAR 60>@IFEQUAL <@DQ><@CHAR 60>@COL 1<@CHAR 62><@DQ> <@DQ><@CHAR 60>@VAR <@VAR instance$DataArray>[1,@@method$ColumnNumber]<@CHAR 62><@DQ><@CHAR 62><@CHAR 60>@COL 2<@CHAR 62><@CHAR 60>/@IF<@CHAR 62><@CHAR 60>/@ROWS<@CHAR 62></TD>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD><@CHAR 60>@ASSIGN local$FieldValue <@DQ><@CHAR 60>@COL @@method$ColumnNumber<@CHAR 62><@DQ><@CHAR 62><@CHAR 60>@ROWS ARRAY=<@DQ><@VAR method$ArrayName ENCODING=NONE><@DQ><@CHAR 62><@CHAR 60>@IFEQUAL <@DQ><@CHAR 60>@COL 1<@CHAR 62><@DQ> <@DQ><@CHAR 60>@VAR local$FieldValue<@CHAR 62><@DQ><@CHAR 62><@CHAR 60>@COL 2<@CHAR 62><@CHAR 60>/@IF<@CHAR 62><@CHAR 60>/@ROWS<@CHAR 62></TD>">
</@IF>
]]></Output>
<Output ID="resultsBuilder.openResults.Initialize_Results.Results" Type="HTML"><![CDATA[<@PURGE instance$ColumnHeads>
<@PURGE instance$ResultsHtml>
<@PURGE instance$CreateDetail>
<@PURGE instance$DataArray>
<@PURGE instance$Color1>
<@PURGE instance$Color2>
<@ASSIGN instance$CreateDetail "<@IFEMPTY '<@VAR method$DetailSection ENCODING=NONE>'>FALSE<@ELSE><@VAR method$DetailSection ENCODING=NONE></@IF>">
<@ASSIGN instance$DataArray "<@VAR method$ArrayName ENCODING=NONE>">
<@IFEMPTY "<@VAR method$HeadingColor>">
<@ASSIGN instance$Color1 "WHITE">
<@ELSE>
<@ASSIGN instance$Color1 "<@VAR method$HeadingColor ENCODING=NONE>">
</@IF>
<@IFEMPTY "<@VAR method$ResultsColor>">
<@ASSIGN instance$Color2 "WHITE">
<@ELSE>
<@ASSIGN instance$Color2 "<@VAR method$ResultsColor ENCODING=NONE>">
</@IF>]]></Output>
<Output ID="resultsBuilder.outputResults.Output_Results.Results" Type="HTML"><![CDATA[
<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<TABLE CELLPADDING=4 CELLSPACING=0 BORDER=0>
<@VAR instance$ResultsHtml ENCODING=NONE>
</TABLE>
<@ELSE>
<TABLE CELLPADDING=4 CELLSPACING=0 BORDER=0>
<@CHAR 60>@IF "<@CHAR 60>@NUMROWS ARRAY='<@VAR instance$DataArray ENCODING=NONE>'<@CHAR 62>"<@CHAR 62>
<TR BGCOLOR='<@VAR instance$Color1 ENCODING=NONE>'>
<@VAR instance$ColumnHeads ENCODING=NONE>
</TR>
<@CHAR 60>/@IF<@CHAR 62>
<@CHAR 60>@ROWS ARRAY="<@VAR instance$DataArray ENCODING=NONE>"<@CHAR 62>
<@CHAR 60>@IF "!(<@CHAR 60>@CURROW<@CHAR 62>%2)"<@CHAR 62><@CHAR 60>@ASSIGN "local$RowColor" "<@VAR instance$Color1 ENCODING=NONE>"<@CHAR 62><@CHAR 60>@ELSE<@CHAR 62><@CHAR 60>@ASSIGN "local$RowColor" "<@VAR instance$Color2 ENCODING=NONE>"<@CHAR 62><@CHAR 60>/@IF<@CHAR 62>
<TR BGCOLOR=<@CHAR 60>@VAR local$RowColor<@CHAR 62>>
<@VAR instance$ResultsHtml ENCODING=NONE>
</TR>
<@CHAR 60>/@ROWS<@CHAR 62>
</TABLE>
</@IF>]]></Output>
<Output ID="resultsBuilder.addBlank.Append_Blank.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR><TD COLSPAN=2> </TD></TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD> </TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD> </TD>">
</@IF>
]]></Output>
<Output ID="resultsBuilder.addDivider.Append_Blank.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR>
<TD COLSPAN=2<@IF 'LEN(<@VAR method$BackgroundColor ENCODING=NONE>)'> BGCOLOR=<@DQ><@VAR method$BackgroundColor ENCODING=NONE><@DQ></@IF>><@VAR method$Label ENCODING=NONE></TD>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD<@IF "LEN(<@VAR method$BackgroundColor ENCODING=NONE>)"> BGCOLOR=<@DQ><@VAR method$BackgroundColor ENCODING=NONE><@DQ></@IF>><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD<@IF "LEN(<@VAR method$BackgroundColor ENCODING=NONE>)"> BGCOLOR=<@DQ><@VAR method$BackgroundColor ENCODING=NONE><@DQ></@IF>> </TD>">
</@IF>]]></Output>
<Output ID="resultsBuilder.addCustom.Append_Custom.Results" Type="HTML"><![CDATA[<@IFEQUAL "@@instance$CreateDetail" "TRUE">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TR><@IFEMPTY "@@method$Label">
<TD COLSPAN=2><@VAR method$MetaHTML ENCODING=NONE></TD><@ELSE>
<TD><@VAR method$Label ENCODING=NONE></TD>
<TD><@VAR method$MetaHTML ENCODING=NONE></TD></@IF>
</TR>
">
<@ELSE>
<@ASSIGN instance$ColumnHeads "<@VAR instance$ColumnHeads ENCODING=NONE>
<TD><@VAR method$Label ENCODING=NONE></TD>">
<@ASSIGN instance$ResultsHtml "<@VAR instance$ResultsHtml ENCODING=NONE>
<TD><@VAR method$MetaHTML ENCODING=NONE></TD>">
</@IF>]]></Output>
</Outputs>
</TCF>