imp_db.pas

Delphi脚本控件

function TField_ReadText:String;
begin
  result := TField(_Self).Text;
end;
procedure TField_WriteText(const Value: String);
begin
  TField(_Self).Text := Value;
end;
function TField_ReadValidChars:TFieldChars;
begin
  result := TField(_Self).ValidChars;
end;
procedure TField_WriteValidChars(const Value: TFieldChars);
begin
  TField(_Self).ValidChars := Value;
end;
function TField_ReadValue:Variant;
begin
  result := TField(_Self).Value;
end;
procedure TField_WriteValue(const Value: Variant);
begin
  TField(_Self).Value := Value;
end;
function TStringField_ReadValue:String;
begin
  result := TStringField(_Self).Value;
end;
procedure TStringField_WriteValue(const Value: String);
begin
  TStringField(_Self).Value := Value;
end;
function TWideStringField_ReadValue:WideString;
begin
  result := TWideStringField(_Self).Value;
end;
procedure TWideStringField_WriteValue(const Value: WideString);
begin
  TWideStringField(_Self).Value := Value;
end;
function TIntegerField_ReadValue:Longint;
begin
  result := TIntegerField(_Self).Value;
end;
procedure TIntegerField_WriteValue(const Value: Longint);
begin
  TIntegerField(_Self).Value := Value;
end;
function TLargeintField_ReadAsLargeInt:LargeInt;
begin
  result := TLargeintField(_Self).AsLargeInt;
end;
procedure TLargeintField_WriteAsLargeInt(const Value: LargeInt);
begin
  TLargeintField(_Self).AsLargeInt := Value;
end;
function TLargeintField_ReadValue:Largeint;
begin
  result := TLargeintField(_Self).Value;
end;
procedure TLargeintField_WriteValue(const Value: Largeint);
begin
  TLargeintField(_Self).Value := Value;
end;
function TFloatField_ReadValue:Double;
begin
  result := TFloatField(_Self).Value;
end;
procedure TFloatField_WriteValue(const Value: Double);
begin
  TFloatField(_Self).Value := Value;
end;
function TBooleanField_ReadValue:Boolean;
begin
  result := TBooleanField(_Self).Value;
end;
procedure TBooleanField_WriteValue(const Value: Boolean);
begin
  TBooleanField(_Self).Value := Value;
end;
function TDateTimeField_ReadValue:TDateTime;
begin
  result := TDateTimeField(_Self).Value;
end;
procedure TDateTimeField_WriteValue(const Value: TDateTime);
begin
  TDateTimeField(_Self).Value := Value;
end;
function TSQLTimeStampField_ReadValue:TSQLTimeStamp;
begin
  result := TSQLTimeStampField(_Self).Value;
end;
procedure TSQLTimeStampField_WriteValue(const Value: TSQLTimeStamp);
begin
  TSQLTimeStampField(_Self).Value := Value;
end;
function TBCDField_ReadValue:Currency;
begin
  result := TBCDField(_Self).Value;
end;
procedure TBCDField_WriteValue(const Value: Currency);
begin
  TBCDField(_Self).Value := Value;
end;
function TFMTBCDField_ReadValue:TBcd;
begin
  result := TFMTBCDField(_Self).Value;
end;
procedure TFMTBCDField_WriteValue(const Value: TBcd);
begin
  TFMTBCDField(_Self).Value := Value;
end;
function TBlobField_ReadBlobSize:Integer;
begin
  result := TBlobField(_Self).BlobSize;
end;
function TBlobField_ReadModified:Boolean;
begin
  result := TBlobField(_Self).Modified;
end;
procedure TBlobField_WriteModified(const Value: Boolean);
begin
  TBlobField(_Self).Modified := Value;
end;
function TBlobField_ReadValue:String;
begin
  result := TBlobField(_Self).Value;
end;
procedure TBlobField_WriteValue(const Value: String);
begin
  TBlobField(_Self).Value := Value;
end;
function TBlobField_ReadTransliterate:Boolean;
begin
  result := TBlobField(_Self).Transliterate;
end;
procedure TBlobField_WriteTransliterate(const Value: Boolean);
begin
  TBlobField(_Self).Transliterate := Value;
end;
function TObjectField_ReadFieldCount:Integer;
begin
  result := TObjectField(_Self).FieldCount;
end;
function TObjectField_ReadFields:TFields;
begin
  result := TObjectField(_Self).Fields;
end;
function TObjectField_ReadFieldValues(Index: Integer):Variant;
begin
  result := TObjectField(_Self).FieldValues[Index];
end;
procedure TObjectField_WriteFieldValues(Index: Integer;const Value: Variant);
begin
  TObjectField(_Self).FieldValues[Index] := Value;
end;
function TObjectField_ReadUnNamed:Boolean;
begin
  result := TObjectField(_Self).UnNamed;
end;
function TDataSetField_ReadNestedDataSet:TDataSet;
begin
  result := TDataSetField(_Self).NestedDataSet;
end;
function TInterfaceField_ReadValue:IUnknown;
begin
  result := TInterfaceField(_Self).Value;
end;
procedure TInterfaceField_WriteValue(const Value: IUnknown);
begin
  TInterfaceField(_Self).Value := Value;
end;
function TIDispatchField_ReadValue:IDispatch;
begin
  result := TIDispatchField(_Self).Value;
end;
procedure TIDispatchField_WriteValue(const Value: IDispatch);
begin
  TIDispatchField(_Self).Value := Value;
end;
function TGuidField_ReadAsGuid:TGUID;
begin
  result := TGuidField(_Self).AsGuid;
end;
procedure TGuidField_WriteAsGuid(const Value: TGUID);
begin
  TGuidField(_Self).AsGuid := Value;
end;
function TAggregateField_ReadHandle:Pointer;
begin
  result := TAggregateField(_Self).Handle;
end;
procedure TAggregateField_WriteHandle(const Value: Pointer);
begin
  TAggregateField(_Self).Handle := Value;
end;
function TAggregateField_ReadResultType:TFieldType;
begin
  result := TAggregateField(_Self).ResultType;
end;
procedure TAggregateField_WriteResultType(const Value: TFieldType);
begin
  TAggregateField(_Self).ResultType := Value;
end;
function TDataLink_ReadActive:Boolean;
begin
  result := TDataLink(_Self).Active;
end;
function TDataLink_ReadActiveRecord:Integer;
begin
  result := TDataLink(_Self).ActiveRecord;
end;
procedure TDataLink_WriteActiveRecord(const Value: Integer);
begin
  TDataLink(_Self).ActiveRecord := Value;
end;
function TDataLink_ReadBOF:Boolean;
begin
  result := TDataLink(_Self).BOF;
end;
function TDataLink_ReadBufferCount:Integer;
begin
  result := TDataLink(_Self).BufferCount;
end;
procedure TDataLink_WriteBufferCount(const Value: Integer);
begin
  TDataLink(_Self).BufferCount := Value;
end;
function TDataLink_ReadDataSet:TDataSet;
begin
  result := TDataLink(_Self).DataSet;
end;
function TDataLink_ReadDataSource:TDataSource;
begin
  result := TDataLink(_Self).DataSource;
end;
procedure TDataLink_WriteDataSource(const Value: TDataSource);
begin
  TDataLink(_Self).DataSource := Value;
end;
function TDataLink_ReadDataSourceFixed:Boolean;
begin
  result := TDataLink(_Self).DataSourceFixed;
end;

procedure TDataLink_WriteDataSourceFixed(const Value: Boolean);
begin
  TDataLink(_Self).DataSourceFixed := Value;
end;
function TDataLink_ReadEditing:Boolean;
begin
  result := TDataLink(_Self).Editing;
end;
function TDataLink_ReadEof:Boolean;
begin
  result := TDataLink(_Self).Eof;
end;
function TDataLink_ReadReadOnly:Boolean;
begin
  result := TDataLink(_Self).ReadOnly;
end;
procedure TDataLink_WriteReadOnly(const Value: Boolean);
begin
  TDataLink(_Self).ReadOnly := Value;
end;
function TDataLink_ReadRecordCount:Integer;
begin
  result := TDataLink(_Self).RecordCount;
end;
function TDetailDataLink_ReadDetailDataSet:TDataSet;
begin
  result := TDetailDataLink(_Self).DetailDataSet;
end;
function TMasterDataLink_ReadFieldNames:String;
begin
  result := TMasterDataLink(_Self).FieldNames;
end;
procedure TMasterDataLink_WriteFieldNames(const Value: String);
begin
  TMasterDataLink(_Self).FieldNames := Value;
end;
function TMasterDataLink_ReadFields:TList;
begin
  result := TMasterDataLink(_Self).Fields;
end;
function TDataSource_ReadState:TDataSetState;
begin
  result := TDataSource(_Self).State;
end;
function TDataSetDesigner_ReadDataSet:TDataSet;
begin
  result := TDataSetDesigner(_Self).DataSet;
end;
function TCheckConstraints_ReadItems(Index: Integer):TCheckConstraint;
begin
  result := TCheckConstraints(_Self).Items[Index];
end;
procedure TCheckConstraints_WriteItems(Index: Integer;const Value: TCheckConstraint);
begin
  TCheckConstraints(_Self).Items[Index] := Value;
end;
function TParam_ReadAsBCD:Currency;
begin
  result := TParam(_Self).AsBCD;
end;
procedure TParam_WriteAsBCD(const Value: Currency);
begin
  TParam(_Self).AsBCD := Value;
end;
function TParam_ReadAsFMTBCD:TBcd;
begin
  result := TParam(_Self).AsFMTBCD;
end;
procedure TParam_WriteAsFMTBCD(const Value: TBcd);
begin
  TParam(_Self).AsFMTBCD := Value;
end;
function TParam_ReadAsBlob:TBlobData;
begin
  result := TParam(_Self).AsBlob;
end;
procedure TParam_WriteAsBlob(const Value: TBlobData);
begin
  TParam(_Self).AsBlob := Value;
end;
function TParam_ReadAsBoolean:Boolean;
begin
  result := TParam(_Self).AsBoolean;
end;
procedure TParam_WriteAsBoolean(const Value: Boolean);
begin
  TParam(_Self).AsBoolean := Value;
end;
function TParam_ReadAsCurrency:Currency;
begin
  result := TParam(_Self).AsCurrency;
end;
procedure TParam_WriteAsCurrency(const Value: Currency);
begin
  TParam(_Self).AsCurrency := Value;
end;
function TParam_ReadAsDate:TDateTime;
begin
  result := TParam(_Self).AsDate;
end;
procedure TParam_WriteAsDate(const Value: TDateTime);
begin
  TParam(_Self).AsDate := Value;
end;
function TParam_ReadAsDateTime:TDateTime;
begin
  result := TParam(_Self).AsDateTime;
end;
procedure TParam_WriteAsDateTime(const Value: TDateTime);
begin
  TParam(_Self).AsDateTime := Value;
end;
function TParam_ReadAsFloat:Double;
begin
  result := TParam(_Self).AsFloat;
end;
procedure TParam_WriteAsFloat(const Value: Double);
begin
  TParam(_Self).AsFloat := Value;
end;
function TParam_ReadAsInteger:LongInt;
begin
  result := TParam(_Self).AsInteger;
end;
procedure TParam_WriteAsInteger(const Value: LongInt);
begin
  TParam(_Self).AsInteger := Value;
end;
function TParam_ReadAsSmallInt:LongInt;
begin
  result := TParam(_Self).AsSmallInt;
end;
procedure TParam_WriteAsSmallInt(const Value: LongInt);
begin
  TParam(_Self).AsSmallInt := Value;
end;
function TParam_ReadAsSQLTimeStamp:TSQLTimeStamp;
begin
  result := TParam(_Self).AsSQLTimeStamp;
end;
procedure TParam_WriteAsSQLTimeStamp(const Value: TSQLTimeStamp);
begin
  TParam(_Self).AsSQLTimeStamp := Value;
end;
function TParam_ReadAsMemo:String;
begin