\
Source Code
Commands
Table
This command sets the default table for some commands and is required
by others.
The command may be nested if required.
This command takes these parameters:
This example shows the definitions for the standard "Binary" and "File"
tables:
<$TableDefinition "CustomTable4Testing">
<$Column "Field1" TYPE="s72" KEY="Y">
<$Column "Field2" TYPE="s72">
<$Column "Field3" TYPE="S72">
<$Column "Field4" TYPE="S72">
<$/TableDefinition>
<$Table "CustomTable4Testing">
;--- Create the table ----------------------------------------------------
<$TableCreate>
;--- Insert some fields --------------------------------------------------
<$Row Field1="1.1" Field2="1.2" Field3="1.3" Field4="1.4">
<$Row Field1="2.1" Field2="2.2" Field3="2.3" Field4="2.4">
<$Row Field1="3.1" Field2="3.2" Field3="3.3" Field4="3.4">
<$Row Field1="4.1" Field2="4.2" Field3="4.3" Field4="4.4">
<$Row Field1="5.1" Field2="5.2" Field3="5.3" Field4="5.4">
<$Row Field1="6.1" Field2="6.2" Field3="6.3" Field4="6.4">
<$Row Field1="7.1" Field2="7.2" Field3="7.3" Field4="7.4">
<$Row Field1="8.1" Field2="8.2" Field3="8.3" Field4="8.4">
<$Row Field1="9.1" Field2="9.2" Field3="9.3" Field4="9.4">
<$Row Field1="10.1" Field2="9.2"> ;;WORKS as F3 & F4 allow NULLS
;--- Update some rows ("WHERE" clause used, expect 2 matches) ------------
<$Row @Where="Field4='5.4' or Field4='6.4'" @OK="=2" Field2="bbbb" Field3="cccc">
<$/Table>
;--- Delete all rows in the "Error" table -----------------------------------
<$Table "Error">
<$RowsDeleteAll>
<$/Table>
;--- Change the "Attributes" column on some rows in the "Control" table -----
<$Table "Control">
;--- The bit map should be "Fixed" size (make sure "fixed" bit set) ------
<$Row @Where="`Control` = 'BannerBitmap'" Attributes=^{*} or &H00100000^ @SelfRef=^{*}^ @OK=^? > 0^>
<$/Table>
;--- Remove the "LicenseAgreementDlg" Dialog (from flow of events) ----------
<$Table "ControlEvent">
;--- Take care of the "Next" button from the "WelcomeDlg" ----------------
#(
<$Row @OK=^? = 1^
@Where="`Dialog_` = 'WelcomeDlg' and `Control_` = 'Next' and `Event`='NewDialog' and `Argument` = 'LicenseAgreementDlg' and `Condition` = '1'"
Argument="UserRegistrationDlg" ;;Skip licence and go straight here!
>
#)
;--- Take care of the "Back" button from the "UserRegistrationDlg" -------
#(
<$Row @OK=^? = 1^
@Where="`Dialog_` = 'UserRegistrationDlg' and `Control_` = 'Back' and `Event`='NewDialog' and `Argument` = 'LicenseAgreementDlg' and `Condition` = '1'"
Argument="WelcomeDlg" ;;Skip licence and go straight here!
>
#)
<$/Table>
This shows a stream being added, this could be used to "hide" a userid
and password:
<$Table "_Streams" CREATE="N">
<$Row Name="StreamKey" Data="c:\tmp\SomeFile.CON">
<$/Table>