h_db.pas

一个Delphi解释器的例子

Unit h_db;
Interface
Uses Delphin, DB,Classes{,asystem,ADBSYs};
Implementation
uses DbTables;
{--------------------}
function myTDATABASECLOSE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATABASE(slf).CLOSE;
End;
{--------------------}
function myTDATABASECLOSEDATASETS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATABASE(slf).CLOSEDATASETS;
End;
{--------------------}
function myTDATABASECOMMIT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATABASE(slf).COMMIT;
End;
{--------------------}
function myTDATABASEOPEN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATABASE(slf).OPEN;
End;
{--------------------}
function myTDATABASEROLLBACK(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATABASE(slf).ROLLBACK;
End;
{--------------------}
function myTDATABASESTARTTRANSACTION(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATABASE(slf).STARTTRANSACTION;
End;
{--------------------}
{--------------------}
Function TDATABASEget_DATASETCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).DATASETCOUNT;
End;

(*Function TDATABASEget_HANDLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).HANDLE;
End;

*){--------------------}
Function TDATABASEget_ISSQLBASED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).ISSQLBASED;
End;

{--------------------}
Function TDATABASEget_INTRANSACTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).INTRANSACTION;
End;

{--------------------}
Function TDATABASEget_TEMPORARY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).TEMPORARY;
End;

Function TDATABASEset_TEMPORARY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).TEMPORARY:=S[0];
End;
{--------------------}
Function TDATABASEget_ALIASNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).ALIASNAME;
End;

Function TDATABASEset_ALIASNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).ALIASNAME:=S[0];
End;
{--------------------}
Function TDATABASEget_CONNECTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).CONNECTED;
End;

Function TDATABASEset_CONNECTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).CONNECTED:=S[0];
End;
{--------------------}
Function TDATABASEget_DATABASENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).DATABASENAME;
End;

Function TDATABASEset_DATABASENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).DATABASENAME:=S[0];
End;
{--------------------}
Function TDATABASEget_DRIVERNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).DRIVERNAME;
End;

Function TDATABASEset_DRIVERNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).DRIVERNAME:=S[0];
End;
{--------------------}
Function TDATABASEget_KEEPCONNECTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).KEEPCONNECTION;
End;

Function TDATABASEset_KEEPCONNECTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).KEEPCONNECTION:=S[0];
End;
{--------------------}
Function TDATABASEget_LOGINPROMPT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).LOGINPROMPT;
End;

Function TDATABASEset_LOGINPROMPT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).LOGINPROMPT:=S[0];
End;
{--------------------}
Function TDATABASEget_PARAMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDATABASE(slf).PARAMS);
End;

Function TDATABASEset_PARAMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).PARAMS:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TDATABASEget_SESSIONNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).SESSIONNAME;
End;

Function TDATABASEset_SESSIONNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).SESSIONNAME:=S[0];
End;
{--------------------}
(*Function TDATABASEget_TRANSISOLATION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATABASE(slf).TRANSISOLATION;
End;

Function TDATABASEset_TRANSISOLATION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATABASE(slf).TRANSISOLATION:=S[0];
End;
{--------------------}
*){--------------------}
function myTDATASETAPPEND(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).APPEND;
End;
{--------------------}
function myTDATASETCANCEL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).CANCEL;
End;
{--------------------}
function myTDATASETCHECKBROWSEMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).CHECKBROWSEMODE;
End;
{--------------------}
function myTDATASETCLEARFIELDS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).CLEARFIELDS;
End;
{--------------------}
function myTDATASETCLOSE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).CLOSE;
End;
{--------------------}
function myTDATASETCONTROLSDISABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASET(slf).CONTROLSDISABLED;
End;
{--------------------}
function myTDATASETDELETE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).DELETE;
End;
{--------------------}
function myTDATASETDISABLECONTROLS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).DISABLECONTROLS;
End;
{--------------------}
function myTDATASETEDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).EDIT;
End;
{--------------------}
function myTDATASETENABLECONTROLS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).ENABLECONTROLS;
End;
{--------------------}
function myTDATASETFETCHALL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBDATASET(slf).FETCHALL;
End;
{--------------------}
function myTDATASETFIELDBYNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := ObjToVar(TDATASET(slf).FIELDBYNAME(S[0]));
End;
{--------------------}
function myTDATASETFINDFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := ObjToVar(TDATASET(slf).FINDFIELD(S[0]));
End;
{--------------------}
function myTDATASETFINDFIRST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASET(slf).FINDFIRST;
End;
{--------------------}
function myTDATASETFINDLAST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASET(slf).FINDLAST;
End;
{--------------------}
function myTDATASETFINDNEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASET(slf).FINDNEXT;
End;
{--------------------}
function myTDATASETFINDPRIOR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASET(slf).FINDPRIOR;
End;
{--------------------}
function myTDATASETFIRST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).FIRST;
End;
{--------------------}
function myTDATASETGETFIELDNAMES(slf:TObject;var APropName:String;var s:array of variant):variant;
var ST : TStrings;
begin
 ST := TStrings(VarToObj(S[0]));
 TDATASET(slf).GETFIELDNAMES(ST);
End;
{--------------------}
function myTDATASETINSERT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).INSERT;
End;
{--------------------}
function myTDATASETINSERTRECORD(slf:TObject;var APropName:String;var s:array of variant):variant;
var R:Array[0..100] of tvarrec;
    maxr:integer;
begin
 VarToConsts(S[0],R,maxR);
 TDATASET(slf).INSERTRECORD(slice(r,maxr));
 disposeconsts(R,maxr);
end;

{--------------------}
function myTDATASETLAST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).LAST;
End;
{--------------------}
function myTDATASETLOCATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
//   !!!!
 Result := TDATASET(slf).LOCATE(S[0],S[1],[]);
End;
{--------------------}
function myTDATASETLOOKUP(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASET(slf).LOOKUP(S[0],S[1],S[2]);
End;
{--------------------}
function myTDATASETMOVEBY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASET(slf).MOVEBY(S[0]);
End;
{--------------------}
function myTDATASETNEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).NEXT;
End;
{--------------------}
function myTDATASETOPEN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).OPEN;
End;
{--------------------}
function myTDATASETPOST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).POST;
End;
{--------------------}
function myTDATASETPRIOR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).PRIOR;
End;
{--------------------}
function myTDATASETREFRESH(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).REFRESH;
End;
{--------------------}
function myTDATASETUPDATECURSORPOS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).UPDATECURSORPOS;
End;
{--------------------}
function myTDATASETUPDATERECORD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASET(slf).UPDATERECORD;
End;
{--------------------}
function myTDATASETAPPLYUPDATES(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBDATASET(slf).APPLYUPDATES;
End;
{--------------------}
function myTDATASETCOMMITUPDATES(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBDATASET(slf).COMMITUPDATES;
End;
{--------------------}
function myTDATASETCANCELUPDATES(slf:TObject;var APropName:String;var s:array of variant):variant;
begin