h_dbtab.pas

一个Delphi解释器的例子

Begin
TQUERY(slf).PARAMCHECK:=S[0];
End;
{--------------------}
Function TQUERYget_UNIDIRECTIONAL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).UNIDIRECTIONAL;
End;

Function TQUERYset_UNIDIRECTIONAL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).UNIDIRECTIONAL:=S[0];
End;

{--------------------}
function myTBATCHMOVECREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjTOVar(TBATCHMOVE(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTBATCHMOVEDESTROY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TBATCHMOVE(slf).DESTROY;
End;
{--------------------}
Function TBATCHMOVEget_ABORTONKEYVIOL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).ABORTONKEYVIOL;
End;

Function TBATCHMOVEset_ABORTONKEYVIOL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).ABORTONKEYVIOL:=S[0];
End;
{--------------------}
Function TBATCHMOVEget_ABORTONPROBLEM(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).ABORTONPROBLEM;
End;

Function TBATCHMOVEset_ABORTONPROBLEM(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).ABORTONPROBLEM:=S[0];
End;
{--------------------}
Function TBATCHMOVEset_COMMITCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).COMMITCOUNT:=S[0];
End;
{--------------------}
Function TBATCHMOVEget_CHANGEDTABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).CHANGEDTABLENAME;
End;

Function TBATCHMOVEset_CHANGEDTABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).CHANGEDTABLENAME:=S[0];
End;
{--------------------}
Function TBATCHMOVEget_DESTINATION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TBATCHMOVE(slf).DESTINATION);
End;

Function TBATCHMOVEset_DESTINATION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).DESTINATION:=TTable(VarToObj(S[0]));
End;
{--------------------}
Function TBATCHMOVEget_KEYVIOLTABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).KEYVIOLTABLENAME;
End;

Function TBATCHMOVEset_KEYVIOLTABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).KEYVIOLTABLENAME:=S[0];
End;
{--------------------}
Function TBATCHMOVEget_PROBLEMTABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).PROBLEMTABLENAME;
End;

Function TBATCHMOVEset_PROBLEMTABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).PROBLEMTABLENAME:=S[0];
End;
{--------------------}
Function TBATCHMOVEget_RECORDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).RECORDCOUNT;
End;

Function TBATCHMOVEset_RECORDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).RECORDCOUNT:=S[0];
End;
{--------------------}
Function TBATCHMOVEget_SOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TBATCHMOVE(slf).SOURCE);
End;

Function TBATCHMOVEset_SOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).SOURCE:=TDBDataSet(VarToObj(S[0]));
End;
{--------------------}
Function TBATCHMOVEget_TRANSLITERATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).TRANSLITERATE;
End;

Function TBATCHMOVEset_TRANSLITERATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).TRANSLITERATE:=S[0];
End;


function myTPARAMCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjTOVar(TPARAM(slf).CREATE(TParams(VarToObj(S[0])),S[1]));
End;

{--------------------}
procedure initdbtables;
begin

{   AddObjectType('TStringField','TField');
   AddObjectType('TSmallintField','TField');
   AddObjectType('TFloatField','TField');
   AddObjectType('TDateField','TField');
   AddObjectType('TDateTimeField','TField');
   AddObjectType('TBooleanField','TField');
   AddObjectType('TTABLE','TDBDATASET');
   AddObjectType('TStoredProc','TDBDATASET');
   AddObjectType('TBATCHMOVE','TCOMPONENT');
   AddObjectType('TPARAM','TOBJECT');
   AddObjectType('TPARAMS','TPERSISTENT');
   AddObjectType('TQUERY','TDBDATASET');
   AddObjectType('TUPDATESQL','TDATASETUPDATEOBJECT');}


   AddProp('TQUERY.ROWSAFFECTED',TQUERYget_ROWSAFFECTED,nil);
   AddProp('TQUERY.PARAMCHECK',TQUERYget_PARAMCHECK,TQUERYset_PARAMCHECK);
   AddProp('TQUERY.REQUESTLIVE',TQUERYget_REQUESTLIVE,TQUERYset_REQUESTLIVE);
   AddProp('TQUERY.PARAMCOUNT',TQUERYget_PARAMCOUNT,nil);
   AddProc('TQUERY.EXECSQL',myTQUERYEXECSQL,[2]);
   AddProc('TQUERY.PREPARE',myTQUERYPREPARE,[2]);
   AddProc('TQUERY.UNPREPARE',myTQUERYUNPREPARE,[2]);
    AddFun('TQUERY.PARAMBYNAME',myTQUERYPARAMBYNAME,[0]);
   AddProp('TQUERY.PREPARED',TQUERYget_PREPARED,TQUERYset_PREPARED);
   AddProp('TQUERY.LOCAL',TQUERYget_LOCAL,nil);
   AddProp('TQUERY.CONSTRAINED',TQUERYget_CONSTRAINED,TQUERYset_CONSTRAINED);
   AddProp('TQUERY.DATASOURCE',TQUERYget_DATASOURCE,TQUERYset_DATASOURCE);
   AddProp('TQUERY.UPDATEOBJECT',TQUERYget_UPDATEOBJECT,TQUERYset_UPDATEOBJECT);
   AddProp('TQUERY.UNIDIRECTIONAL',TQUERYget_UNIDIRECTIONAL,TQUERYset_UNIDIRECTIONAL);
   AddProp('TQUERY.UPDATEMODE',TQUERYget_UPDATEMODE,TQUERYset_UPDATEMODE);
   AddFun('TQUERY.CREATE',myTQUERYCREATE,[0]);
   AddProp('TQUERY.SQL',TQUERYget_SQL,TQUERYset_SQL);
   AddProp('TQUERY.TEXT',TQUERYget_TEXT,nil);
   AddFun('TQUERY.PARAMS',TQUERYget_PARAMS,[0]);

 AddConst('upWhereAll',upWhereAll);
 AddConst('upWhereChanged',upWhereChanged);
 AddConst('upWhereKeyOnly',upWhereKeyOnly);


 AddConst('batAppend',batAppend);
 AddConst('batUpdate',batUpdate);
 AddConst('batAppendUpdate',batAppendUpdate);
 AddConst('batDelete',batDelete);
 AddConst('batCopy',batCopy);


 AddFun('TTABLE.CREATE',myTTABLECREATE,[0]);
 AddFun('TTABLE.BATCHMOVE',myTTABLEBATCHMOVE,[0,0]);

 AddConst('ixPrimary',ixPrimary);
 AddConst('ixUnique',ixUnique);
 AddConst('ixDescending',ixDescending);
 AddConst('ixExpression',ixExpression);
 AddConst('ixCaseInsensitive',ixCaseInsensitive);

   AddProc('TTABLE.APPLYRANGE',myTTABLEAPPLYRANGE,[2]);
   AddProc('TTABLE.CANCELRANGE',myTTABLECANCELRANGE,[2]);
   AddProc('TTABLE.EDITKEY',myTTABLEEDITKEY,[2]);
   AddProc('TTABLE.EDITRANGEEND',myTTABLEEDITRANGEEND,[2]);
   AddProc('TTABLE.EDITRANGESTART',myTTABLEEDITRANGESTART,[2]);
    AddFun('TTABLE.GOTOKEY',myTTABLEGOTOKEY,[2]);
   AddProc('TTABLE.GOTONEAREST',myTTABLEGOTONEAREST,[2]);
   AddProc('TTABLE.SETRANGEEND',myTTABLESETRANGEEND,[2]);
   AddProc('TTABLE.SETRANGESTART',myTTABLESETRANGESTART,[2]);
   AddProc('TTABLE.SETKEY',myTTABLESETKEY,[2]);
   AddProp('TTABLE.KEYEXCLUSIVE',TTABLEget_KEYEXCLUSIVE,TTABLEset_KEYEXCLUSIVE);
   AddProp('TTABLE.KEYFIELDCOUNT',TTABLEget_KEYFIELDCOUNT,TTABLEset_KEYFIELDCOUNT);
   AddProp('TTABLE.READONLY',TTABLEget_READONLY,TTABLEset_READONLY);
   AddProp('TTABLE.TABLENAME',TTABLEget_TABLENAME,TTABLEset_TABLENAME);
   AddProp('TTABLE.MASTERFIELDS',TTABLEget_MASTERFIELDS,TTABLEset_MASTERFIELDS);
   AddProp('TTABLE.UPDATEMODE',TTABLEget_UPDATEMODE,TTABLEset_UPDATEMODE);
   AddProp('TTABLE.UPDATEOBJECT',TTABLEget_UPDATEOBJECT,TTABLEset_UPDATEOBJECT);
   AddProp('TTABLE.MASTERSOURCE',TTABLEget_MASTERSOURCE,TTABLEset_MASTERSOURCE);
   AddProc('TTABLE.GOTOCURRENT',myTTABLEGOTOCURRENT,[0]);
   AddProp('TTABLE.INDEXNAME',TTABLEget_INDEXNAME,TTABLEset_INDEXNAME);
   AddProp('TTABLE.INDEXFIELDNAMES',TTABLEget_INDEXFIELDNAMES,TTABLEset_INDEXFIELDNAMES);
 AddProc('TTABLE.GETINDEXNAMES',myTTABLEGETINDEXNAMES,[0]);


 AddConst('ltReadLock',ltReadLock);
 AddConst('ltWriteLock',ltWriteLock);

 AddConst('ttDefault',ttDefault);
 AddConst('ttParadox',ttParadox);
 AddConst('ttDBase',ttDBase);
 AddConst('ttASCII',ttASCII);


 AddConst('ukModify',ukModify);

 AddConst('ukInsert',ukInsert);
 AddConst('ukDelete',ukDelete);


   AddFun('TUPDATESQL.CREATE',myTUPDATESQLCREATE,[0]);
   AddProc('TUPDATESQL.APPLY',myTUPDATESQLAPPLY,[0]);
   AddProc('TUPDATESQL.EXECSQL',myTUPDATESQLEXECSQL,[0]);
   AddProc('TUPDATESQL.SETPARAMS',myTUPDATESQLSETPARAMS,[0]);
   AddProp('TUPDATESQL.DATASET',TUPDATESQLget_DATASET,TUPDATESQLset_DATASET);
   AddProp('TUPDATESQL.MODIFYSQL',TUPDATESQLget_MODIFYSQL,TUPDATESQLset_MODIFYSQL);
   AddProp('TUPDATESQL.INSERTSQL',TUPDATESQLget_INSERTSQL,TUPDATESQLset_INSERTSQL);
   AddProp('TUPDATESQL.DELETESQL',TUPDATESQLget_DELETESQL,TUPDATESQLset_DELETESQL);
   AddFun('TTABLE.FINDKEY',myTTABLEFINDKEY,[3]);
   AddProc('TTABLE.FINDNEAREST',myTTABLEFINDNEAREST,[3]);
   AddProc('TTABLE.SETRANGE',myTTABLESETRANGE,[3,3]);


   AddFun('TBATCHMOVE.CREATE',myTBATCHMOVECREATE,[0]);
   AddProc('TBATCHMOVE.EXECUTE',myTBATCHMOVEEXECUTE,[2]);
   AddProp('TBATCHMOVE.CHANGEDCOUNT',TBATCHMOVEget_CHANGEDCOUNT,nil);
   AddProp('TBATCHMOVE.KEYVIOLCOUNT',TBATCHMOVEget_KEYVIOLCOUNT,nil);
   AddProp('TBATCHMOVE.MOVEDCOUNT',TBATCHMOVEget_MOVEDCOUNT,nil);
   AddProp('TBATCHMOVE.PROBLEMCOUNT',TBATCHMOVEget_PROBLEMCOUNT,nil);
   AddProp('TBATCHMOVE.ABORTONKEYVIOL',TBATCHMOVEget_ABORTONKEYVIOL,TBATCHMOVEset_ABORTONKEYVIOL);
   AddProp('TBATCHMOVE.ABORTONPROBLEM',TBATCHMOVEget_ABORTONPROBLEM,TBATCHMOVEset_ABORTONPROBLEM);
   AddProp('TBATCHMOVE.COMMITCOUNT',TBATCHMOVEget_COMMITCOUNT,TBATCHMOVEset_COMMITCOUNT);
   AddProp('TBATCHMOVE.CHANGEDTABLENAME',TBATCHMOVEget_CHANGEDTABLENAME,TBATCHMOVEset_CHANGEDTABLENAME);
   AddProp('TBATCHMOVE.DESTINATION',TBATCHMOVEget_DESTINATION,TBATCHMOVEset_DESTINATION);
   AddProp('TBATCHMOVE.KEYVIOLTABLENAME',TBATCHMOVEget_KEYVIOLTABLENAME,TBATCHMOVEset_KEYVIOLTABLENAME);
   AddProp('TBATCHMOVE.MAPPINGS',TBATCHMOVEget_MAPPINGS,TBATCHMOVEset_MAPPINGS);
   AddProp('TBATCHMOVE.MODE',TBATCHMOVEget_MODE,TBATCHMOVEset_MODE);
   AddProp('TBATCHMOVE.PROBLEMTABLENAME',TBATCHMOVEget_PROBLEMTABLENAME,TBATCHMOVEset_PROBLEMTABLENAME);
   AddProp('TBATCHMOVE.RECORDCOUNT',TBATCHMOVEget_RECORDCOUNT,TBATCHMOVEset_RECORDCOUNT);
   AddProp('TBATCHMOVE.SOURCE',TBATCHMOVEget_SOURCE,TBATCHMOVEset_SOURCE);
   AddProp('TBATCHMOVE.TRANSLITERATE',TBATCHMOVEget_TRANSLITERATE,TBATCHMOVEset_TRANSLITERATE);

AddConst('batAppend',batAppend);
AddConst('batUpdate',batUpdate);
AddConst('batAppendUpdate',batAppendUpdate);
AddConst('batDelete',batDelete);
AddConst('batCopy',batCopy);


   AddFun('TPARAM.CREATE',myTPARAMCREATE,[0,0]);
   AddProc('TPARAM.ASSIGN',myTPARAMASSIGN,[0]);
   AddProc('TPARAM.ASSIGNFIELD',myTPARAMASSIGNFIELD,[0]);
   AddProc('TPARAM.ASSIGNFIELDVALUE',myTPARAMASSIGNFIELDVALUE,[0,0]);
   AddProc('TPARAM.CLEAR',myTPARAMCLEAR,[2]);
   AddFun('TPARAM.GETDATASIZE',myTPARAMGETDATASIZE,[2]);
   AddProp('TPARAM.ASBCD',TPARAMget_ASBCD,TPARAMset_ASBCD);
   AddProp('TPARAM.ASBOOLEAN',TPARAMget_ASBOOLEAN,TPARAMset_ASBOOLEAN);
   AddProp('TPARAM.ASCURRENCY',TPARAMget_ASCURRENCY,TPARAMset_ASCURRENCY);
   AddProp('TPARAM.ASDATE',TPARAMget_ASDATE,TPARAMset_ASDATE);
   AddProp('TPARAM.ASDATETIME',TPARAMget_ASDATETIME,TPARAMset_ASDATETIME);
   AddProp('TPARAM.ASFLOAT',TPARAMget_ASFLOAT,TPARAMset_ASFLOAT);
   AddProp('TPARAM.ASINTEGER',TPARAMget_ASINTEGER,TPARAMset_ASINTEGER);
   AddProp('TPARAM.ASSMALLINT',TPARAMget_ASSMALLINT,TPARAMset_ASSMALLINT);
   AddProp('TPARAM.ASSTRING',TPARAMget_ASSTRING,TPARAMset_ASSTRING);
   AddProp('TPARAM.ASTIME',TPARAMget_ASTIME,TPARAMset_ASTIME);
   AddProp('TPARAM.ASWORD',TPARAMget_ASWORD,TPARAMset_ASWORD);
   AddProp('TPARAM.BOUND',TPARAMget_BOUND,TPARAMset_BOUND);
   AddProp('TPARAM.DATATYPE',TPARAMget_DATATYPE,TPARAMset_DATATYPE);
   AddProp('TPARAM.ISNULL',TPARAMget_ISNULL,nil);
   AddProp('TPARAM.NAME',TPARAMget_NAME,TPARAMset_NAME);
   AddProp('TPARAM.PARAMTYPE',TPARAMget_PARAMTYPE,TPARAMset_PARAMTYPE);
   AddProp('TPARAM.TEXT',TPARAMget_TEXT,TPARAMset_TEXT);
   AddProp('TPARAM.VALUE',TPARAMget_VALUE,TPARAMset_VALUE);

AddConst('ptUnknown',ptUnknown);
AddConst('ptInput',ptInput);
AddConst('ptOutput',ptOutput);
AddConst('ptInputOutput',ptInputOutput);
AddConst('ptResult',ptResult);


   AddFun('TPARAMS.CREATE',myTPARAMSCREATE,[2]);
   AddProc('TPARAMS.ASSIGN',myTPARAMSASSIGN,[0]);
   AddProc('TPARAMS.ASSIGNVALUES',myTPARAMSASSIGNVALUES,[0]);
   AddProc('TPARAMS.ADDPARAM',myTPARAMSADDPARAM,[0]);
   AddProc('TPARAMS.REMOVEPARAM',myTPARAMSREMOVEPARAM,[0]);
   AddFun('TPARAMS.CREATEPARAM',myTPARAMSCREATEPARAM,[0,0,0]);
   AddFun('TPARAMS.COUNT',myTPARAMSCOUNT,[2]);
   AddProc('TPARAMS.CLEAR',myTPARAMSCLEAR,[2]);
   AddProc('TPARAMS.GETPARAMLIST',myTPARAMSGETPARAMLIST,[0,0]);
   AddFun('TPARAMS.ISEQUAL',myTPARAMSISEQUAL,[0]);
   AddFun('TPARAMS.PARAMBYNAME',myTPARAMSPARAMBYNAME,[0]);



{   AddProc('TPARAM.SETDATA',myTPARAMSETDATA,[0]);
   AddProc('TPARAM.GETDATA',myTPARAMGETDATA,[0]);}
  (*
   AddProc('TSTOREDPROC.CREATE',myTSTOREDPROCCREATE,[0]);
   AddProc('TSTOREDPROC.COPYPARAMS',myTSTOREDPROCCOPYPARAMS,[0]);
   AddFun('TSTOREDPROC.DESCRIPTIONSAVAILABLE',myTSTOREDPROCDESCRIPTIONSAVAILABLE,[2]);
   AddProc('TSTOREDPROC.EXECPROC',myTSTOREDPROCEXECPROC,[2]);
   AddFun('TSTOREDPROC.PARAMBYNAME',myTSTOREDPROCPARAMBYNAME,[0]);
   AddProc('TSTOREDPROC.PREPARE',myTSTOREDPROCPREPARE,[2]);
   AddProc('TSTOREDPROC.GETRESULTS',myTSTOREDPROCGETRESULTS,[2]);
   AddProc('TSTOREDPROC.UNPREPARE',myTSTOREDPROCUNPREPARE,[2]);
   AddProp('TSTOREDPROC.PARAMCOUNT',TSTOREDPROCget_PARAMCOUNT,TSTOREDPROCset_PARAMCOUNT);
   AddProp('TSTOREDPROC.STMTHANDLE',TSTOREDPROCget_STMTHANDLE,TSTOREDPROCset_STMTHANDLE);
   AddProp('TSTOREDPROC.PREPARED',TSTOREDPROCget_PREPARED,TSTOREDPROCset_PREPARED);
   AddProp('TSTOREDPROC.STOREDPROCNAME',TSTOREDPROCget_STOREDPROCNAME,TSTOREDPROCset_STOREDPROCNAME);
   AddProp('TSTOREDPROC.OVERLOAD',TSTOREDPROCget_OVERLOAD,TSTOREDPROCset_OVERLOAD);
   AddProp('TSTOREDPROC.PARAMS',TSTOREDPROCget_PARAMS,TSTOREDPROCset_PARAMS);
   AddProp('TSTOREDPROC.PARAMBINDMODE',TSTOREDPROCget_PARAMBINDMODE,TSTOREDPROCset_PARAMBINDMODE);
   AddProp('TSTOREDPROC.UPDATEOBJECT',TSTOREDPROCget_UPDATEOBJECT,TSTOREDPROCset_UPDATEOBJECT);



(*
   AddProp('TQUERY.STMTHANDLE',TQUERYget_STMTHANDLE,TQUERYset_STMTHANDLE);
   AddProp('TQUERY.SQLBINARY',TQUERYget_SQLBINARY,TQUERYset_SQLBINARY);

   *)

{   AddProc('TTABLE.LOCKTABLE',myTTABLELOCKTABLE,[0]);
   AddProc('TTABLE.UNLOCKTABLE',myTTABLEUNLOCKTABLE,[0]);
   AddProc('TTABLE.RENAMETABLE',myTTABLERENAMETABLE,[0]);
   AddProc('TTABLE.OPENINDEXFILE',myTTABLEOPENINDEXFILE,[0]);
   AddProc('TTABLE.DELETEINDEX',myTTABLEDELETEINDEX,[0]);
   AddProc('TTABLE.ADDINDEX',myTTABLEADDINDEX,[0,0,0]);
  AddProc('TTABLE.CREATETABLE',myTTABLECREATETABLE,[2]);
   AddProc('TTABLE.DELETETABLE',myTTABLEDELETETABLE,[2]);
   AddProc('TTABLE.EMPTYTABLE',myTTABLEEMPTYTABLE,[2]);
   AddProp('TTABLE.TABLETYPE',TTABLEget_TABLETYPE,TTABLEset_TABLETYPE);
   AddProp('TTABLE.INDEXFIELDCOUNT',TTABLEget_INDEXFIELDCOUNT,TTABLEset_INDEXFIELDCOUNT);
   AddProp('TTABLE.INDEXFILES',TTABLEget_INDEXFILES,TTABLEset_INDEXFILES);
   AddProp('TTABLE.INDEXDEFS',TTABLEget_INDEXDEFS,TTABLEset_INDEXDEFS);
   AddProc('TTABLE.CLOSEINDEXFILE',myTTABLECLOSEINDEXFILE,[0]);
   AddProp('TTABLE.EXCLUSIVE',TTABLEget_EXCLUSIVE,TTABLEset_EXCLUSIVE);}


end;

initialization initdbtables;
RegisterClasses([
 TQuery,TTable,TStringField,TIntegerField,TSmallintField,TWordField,TUpdateSQL,
 TFloatField,TCurrencyField,TBCDField,TBooleanField,TDateTimeField,
 TDateField,TTimeField,TBlobField,TBytesField,TVarBytesField,TMemoField,
 TGraphicField,TStoredProc,TBATCHMOVE,TPARAMS,TUPDATESQL]);
End.