rm_jvinterpreter_dbtables.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 2,412 行 · 第 1/5 页

procedure TDatabase_FlushSchemaCache(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).FlushSchemaCache(Args.Values[0]);
end;

{ procedure Open; }

procedure TDatabase_Open(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).Open;
end;

{ procedure Rollback; }

procedure TDatabase_Rollback(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).Rollback;
end;

{ procedure StartTransaction; }

procedure TDatabase_StartTransaction(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).StartTransaction;
end;

{ procedure ValidateName(const Name: string); }

procedure TDatabase_ValidateName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).ValidateName(Args.Values[0]);
end;

{ property Read DataSetCount: Integer }

procedure TDatabase_Read_DataSetCount(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).DataSetCount;
end;

{ property Read DataSets[Integer]: TDBDataSet }

procedure TDatabase_Read_DataSets(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TDatabase(Args.Obj).DataSets[Args.Values[0]]);
end;

{ property Read Directory: string }

procedure TDatabase_Read_Directory(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).Directory;
end;

{ property Write Directory(Value: string) }

procedure TDatabase_Write_Directory(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).Directory := Value;
end;

{ property Read Handle: HDBIDB }

procedure TDatabase_Read_Handle(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := Longint(TDatabase(Args.Obj).Handle);
end;

{ property Write Handle(Value: HDBIDB) }

procedure TDatabase_Write_Handle(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).Handle := HDBIDB(Longint(Value));
end;

{ property Read IsSQLBased: Boolean }

procedure TDatabase_Read_IsSQLBased(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).IsSQLBased;
end;

{ property Read InTransaction: Boolean }

procedure TDatabase_Read_InTransaction(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).InTransaction;
end;

{ property Read Locale: TLocale }

procedure TDatabase_Read_Locale(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := P2V(TDatabase(Args.Obj).Locale);
end;

{ property Read Session: TSession }

procedure TDatabase_Read_Session(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TDatabase(Args.Obj).Session);
end;

{ property Read Temporary: Boolean }

procedure TDatabase_Read_Temporary(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).Temporary;
end;

{ property Write Temporary(Value: Boolean) }

procedure TDatabase_Write_Temporary(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).Temporary := Value;
end;

{ property Read SessionAlias: Boolean }

procedure TDatabase_Read_SessionAlias(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).SessionAlias;
end;

{ property Read TraceFlags: TTraceFlags }

procedure TDatabase_Read_TraceFlags(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := S2V(Word(TDatabase(Args.Obj).TraceFlags));
end;

{ property Write TraceFlags(Value: TTraceFlags) }

procedure TDatabase_Write_TraceFlags(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).TraceFlags := TTraceFlags(Word(V2S(Value)));
end;

{ property Read AliasName: string }

procedure TDatabase_Read_AliasName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).AliasName;
end;

{ property Write AliasName(Value: string) }

procedure TDatabase_Write_AliasName(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).AliasName := Value;
end;

{ property Read Connected: Boolean }

procedure TDatabase_Read_Connected(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).Connected;
end;

{ property Write Connected(Value: Boolean) }

procedure TDatabase_Write_Connected(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).Connected := Value;
end;

{ property Read DatabaseName: string }

procedure TDatabase_Read_DatabaseName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).DatabaseName;
end;

{ property Write DatabaseName(Value: string) }

procedure TDatabase_Write_DatabaseName(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).DatabaseName := Value;
end;

{ property Read DriverName: string }

procedure TDatabase_Read_DriverName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).DriverName;
end;

{ property Write DriverName(Value: string) }

procedure TDatabase_Write_DriverName(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).DriverName := Value;
end;

{$IFDEF COMPILER3_UP}

{ property Read HandleShared: Boolean }

procedure TDatabase_Read_HandleShared(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).HandleShared;
end;

{ property Write HandleShared(Value: Boolean) }

procedure TDatabase_Write_HandleShared(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).HandleShared := Value;
end;

{$ENDIF COMPILER3_UP}

{ property Read KeepConnection: Boolean }

procedure TDatabase_Read_KeepConnection(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).KeepConnection;
end;

{ property Write KeepConnection(Value: Boolean) }

procedure TDatabase_Write_KeepConnection(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).KeepConnection := Value;
end;

{ property Read LoginPrompt: Boolean }

procedure TDatabase_Read_LoginPrompt(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).LoginPrompt;
end;

{ property Write LoginPrompt(Value: Boolean) }

procedure TDatabase_Write_LoginPrompt(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).LoginPrompt := Value;
end;

{ property Read Params: TStrings }

procedure TDatabase_Read_Params(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TDatabase(Args.Obj).Params);
end;

{ property Write Params(Value: TStrings) }

procedure TDatabase_Write_Params(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).Params := V2O(Value) as TStrings;
end;

{ property Read SessionName: string }

procedure TDatabase_Read_SessionName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).SessionName;
end;

{ property Write SessionName(Value: string) }

procedure TDatabase_Write_SessionName(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).SessionName := Value;
end;

{ property Read TransIsolation: TTransIsolation }

procedure TDatabase_Read_TransIsolation(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TDatabase(Args.Obj).TransIsolation;
end;

{ property Write TransIsolation(Value: TTransIsolation) }

procedure TDatabase_Write_TransIsolation(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TDatabase(Args.Obj).TransIsolation := Value;
end;

{ TDataSetUpdateObject }

{$IFNDEF COMPILER3_UP}
type
  TBDEDataSet = TDataSet;
{$ENDIF}

{ TBDEDataSet }

{ constructor Create(AOwner: TComponent) }

procedure TBDEDataSet_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TBDEDataSet.Create(V2O(Args.Values[0]) as TComponent));
end;

{ procedure ApplyUpdates; }

procedure TBDEDataSet_ApplyUpdates(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).ApplyUpdates;
end;

{ function BookmarkValid(Bookmark: TBookmark): Boolean; }

{$IFDEF COMPILER3_UP}
procedure TBDEDataSet_BookmarkValid(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).BookmarkValid(V2P(Args.Values[0]));
end;
{$ENDIF COMPILER3_UP}

{ procedure Cancel; }

procedure TBDEDataSet_Cancel(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).Cancel;
end;

{ procedure CancelUpdates; }

procedure TBDEDataSet_CancelUpdates(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).CancelUpdates;
end;

{$IFDEF COMPILER3_UP}

{ property Read CacheBlobs: Boolean }

procedure TBDEDataSet_Read_CacheBlobs(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).CacheBlobs;
end;

{ property Write CacheBlobs(Value: Boolean) }

procedure TBDEDataSet_Write_CacheBlobs(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).CacheBlobs := Value;
end;

{ function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer; }

procedure TBDEDataSet_CompareBookmarks(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).CompareBookmarks(V2P(Args.Values[0]), V2P(Args.Values[1]));
end;

{$ENDIF COMPILER3_UP}

{ procedure CommitUpdates; }

procedure TBDEDataSet_CommitUpdates(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).CommitUpdates;
end;

{$IFDEF COMPILER3_UP}

{ function ConstraintsDisabled: Boolean; }

procedure TBDEDataSet_ConstraintsDisabled(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).ConstraintsDisabled;
end;

{ function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; }

procedure TBDEDataSet_CreateBlobStream(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TBDEDataSet(Args.Obj).CreateBlobStream(V2O(Args.Values[0]) as TField, Args.Values[1]));
end;

{ procedure DisableConstraints; }

procedure TBDEDataSet_DisableConstraints(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).DisableConstraints;
end;

{ procedure EnableConstraints; }

procedure TBDEDataSet_EnableConstraints(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).EnableConstraints;
end;

{$ENDIF COMPILER3_UP}

{ procedure FetchAll; }

procedure TBDEDataSet_FetchAll(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).FetchAll;
end;

{ procedure FlushBuffers; }

{$IFDEF COMPILER3_UP}
procedure TBDEDataSet_FlushBuffers(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).FlushBuffers;
end;
{$ENDIF COMPILER3_UP}

{ function GetCurrentRecord(Buffer: PChar): Boolean; }

procedure TBDEDataSet_GetCurrentRecord(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).GetCurrentRecord(PChar(string(Args.Values[0])));
end;

{ procedure GetIndexInfo; }

{$IFDEF COMPILER3_UP}
procedure TBDEDataSet_GetIndexInfo(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).GetIndexInfo;
end;
{$ENDIF COMPILER3_UP}

{ function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; }

procedure TBDEDataSet_Locate(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).Locate(Args.Values[0], Args.Values[1], TLocateOptions(Byte(V2S(Args.Values[2]))));
end;

{ function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; }

procedure TBDEDataSet_Lookup(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).Lookup(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

{ function IsSequenced: Boolean; }

{$IFDEF COMPILER3_UP}
procedure TBDEDataSet_IsSequenced(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).IsSequenced;
end;
{$ENDIF COMPILER3_UP}

{ procedure Post; }

procedure TBDEDataSet_Post(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).Post;
end;

{ procedure RevertRecord; }

procedure TBDEDataSet_RevertRecord(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).RevertRecord;
end;

{ function UpdateStatus: TUpdateStatus; }

procedure TBDEDataSet_UpdateStatus(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).UpdateStatus;
end;

{ procedure Translate(Src, Dest: PChar; ToOem: Boolean); }

{$IFDEF COMPILER3_UP}
procedure TBDEDataSet_Translate(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TBDEDataSet(Args.Obj).Translate(PChar(string(Args.Values[0])), PChar(string(Args.Values[1])), Args.Values[2]);
end;
{$ENDIF COMPILER3_UP}

{ property Read ExpIndex: Boolean }

procedure TBDEDataSet_Read_ExpIndex(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBDEDataSet(Args.Obj).ExpIndex;
end;