imp_db.pas

Delphi脚本控件

       'constructor Create;',
       @TLookupList.Create);
  RegisterMethod(TLookupList,
       'destructor Destroy; override;',
       @TLookupList.Destroy);
  RegisterMethod(TLookupList,
       'procedure Add(const AKey, AValue: Variant);',
       @TLookupList.Add);
  RegisterMethod(TLookupList,
       'procedure Clear;',
       @TLookupList.Clear);
  RegisterMethod(TLookupList,
       'function ValueOfKey(const AKey: Variant): Variant;',
       @TLookupList.ValueOfKey);
  // End of class TLookupList
  // Begin of class TField
  RegisterClassType(TField, H);
  RegisterMethod(TField,
       'constructor Create(AOwner: TComponent); override;',
       @TField.Create);
  RegisterMethod(TField,
       'destructor Destroy; override;',
       @TField.Destroy);
  RegisterMethod(TField,
       'procedure Assign(Source: TPersistent); override;',
       @TField.Assign);
  RegisterMethod(TField,
       'procedure AssignValue(const Value: TVarRec);',
       @TField.AssignValue);
  RegisterMethod(TField,
       'procedure Clear; virtual;',
       @TField.Clear);
  RegisterMethod(TField,
       'procedure FocusControl;',
       @TField.FocusControl);
  RegisterMethod(TField,
       'function GetParentComponent: TComponent; override;',
       @TField.GetParentComponent);
  RegisterMethod(TField,
       'function HasParent: Boolean; override;',
       @TField.HasParent);
  RegisterMethod(TField,
       'function IsBlob: Boolean; virtual;',
       @TField.IsBlob);
  RegisterMethod(TField,
       'function IsValidChar(InputChar: Char): Boolean; virtual;',
       @TField.IsValidChar);
  RegisterMethod(TField,
       'procedure RefreshLookupList;',
       @TField.RefreshLookupList);
  RegisterMethod(TField,
       'procedure SetFieldType(Value: TFieldType); virtual;',
       @TField.SetFieldType);
  RegisterMethod(TField,
       'procedure Validate(Buffer: Pointer);',
       @TField.Validate);
  RegisterMethod(TField,
       'function TField_ReadAsBCD:TBcd;',
       @TField_ReadAsBCD, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsBCD(const Value: TBcd);',
       @TField_WriteAsBCD, Fake);
  RegisterProperty(TField,
       'property AsBCD:TBcd read TField_ReadAsBCD write TField_WriteAsBCD;');
  RegisterMethod(TField,
       'function TField_ReadAsBoolean:Boolean;',
       @TField_ReadAsBoolean, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsBoolean(const Value: Boolean);',
       @TField_WriteAsBoolean, Fake);
  RegisterProperty(TField,
       'property AsBoolean:Boolean read TField_ReadAsBoolean write TField_WriteAsBoolean;');
  RegisterMethod(TField,
       'function TField_ReadAsCurrency:Currency;',
       @TField_ReadAsCurrency, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsCurrency(const Value: Currency);',
       @TField_WriteAsCurrency, Fake);
  RegisterProperty(TField,
       'property AsCurrency:Currency read TField_ReadAsCurrency write TField_WriteAsCurrency;');
  RegisterMethod(TField,
       'function TField_ReadAsDateTime:TDateTime;',
       @TField_ReadAsDateTime, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsDateTime(const Value: TDateTime);',
       @TField_WriteAsDateTime, Fake);
  RegisterProperty(TField,
       'property AsDateTime:TDateTime read TField_ReadAsDateTime write TField_WriteAsDateTime;');
  RegisterMethod(TField,
       'function TField_ReadAsSQLTimeStamp:TSQLTimeStamp;',
       @TField_ReadAsSQLTimeStamp, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsSQLTimeStamp(const Value: TSQLTimeStamp);',
       @TField_WriteAsSQLTimeStamp, Fake);
  RegisterProperty(TField,
       'property AsSQLTimeStamp:TSQLTimeStamp read TField_ReadAsSQLTimeStamp write TField_WriteAsSQLTimeStamp;');
  RegisterMethod(TField,
       'function TField_ReadAsFloat:Double;',
       @TField_ReadAsFloat, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsFloat(const Value: Double);',
       @TField_WriteAsFloat, Fake);
  RegisterProperty(TField,
       'property AsFloat:Double read TField_ReadAsFloat write TField_WriteAsFloat;');
  RegisterMethod(TField,
       'function TField_ReadAsInteger:Longint;',
       @TField_ReadAsInteger, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsInteger(const Value: Longint);',
       @TField_WriteAsInteger, Fake);
  RegisterProperty(TField,
       'property AsInteger:Longint read TField_ReadAsInteger write TField_WriteAsInteger;');
  RegisterMethod(TField,
       'function TField_ReadAsString:String;',
       @TField_ReadAsString, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsString(const Value: String);',
       @TField_WriteAsString, Fake);
  RegisterProperty(TField,
       'property AsString:String read TField_ReadAsString write TField_WriteAsString;');
  RegisterMethod(TField,
       'function TField_ReadAsVariant:Variant;',
       @TField_ReadAsVariant, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAsVariant(const Value: Variant);',
       @TField_WriteAsVariant, Fake);
  RegisterProperty(TField,
       'property AsVariant:Variant read TField_ReadAsVariant write TField_WriteAsVariant;');
  RegisterMethod(TField,
       'function TField_ReadAttributeSet:String;',
       @TField_ReadAttributeSet, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteAttributeSet(const Value: String);',
       @TField_WriteAttributeSet, Fake);
  RegisterProperty(TField,
       'property AttributeSet:String read TField_ReadAttributeSet write TField_WriteAttributeSet;');
  RegisterMethod(TField,
       'function TField_ReadCalculated:Boolean;',
       @TField_ReadCalculated, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteCalculated(const Value: Boolean);',
       @TField_WriteCalculated, Fake);
  RegisterProperty(TField,
       'property Calculated:Boolean read TField_ReadCalculated write TField_WriteCalculated;');
  RegisterMethod(TField,
       'function TField_ReadCanModify:Boolean;',
       @TField_ReadCanModify, Fake);
  RegisterProperty(TField,
       'property CanModify:Boolean read TField_ReadCanModify;');
  RegisterMethod(TField,
       'function TField_ReadCurValue:Variant;',
       @TField_ReadCurValue, Fake);
  RegisterProperty(TField,
       'property CurValue:Variant read TField_ReadCurValue;');
  RegisterMethod(TField,
       'function TField_ReadDataSet:TDataSet;',
       @TField_ReadDataSet, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteDataSet(const Value: TDataSet);',
       @TField_WriteDataSet, Fake);
  RegisterProperty(TField,
       'property DataSet:TDataSet read TField_ReadDataSet write TField_WriteDataSet;');
  RegisterMethod(TField,
       'function TField_ReadDataSize:Integer;',
       @TField_ReadDataSize, Fake);
  RegisterProperty(TField,
       'property DataSize:Integer read TField_ReadDataSize;');
  RegisterMethod(TField,
       'function TField_ReadDataType:TFieldType;',
       @TField_ReadDataType, Fake);
  RegisterProperty(TField,
       'property DataType:TFieldType read TField_ReadDataType;');
  RegisterMethod(TField,
       'function TField_ReadDisplayName:String;',
       @TField_ReadDisplayName, Fake);
  RegisterProperty(TField,
       'property DisplayName:String read TField_ReadDisplayName;');
  RegisterMethod(TField,
       'function TField_ReadDisplayText:String;',
       @TField_ReadDisplayText, Fake);
  RegisterProperty(TField,
       'property DisplayText:String read TField_ReadDisplayText;');
  RegisterMethod(TField,
       'function TField_ReadEditMask:TEditMask;',
       @TField_ReadEditMask, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteEditMask(const Value: TEditMask);',
       @TField_WriteEditMask, Fake);
  RegisterProperty(TField,
       'property EditMask:TEditMask read TField_ReadEditMask write TField_WriteEditMask;');
  RegisterMethod(TField,
       'function TField_ReadEditMaskPtr:TEditMask;',
       @TField_ReadEditMaskPtr, Fake);
  RegisterProperty(TField,
       'property EditMaskPtr:TEditMask read TField_ReadEditMaskPtr;');
  RegisterMethod(TField,
       'function TField_ReadFieldNo:Integer;',
       @TField_ReadFieldNo, Fake);
  RegisterProperty(TField,
       'property FieldNo:Integer read TField_ReadFieldNo;');
  RegisterMethod(TField,
       'function TField_ReadFullName:String;',
       @TField_ReadFullName, Fake);
  RegisterProperty(TField,
       'property FullName:String read TField_ReadFullName;');
  RegisterMethod(TField,
       'function TField_ReadIsIndexField:Boolean;',
       @TField_ReadIsIndexField, Fake);
  RegisterProperty(TField,
       'property IsIndexField:Boolean read TField_ReadIsIndexField;');
  RegisterMethod(TField,
       'function TField_ReadIsNull:Boolean;',
       @TField_ReadIsNull, Fake);
  RegisterProperty(TField,
       'property IsNull:Boolean read TField_ReadIsNull;');
  RegisterMethod(TField,
       'function TField_ReadLookup:Boolean;',
       @TField_ReadLookup, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteLookup(const Value: Boolean);',
       @TField_WriteLookup, Fake);
  RegisterProperty(TField,
       'property Lookup:Boolean read TField_ReadLookup write TField_WriteLookup;');
  RegisterMethod(TField,
       'function TField_ReadLookupList:TLookupList;',
       @TField_ReadLookupList, Fake);
  RegisterProperty(TField,
       'property LookupList:TLookupList read TField_ReadLookupList;');
  RegisterMethod(TField,
       'function TField_ReadNewValue:Variant;',
       @TField_ReadNewValue, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteNewValue(const Value: Variant);',
       @TField_WriteNewValue, Fake);
  RegisterProperty(TField,
       'property NewValue:Variant read TField_ReadNewValue write TField_WriteNewValue;');
  RegisterMethod(TField,
       'function TField_ReadOffset:Integer;',
       @TField_ReadOffset, Fake);
  RegisterProperty(TField,
       'property Offset:Integer read TField_ReadOffset;');
  RegisterMethod(TField,
       'function TField_ReadOldValue:Variant;',
       @TField_ReadOldValue, Fake);
  RegisterProperty(TField,
       'property OldValue:Variant read TField_ReadOldValue;');
  RegisterMethod(TField,
       'function TField_ReadParentField:TObjectField;',
       @TField_ReadParentField, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteParentField(const Value: TObjectField);',
       @TField_WriteParentField, Fake);
  RegisterProperty(TField,
       'property ParentField:TObjectField read TField_ReadParentField write TField_WriteParentField;');
  RegisterMethod(TField,
       'function TField_ReadSize:Integer;',
       @TField_ReadSize, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteSize(const Value: Integer);',
       @TField_WriteSize, Fake);
  RegisterProperty(TField,
       'property Size:Integer read TField_ReadSize write TField_WriteSize;');
  RegisterMethod(TField,
       'function TField_ReadText:String;',
       @TField_ReadText, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteText(const Value: String);',
       @TField_WriteText, Fake);
  RegisterProperty(TField,
       'property Text:String read TField_ReadText write TField_WriteText;');
  RegisterMethod(TField,
       'function TField_ReadValidChars:TFieldChars;',
       @TField_ReadValidChars, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteValidChars(const Value: TFieldChars);',
       @TField_WriteValidChars, Fake);
  RegisterProperty(TField,
       'property ValidChars:TFieldChars read TField_ReadValidChars write TField_WriteValidChars;');
  RegisterMethod(TField,
       'function TField_ReadValue:Variant;',
       @TField_ReadValue, Fake);
  RegisterMethod(TField,
       'procedure TField_WriteValue(const Value: Variant);',
       @TField_WriteValue, Fake);
  RegisterProperty(TField,
       'property Value:Variant read TField_ReadValue write TField_WriteValue;');
  // End of class TField
  // Begin of class TStringField
  RegisterClassType(TStringField, H);
  RegisterMethod(TStringField,
       'constructor Create(AOwner: TComponent); override;',
       @TStringField.Create);
  RegisterMethod(TStringField,
       'function TStringField_ReadValue:String;',
       @TStringField_ReadValue, Fake);
  RegisterMethod(TStringField,
       'procedure TStringField_WriteValue(const Value: String);',
       @TStringField_WriteValue, Fake);
  RegisterProperty(TStringField,
       'property Value:String read TStringField_ReadValue write TStringField_WriteValue;');
  // End of class TStringField
  // Begin of class TWideStringField
  RegisterClassType(TWideStringField, H);
  RegisterMethod(TWideStringField,
       'constructor Create(AOwner: TComponent); override;',
       @TWideStringField.Create);
  RegisterMethod(TWideStringField,
       'function TWideStringField_ReadValue:WideString;',
       @TWideStringField_ReadValue, Fake);
  RegisterMethod(TWideStringField,
       'procedure TWideStringField_WriteValue(const Value: WideString);',
       @TWideStringField_WriteValue, Fake);
  RegisterProperty(TWideStringField,
       'property Value:WideString read TWideStringField_ReadValue write TWideStringField_WriteValue;');
  // End of class TWideStringField
  // Begin of class TNumericField
  RegisterClassType(TNumericField, H);
  RegisterMethod(TNumericField,
       'constructor Create(AOwner: TComponent); override;',
       @TNumericField.Create);
  // End of class TNumericField
  // Begin of class TIntegerField
  RegisterClassType(TIntegerField, H);
  RegisterMethod(TIntegerField,
       'constructor Create(AOwner: TComponent); override;',
       @TIntegerField.Create);
  RegisterMethod(TIntegerField,
       'function TIntegerField_ReadValue:Longint;',
       @TIntegerField_ReadValue, Fake);
  RegisterMethod(TIntegerField,
       'procedure TIntegerField_WriteValue(const Value: Longint);',
       @TIntegerField_WriteValue, Fake);
  RegisterProperty(TIntegerField,
       'property Value:Longint read TIntegerField_ReadValue write TIntegerField_WriteValue;');
  // End of class TIntegerField
  // Begin of class TSmallintField
  RegisterClassType(TSmallintField, H);
  RegisterMethod(TSmallintField,
       'constructor Create(AOwner: TComponent); override;',
       @TSmallintField.Create);
  // End of class TSmallintField
  // Begin of class TLargeintField
  RegisterClassType(TLargeintField, H);
  RegisterMethod(TLargeintField,
       'constructor Create(AOwner: TComponent); override;',
       @TLargeintField.Create);
  RegisterMethod(TLargeintField,
       'function TLargeintField_ReadAsLargeInt:LargeInt;',
       @TLargeintField_ReadAsLargeInt, Fake);
  RegisterMethod(TLargeintField,
       'procedure TLargeintField_WriteAsLargeInt(const Value: LargeInt);',
       @TLargeintField_WriteAsLargeInt, Fake);
  RegisterProperty(TLargeintField,
       'property AsLargeInt:LargeInt read TLargeintField_ReadAsLargeInt write TLargeintField_WriteAsLargeInt;');
  RegisterMethod(TLargeintField,
       'function TLargeintField_ReadValue:Largeint;',
       @TLargeintField_ReadValue, Fake);
  RegisterMethod(TLargeintField,
       'procedure TLargeintField_WriteValue(const Value: Largeint);',
       @TLargeintField_WriteValue, Fake);
  RegisterProperty(TLargeintField,
       'property Value:Largeint read TLargeintField_ReadValue write TLargeintField_WriteValue;');
  // End of class TLargeintField
  // Begin of class TWordField
  RegisterClassType(TWordField, H);
  RegisterMethod(TWordField,
       'constructor Create(AOwner: TComponent); override;',
       @TWordField.Create);
  // End of class TWordField
  // Begin of class TAutoIncField
  RegisterClassType(TAutoIncField, H);
  RegisterMethod(TAutoIncField,
       'constructor Create(AOwner: TComponent); override;',
       @TAutoIncField.Create);
  // End of class TAutoIncField
  // Begin of class TFloatField
  RegisterClassType(TFloatField, H);
  RegisterMethod(TFloatField,
       'constructor Create(AOwner: TComponent); override;',
       @TFloatField.Create);
  RegisterMethod(TFloatField,
       'function TFloatField_ReadValue:Double;',
       @TFloatField_ReadValue, Fake);
  RegisterMethod(TFloatField,
       'procedure TFloatField_WriteValue(const Value: Double);',
       @TFloatField_WriteValue, Fake);
  RegisterProperty(TFloatField,
       'property Value:Double