imp_db.pas

Delphi脚本控件

{$IFDEF VER140}
  {$DEFINE Delphi6_UP}
{$ENDIF}

{$IFDEF VER150}
  {$DEFINE Delphi6_UP}
{$ENDIF}

{$IFDEF Delphi6_UP}
unit IMP_DB;
interface
uses
  Windows,
  SysUtils,
  Classes,
  Variants,
  MaskUtils,
  SqlTimSt,
  FMTBcd,
  DB,
  PaxScripter;
procedure RegisterIMP_DB;
implementation
function EUpdateError_ReadContext:String;
begin
  result := EUpdateError(_Self).Context;
end;
function EUpdateError_ReadErrorCode:Integer;
begin
  result := EUpdateError(_Self).ErrorCode;
end;
function EUpdateError_ReadPreviousError:Integer;
begin
  result := EUpdateError(_Self).PreviousError;
end;
function EUpdateError_ReadOriginalException:Exception;
begin
  result := EUpdateError(_Self).OriginalException;
end;
function TCustomConnection_ReadConnected:Boolean;
begin
  result := TCustomConnection(_Self).Connected;
end;
procedure TCustomConnection_WriteConnected(const Value: Boolean);
begin
  TCustomConnection(_Self).Connected := Value;
end;
function TCustomConnection_ReadDataSets(Index: Integer):TDataSet;
begin
  result := TCustomConnection(_Self).DataSets[Index];
end;
function TCustomConnection_ReadDataSetCount:Integer;
begin
  result := TCustomConnection(_Self).DataSetCount;
end;
function TCustomConnection_ReadLoginPrompt:Boolean;
begin
  result := TCustomConnection(_Self).LoginPrompt;
end;
procedure TCustomConnection_WriteLoginPrompt(const Value: Boolean);
begin
  TCustomConnection(_Self).LoginPrompt := Value;
end;
function TCustomConnection_ReadAfterConnect:TNotifyEvent;
begin
  result := TCustomConnection(_Self).AfterConnect;
end;
procedure TCustomConnection_WriteAfterConnect(const Value: TNotifyEvent);
begin
  TCustomConnection(_Self).AfterConnect := Value;
end;
function TCustomConnection_ReadBeforeConnect:TNotifyEvent;
begin
  result := TCustomConnection(_Self).BeforeConnect;
end;
procedure TCustomConnection_WriteBeforeConnect(const Value: TNotifyEvent);
begin
  TCustomConnection(_Self).BeforeConnect := Value;
end;
function TCustomConnection_ReadAfterDisconnect:TNotifyEvent;
begin
  result := TCustomConnection(_Self).AfterDisconnect;
end;
procedure TCustomConnection_WriteAfterDisconnect(const Value: TNotifyEvent);
begin
  TCustomConnection(_Self).AfterDisconnect := Value;
end;
function TCustomConnection_ReadBeforeDisconnect:TNotifyEvent;
begin
  result := TCustomConnection(_Self).BeforeDisconnect;
end;
procedure TCustomConnection_WriteBeforeDisconnect(const Value: TNotifyEvent);
begin
  TCustomConnection(_Self).BeforeDisconnect := Value;
end;
function TDefCollection_ReadDataSet:TDataSet;
begin
  result := TDefCollection(_Self).DataSet;
end;
function TDefCollection_ReadUpdated:Boolean;
begin
  result := TDefCollection(_Self).Updated;
end;
procedure TDefCollection_WriteUpdated(const Value: Boolean);
begin
  TDefCollection(_Self).Updated := Value;
end;
function TFieldDef_ReadFieldClass:TFieldClass;
begin
  result := TFieldDef(_Self).FieldClass;
end;
function TFieldDef_ReadFieldNo:Integer;
begin
  result := TFieldDef(_Self).FieldNo;
end;
procedure TFieldDef_WriteFieldNo(const Value: Integer);
begin
  TFieldDef(_Self).FieldNo := Value;
end;
function TFieldDef_ReadInternalCalcField:Boolean;
begin
  result := TFieldDef(_Self).InternalCalcField;
end;
procedure TFieldDef_WriteInternalCalcField(const Value: Boolean);
begin
  TFieldDef(_Self).InternalCalcField := Value;
end;
function TFieldDef_ReadParentDef:TFieldDef;
begin
  result := TFieldDef(_Self).ParentDef;
end;
function TFieldDef_ReadRequired:Boolean;
begin
  result := TFieldDef(_Self).Required;
end;
procedure TFieldDef_WriteRequired(const Value: Boolean);
begin
  TFieldDef(_Self).Required := Value;
end;
function TFieldDefs_ReadHiddenFields:Boolean;
begin
  result := TFieldDefs(_Self).HiddenFields;
end;
procedure TFieldDefs_WriteHiddenFields(const Value: Boolean);
begin
  TFieldDefs(_Self).HiddenFields := Value;
end;
function TFieldDefs_ReadItems(Index: Integer):TFieldDef;
begin
  result := TFieldDefs(_Self).Items[Index];
end;
procedure TFieldDefs_WriteItems(Index: Integer;const Value: TFieldDef);
begin
  TFieldDefs(_Self).Items[Index] := Value;
end;
function TFieldDefs_ReadParentDef:TFieldDef;
begin
  result := TFieldDefs(_Self).ParentDef;
end;
function TIndexDef_ReadFieldExpression:String;
begin
  result := TIndexDef(_Self).FieldExpression;
end;
function TIndexDefs_ReadItems(Index: Integer):TIndexDef;
begin
  result := TIndexDefs(_Self).Items[Index];
end;
procedure TIndexDefs_WriteItems(Index: Integer;const Value: TIndexDef);
begin
  TIndexDefs(_Self).Items[Index] := Value;
end;
function TFlatList_ReadDataSet:TDataSet;
begin
  result := TFlatList(_Self).DataSet;
end;
function TFieldDefList_ReadFieldDefs(Index: Integer):TFieldDef;
begin
  result := TFieldDefList(_Self).FieldDefs[Index];
end;
function TFieldList_ReadFields(Index: Integer):TField;
begin
  result := TFieldList(_Self).Fields[Index];
end;
function TFields_ReadCount:Integer;
begin
  result := TFields(_Self).Count;
end;
function TFields_ReadDataSet:TDataSet;
begin
  result := TFields(_Self).DataSet;
end;
function TFields_ReadFields(Index: Integer):TField;
begin
  result := TFields(_Self).Fields[Index];
end;
procedure TFields_WriteFields(Index: Integer;const Value: TField);
begin
  TFields(_Self).Fields[Index] := Value;
end;
function TField_ReadAsBCD:TBcd;
begin
  result := TField(_Self).AsBCD;
end;
procedure TField_WriteAsBCD(const Value: TBcd);
begin
  TField(_Self).AsBCD := Value;
end;
function TField_ReadAsBoolean:Boolean;
begin
  result := TField(_Self).AsBoolean;
end;
procedure TField_WriteAsBoolean(const Value: Boolean);
begin
  TField(_Self).AsBoolean := Value;
end;
function TField_ReadAsCurrency:Currency;
begin
  result := TField(_Self).AsCurrency;
end;
procedure TField_WriteAsCurrency(const Value: Currency);
begin
  TField(_Self).AsCurrency := Value;
end;
function TField_ReadAsDateTime:TDateTime;
begin
  result := TField(_Self).AsDateTime;
end;
procedure TField_WriteAsDateTime(const Value: TDateTime);
begin
  TField(_Self).AsDateTime := Value;
end;
function TField_ReadAsSQLTimeStamp:TSQLTimeStamp;
begin
  result := TField(_Self).AsSQLTimeStamp;
end;
procedure TField_WriteAsSQLTimeStamp(const Value: TSQLTimeStamp);
begin
  TField(_Self).AsSQLTimeStamp := Value;
end;
function TField_ReadAsFloat:Double;
begin
  result := TField(_Self).AsFloat;
end;
procedure TField_WriteAsFloat(const Value: Double);
begin
  TField(_Self).AsFloat := Value;
end;
function TField_ReadAsInteger:Longint;
begin
  result := TField(_Self).AsInteger;
end;
procedure TField_WriteAsInteger(const Value: Longint);
begin
  TField(_Self).AsInteger := Value;
end;
function TField_ReadAsString:String;
begin
  result := TField(_Self).AsString;
end;
procedure TField_WriteAsString(const Value: String);
begin
  TField(_Self).AsString := Value;
end;
function TField_ReadAsVariant:Variant;
begin
  result := TField(_Self).AsVariant;
end;
procedure TField_WriteAsVariant(const Value: Variant);
begin
  TField(_Self).AsVariant := Value;
end;
function TField_ReadAttributeSet:String;
begin
  result := TField(_Self).AttributeSet;
end;
procedure TField_WriteAttributeSet(const Value: String);
begin
  TField(_Self).AttributeSet := Value;
end;
function TField_ReadCalculated:Boolean;
begin
  result := TField(_Self).Calculated;
end;
procedure TField_WriteCalculated(const Value: Boolean);
begin
  TField(_Self).Calculated := Value;
end;
function TField_ReadCanModify:Boolean;
begin
  result := TField(_Self).CanModify;
end;
function TField_ReadCurValue:Variant;
begin
  result := TField(_Self).CurValue;
end;
function TField_ReadDataSet:TDataSet;
begin
  result := TField(_Self).DataSet;
end;
procedure TField_WriteDataSet(const Value: TDataSet);
begin
  TField(_Self).DataSet := Value;
end;
function TField_ReadDataSize:Integer;
begin
  result := TField(_Self).DataSize;
end;
function TField_ReadDataType:TFieldType;
begin
  result := TField(_Self).DataType;
end;
function TField_ReadDisplayName:String;
begin
  result := TField(_Self).DisplayName;
end;
function TField_ReadDisplayText:String;
begin
  result := TField(_Self).DisplayText;
end;
function TField_ReadEditMask:TEditMask;
begin
  result := TField(_Self).EditMask;
end;
procedure TField_WriteEditMask(const Value: TEditMask);
begin
  TField(_Self).EditMask := Value;
end;
function TField_ReadEditMaskPtr:TEditMask;
begin
  result := TField(_Self).EditMaskPtr;
end;
function TField_ReadFieldNo:Integer;
begin
  result := TField(_Self).FieldNo;
end;
function TField_ReadFullName:String;
begin
  result := TField(_Self).FullName;
end;
function TField_ReadIsIndexField:Boolean;
begin
  result := TField(_Self).IsIndexField;
end;
function TField_ReadIsNull:Boolean;
begin
  result := TField(_Self).IsNull;
end;
function TField_ReadLookup:Boolean;
begin
  result := TField(_Self).Lookup;
end;
procedure TField_WriteLookup(const Value: Boolean);
begin
  TField(_Self).Lookup := Value;
end;
function TField_ReadLookupList:TLookupList;
begin
  result := TField(_Self).LookupList;
end;
function TField_ReadNewValue:Variant;
begin
  result := TField(_Self).NewValue;
end;
procedure TField_WriteNewValue(const Value: Variant);
begin
  TField(_Self).NewValue := Value;
end;
function TField_ReadOffset:Integer;
begin
  result := TField(_Self).Offset;
end;
function TField_ReadOldValue:Variant;
begin
  result := TField(_Self).OldValue;
end;
function TField_ReadParentField:TObjectField;
begin
  result := TField(_Self).ParentField;
end;
procedure TField_WriteParentField(const Value: TObjectField);
begin
  TField(_Self).ParentField := Value;
end;
function TField_ReadSize:Integer;
begin
  result := TField(_Self).Size;
end;
procedure TField_WriteSize(const Value: Integer);
begin
  TField(_Self).Size := Value;
end;