imp_db.pas

Delphi脚本控件

  result := TParam(_Self).AsMemo;
end;
procedure TParam_WriteAsMemo(const Value: String);
begin
  TParam(_Self).AsMemo := Value;
end;
function TParam_ReadAsString:String;
begin
  result := TParam(_Self).AsString;
end;
procedure TParam_WriteAsString(const Value: String);
begin
  TParam(_Self).AsString := Value;
end;
function TParam_ReadAsTime:TDateTime;
begin
  result := TParam(_Self).AsTime;
end;
procedure TParam_WriteAsTime(const Value: TDateTime);
begin
  TParam(_Self).AsTime := Value;
end;
function TParam_ReadAsWord:LongInt;
begin
  result := TParam(_Self).AsWord;
end;
procedure TParam_WriteAsWord(const Value: LongInt);
begin
  TParam(_Self).AsWord := Value;
end;
function TParam_ReadBound:Boolean;
begin
  result := TParam(_Self).Bound;
end;
procedure TParam_WriteBound(const Value: Boolean);
begin
  TParam(_Self).Bound := Value;
end;
function TParam_ReadIsNull:Boolean;
begin
  result := TParam(_Self).IsNull;
end;
function TParam_ReadNativeStr:String;
begin
  result := TParam(_Self).NativeStr;
end;
procedure TParam_WriteNativeStr(const Value: String);
begin
  TParam(_Self).NativeStr := Value;
end;
function TParam_ReadText:String;
begin
  result := TParam(_Self).Text;
end;
procedure TParam_WriteText(const Value: String);
begin
  TParam(_Self).Text := Value;
end;
function TParams_ReadItems(Index: Integer):TParam;
begin
  result := TParams(_Self).Items[Index];
end;
procedure TParams_WriteItems(Index: Integer;const Value: TParam);
begin
  TParams(_Self).Items[Index] := Value;
end;
function TParams_ReadParamValues(const ParamName: string):Variant;
begin
  result := TParams(_Self).ParamValues[ParamName];
end;
procedure TParams_WriteParamValues(const ParamName: string;const Value: Variant);
begin
  TParams(_Self).ParamValues[ParamName] := Value;
end;
function TDataSet_ReadAggFields:TFields;
begin
  result := TDataSet(_Self).AggFields;
end;
function TDataSet_ReadBof:Boolean;
begin
  result := TDataSet(_Self).Bof;
end;
function TDataSet_ReadBookmark:TBookmarkStr;
begin
  result := TDataSet(_Self).Bookmark;
end;
procedure TDataSet_WriteBookmark(const Value: TBookmarkStr);
begin
  TDataSet(_Self).Bookmark := Value;
end;
function TDataSet_ReadCanModify:Boolean;
begin
  result := TDataSet(_Self).CanModify;
end;
function TDataSet_ReadDataSetField:TDataSetField;
begin
  result := TDataSet(_Self).DataSetField;
end;
procedure TDataSet_WriteDataSetField(const Value: TDataSetField);
begin
  TDataSet(_Self).DataSetField := Value;
end;
function TDataSet_ReadDataSource:TDataSource;
begin
  result := TDataSet(_Self).DataSource;
end;
function TDataSet_ReadDefaultFields:Boolean;
begin
  result := TDataSet(_Self).DefaultFields;
end;
function TDataSet_ReadDesigner:TDataSetDesigner;
begin
  result := TDataSet(_Self).Designer;
end;
function TDataSet_ReadEof:Boolean;
begin
  result := TDataSet(_Self).Eof;
end;
function TDataSet_ReadBlockReadSize:Integer;
begin
  result := TDataSet(_Self).BlockReadSize;
end;
procedure TDataSet_WriteBlockReadSize(const Value: Integer);
begin
  TDataSet(_Self).BlockReadSize := Value;
end;
function TDataSet_ReadFieldCount:Integer;
begin
  result := TDataSet(_Self).FieldCount;
end;
function TDataSet_ReadFieldDefs:TFieldDefs;
begin
  result := TDataSet(_Self).FieldDefs;
end;
procedure TDataSet_WriteFieldDefs(const Value: TFieldDefs);
begin
  TDataSet(_Self).FieldDefs := Value;
end;
function TDataSet_ReadFieldDefList:TFieldDefList;
begin
  result := TDataSet(_Self).FieldDefList;
end;
function TDataSet_ReadFields:TFields;
begin
  result := TDataSet(_Self).Fields;
end;
function TDataSet_ReadFieldList:TFieldList;
begin
  result := TDataSet(_Self).FieldList;
end;
function TDataSet_ReadFieldValues(const FieldName: string):Variant;
begin
  result := TDataSet(_Self).FieldValues[FieldName];
end;
procedure TDataSet_WriteFieldValues(const FieldName: string;const Value: Variant);
begin
  TDataSet(_Self).FieldValues[FieldName] := Value;
end;
function TDataSet_ReadFound:Boolean;
begin
  result := TDataSet(_Self).Found;
end;
function TDataSet_ReadIsUniDirectional:Boolean;
begin
  result := TDataSet(_Self).IsUniDirectional;
end;
function TDataSet_ReadModified:Boolean;
begin
  result := TDataSet(_Self).Modified;
end;
function TDataSet_ReadObjectView:Boolean;
begin
  result := TDataSet(_Self).ObjectView;
end;
procedure TDataSet_WriteObjectView(const Value: Boolean);
begin
  TDataSet(_Self).ObjectView := Value;
end;
function TDataSet_ReadRecordCount:Integer;
begin
  result := TDataSet(_Self).RecordCount;
end;
function TDataSet_ReadRecNo:Integer;
begin
  result := TDataSet(_Self).RecNo;
end;
procedure TDataSet_WriteRecNo(const Value: Integer);
begin
  TDataSet(_Self).RecNo := Value;
end;
function TDataSet_ReadRecordSize:Word;
begin
  result := TDataSet(_Self).RecordSize;
end;
function TDataSet_ReadSparseArrays:Boolean;
begin
  result := TDataSet(_Self).SparseArrays;
end;
procedure TDataSet_WriteSparseArrays(const Value: Boolean);
begin
  TDataSet(_Self).SparseArrays := Value;
end;
function TDataSet_ReadState:TDataSetState;
begin
  result := TDataSet(_Self).State;
end;
function TDataSet_ReadFilter:String;
begin
  result := TDataSet(_Self).Filter;
end;
procedure TDataSet_WriteFilter(const Value: String);
begin
  TDataSet(_Self).Filter := Value;
end;
function TDataSet_ReadFiltered:Boolean;
begin
  result := TDataSet(_Self).Filtered;
end;
procedure TDataSet_WriteFiltered(const Value: Boolean);
begin
  TDataSet(_Self).Filtered := Value;
end;
function TDataSet_ReadFilterOptions:TFilterOptions;
begin
  result := TDataSet(_Self).FilterOptions;
end;
procedure TDataSet_WriteFilterOptions(const Value: TFilterOptions);
begin
  TDataSet(_Self).FilterOptions := Value;
end;
function TDataSet_ReadActive:Boolean;
begin
  result := TDataSet(_Self).Active;
end;
procedure TDataSet_WriteActive(const Value: Boolean);
begin
  TDataSet(_Self).Active := Value;
end;
function TDataSet_ReadAutoCalcFields:Boolean;
begin
  result := TDataSet(_Self).AutoCalcFields;
end;
procedure TDataSet_WriteAutoCalcFields(const Value: Boolean);
begin
  TDataSet(_Self).AutoCalcFields := Value;
end;
function TDataSet_ReadBeforeOpen:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeOpen;
end;
procedure TDataSet_WriteBeforeOpen(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeOpen := Value;
end;
function TDataSet_ReadAfterOpen:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterOpen;
end;
procedure TDataSet_WriteAfterOpen(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterOpen := Value;
end;
function TDataSet_ReadBeforeClose:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeClose;
end;
procedure TDataSet_WriteBeforeClose(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeClose := Value;
end;
function TDataSet_ReadAfterClose:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterClose;
end;
procedure TDataSet_WriteAfterClose(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterClose := Value;
end;
function TDataSet_ReadBeforeInsert:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeInsert;
end;
procedure TDataSet_WriteBeforeInsert(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeInsert := Value;
end;
function TDataSet_ReadAfterInsert:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterInsert;
end;
procedure TDataSet_WriteAfterInsert(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterInsert := Value;
end;
function TDataSet_ReadBeforeEdit:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeEdit;
end;
procedure TDataSet_WriteBeforeEdit(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeEdit := Value;
end;
function TDataSet_ReadAfterEdit:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterEdit;
end;
procedure TDataSet_WriteAfterEdit(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterEdit := Value;
end;
function TDataSet_ReadBeforePost:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforePost;
end;
procedure TDataSet_WriteBeforePost(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforePost := Value;
end;
function TDataSet_ReadAfterPost:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterPost;
end;
procedure TDataSet_WriteAfterPost(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterPost := Value;
end;
function TDataSet_ReadBeforeCancel:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeCancel;
end;
procedure TDataSet_WriteBeforeCancel(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeCancel := Value;
end;
function TDataSet_ReadAfterCancel:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterCancel;
end;
procedure TDataSet_WriteAfterCancel(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterCancel := Value;
end;
function TDataSet_ReadBeforeDelete:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeDelete;
end;
procedure TDataSet_WriteBeforeDelete(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeDelete := Value;
end;
function TDataSet_ReadAfterDelete:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterDelete;
end;
procedure TDataSet_WriteAfterDelete(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterDelete := Value;
end;
function TDataSet_ReadBeforeScroll:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeScroll;
end;
procedure TDataSet_WriteBeforeScroll(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeScroll := Value;
end;
function TDataSet_ReadAfterScroll:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterScroll;
end;
procedure TDataSet_WriteAfterScroll(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterScroll := Value;
end;
function TDataSet_ReadBeforeRefresh:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).BeforeRefresh;
end;
procedure TDataSet_WriteBeforeRefresh(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).BeforeRefresh := Value;
end;
function TDataSet_ReadAfterRefresh:TDataSetNotifyEvent;
begin
  result := TDataSet(_Self).AfterRefresh;
end;
procedure TDataSet_WriteAfterRefresh(const Value: TDataSetNotifyEvent);
begin
  TDataSet(_Self).AfterRefresh := Value;
end;
procedure RegisterIMP_DB;