Programlama yapalım ve Öğrenelim.

DBSearch

unit DBSearch;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Db, DbCtrls;

type

TCustomSearchEdit = class(TCustomEdit)

private

{ Private declarations }

FDataLink: TFieldDataLink;

FSearchOptions: TLocateOptions;

procedure DataChange(Sender : Tobject);

function GetDataSource : TDataSource;

function GetDataField : string;

procedure SetDataSource(Value : TDataSource);

procedure SetDataField(const Value : string);

procedure SetSearchOptions(const Value :TLocateOptions);

procedure CMChanged(var Message: TMessage); message CM_CHANGED;

protected

{ Protected declarations }

public

{ Public declarations }

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

property SearchOptions: TLocateOptions read FSearchOptions

write SetSearchOptions default [loCaseInsensitive, loPartialKey];

published

{ Published declarations }

property DataSource: TDataSource read GetDataSource write SetDataSource;

property DataField: string read GetDataField write SetDataField;

property TabStop default True;

end;

TSearchEdit = class(TCustomSearchEdit)

published

property SearchOptions default [loCaseInsensitive, loPartialKey];

property AutoSelect;

property AutoSize;

property BorderStyle;

property CharCase;

property Color;

property Ctl3D;

property DragCursor;

property DragMode;

property Enabled;

property Font;

property HideSelection;

property ImeMode;

property ImeName;

property MaxLength;

property OEMConvert;

property ParentColor;

property ParentCtl3D;

property ParentFont;

property ParentShowHint;

property PasswordChar;

property PopupMenu;

property ReadOnly;

property ShowHint;

property TabOrder;

property TabStop;

property Text;

property Visible;

property OnChange;

property OnClick;

property OnDblClick;

property OnDragDrop;

property OnDragOver;

property OnEndDrag;

property OnEnter;

property OnExit;

property OnKeyDown;

property OnKeyPress;

property OnKeyUp;

property OnMouseDown;

property OnMouseMove;

property OnMouseUp;

property OnStartDrag;

end;

procedure Register;

implementation

constructor TCustomSearchEdit.Create;

begin

inherited Create(AOwner);

FDataLink := TFieldDataLink.Create;

FDataLink.Control := Self;

FDataLink.OnDataChange := DataChange;

FSearchOptions := [loCaseInsensitive, loPartialKey];

end;

destructor TCustomSearchEdit.Destroy;

begin

FDataLink.Free;

FDataLink := nil;

inherited Destroy;

end;

procedure TCustomSearchEdit.DataChange(Sender: TObject);

begin

if FDataLink.Field <> nil then

begin

if Screen.ActiveControl <> Self then

begin

if FDataLink.CanModify then

Text := FDataLink.Field.Text

else

begin

Text := FDataLink.Field.DisplayText;

end;

SelectAll;

end;

end else

begin

if csDesigning in ComponentState then

Text := Name else

Text := '';

end;

procedure TCustomSearchEdit.CMChanged;

begin

if not ((csDesigning in ComponentState) and

(csLoading in ComponentState)) then

begin

if Screen.ActiveControl = Self then

FDataLink.DataSet.Locate(FDataLink.FieldName, Text,

FSearchOptions);

end;

function TCustomSearchEdit.GetDataSource: TDataSource;

begin

Result := FDataLink.DataSource;

end;

procedure TCustomSearchEdit.SetDataSource(Value: TDataSource);

begin

FDataLink.DataSource := Value;

if Value <> nil then Value.FreeNotification(Self);

end;

function TCustomSearchEdit.GetDataField: string;

begin

Result := FDataLink.FieldName;

end;

procedure TCustomSearchEdit.SetDataField(const Value: string);

begin

FDataLink.FieldName := Value;

end;

procedure TCustomSearchEdit.SetSearchOptions(const Value :TLocateOptions);

begin

FSearchOptions := Value;

end;

procedure Register;

begin

RegisterComponents('Technisoft', [TSearchEdit]);

end;

end.

Delphi - .....................................

ADODB_TLB

unit ADODB_TLB;

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;

// *********************************************************************//

// GUIDS declared in the TypeLibrary. Following prefixes are used: //

// Type Libraries : LIBID_xxxx //

// CoClasses : CLASS_xxxx //

// DISPInterfaces : DIID_xxxx //

// Non-DISP interfaces: IID_xxxx //

// *********************************************************************//

const

LIBID_ADODB: TGUID = '{00000201-0000-0010-8000-00AA006D2EA4}';

IID__Collection: TGUID = '{00000512-0000-0010-8000-00AA006D2EA4}';

IID__DynaCollection: TGUID = '{00000513-0000-0010-8000-00AA006D2EA4}';

IID__ADO: TGUID = '{00000534-0000-0010-8000-00AA006D2EA4}';

IID_Properties: TGUID = '{00000504-0000-0010-8000-00AA006D2EA4}';

IID_Property_: TGUID = '{00000503-0000-0010-8000-00AA006D2EA4}';

IID_Error: TGUID = '{00000500-0000-0010-8000-00AA006D2EA4}';

IID_Errors: TGUID = '{00000501-0000-0010-8000-00AA006D2EA4}';

IID_Command15: TGUID = '{00000508-0000-0010-8000-00AA006D2EA4}';

IID_Connection15: TGUID = '{00000515-0000-0010-8000-00AA006D2EA4}';

IID__Connection: TGUID = '{00000550-0000-0010-8000-00AA006D2EA4}';

IID_Recordset15: TGUID = '{0000050E-0000-0010-8000-00AA006D2EA4}';

IID_Recordset20: TGUID = '{0000054F-0000-0010-8000-00AA006D2EA4}';

IID__Recordset: TGUID = '{00000555-0000-0010-8000-00AA006D2EA4}';

IID_Fields15: TGUID = '{00000506-0000-0010-8000-00AA006D2EA4}';

IID_Fields: TGUID = '{0000054D-0000-0010-8000-00AA006D2EA4}';

IID_Field: TGUID = '{0000054C-0000-0010-8000-00AA006D2EA4}';

IID__Parameter: TGUID = '{0000050C-0000-0010-8000-00AA006D2EA4}';

IID_Parameters: TGUID = '{0000050D-0000-0010-8000-00AA006D2EA4}';

IID__Command: TGUID = '{0000054E-0000-0010-8000-00AA006D2EA4}';

IID_ConnectionEventsVt: TGUID = '{00000402-0000-0010-8000-00AA006D2EA4}';

IID_RecordsetEventsVt: TGUID = '{00000403-0000-0010-8000-00AA006D2EA4}';

DIID_ConnectionEvents: TGUID = '{00000400-0000-0010-8000-00AA006D2EA4}';

DIID_RecordsetEvents: TGUID = '{00000266-0000-0010-8000-00AA006D2EA4}';

IID_ADOConnectionConstruction15: TGUID = '{00000516-0000-0010-8000-00AA006D2EA4}';

IID_ADOConnectionConstruction: TGUID = '{00000551-0000-0010-8000-00AA006D2EA4}';

CLASS_Connection: TGUID = '{00000514-0000-0010-8000-00AA006D2EA4}';

IID_ADOCommandConstruction: TGUID = '{00000517-0000-0010-8000-00AA006D2EA4}';

CLASS_Command: TGUID = '{00000507-0000-0010-8000-00AA006D2EA4}';

CLASS_Recordset: TGUID = '{00000535-0000-0010-8000-00AA006D2EA4}';

IID_ADORecordsetConstruction: TGUID = '{00000283-0000-0010-8000-00AA006D2EA4}';

IID_Field15: TGUID = '{00000505-0000-0010-8000-00AA006D2EA4}';

CLASS_Parameter: TGUID = '{0000050B-0000-0010-8000-00AA006D2EA4}';

// *********************************************************************//

// Declaration of Enumerations defined in Type Library //

// *********************************************************************//

// CursorTypeEnum constants

type

CursorTypeEnum = TOleEnum;

const

adOpenUnspecified = $FFFFFFFF;

adOpenForwardOnly = $00000000;

adOpenKeyset = $00000001;

adOpenDynamic = $00000002;

adOpenStatic = $00000003;

// CursorOptionEnum constants

type

CursorOptionEnum = TOleEnum;

const

adHoldRecords = $00000100;

adMovePrevious = $00000200;

adAddNew = $01000400;

adDelete = $01000800;

adUpdate = $01008000;

adBookmark = $00002000;

adApproxPosition = $00004000;

adUpdateBatch = $00010000;

adResync = $00020000;

adNotify = $00040000;

adFind = $00080000;

adSeek = $00400000;

adIndex = $00800000;

// LockTypeEnum constants

type

LockTypeEnum = TOleEnum;

const

adLockUnspecified = $FFFFFFFF;

adLockReadOnly = $00000001;

adLockPessimistic = $00000002;

adLockOptimistic = $00000003;

adLockBatchOptimistic = $00000004;

// ExecuteOptionEnum constants

type

ExecuteOptionEnum = TOleEnum;

const

adOptionUnspecified = $FFFFFFFF;

adAsyncExecute = $00000010;

adAsyncFetch = $00000020;

adAsyncFetchNonBlocking = $00000040;

adExecuteNoRecords = $00000080;

// ConnectOptionEnum constants

type

ConnectOptionEnum = TOleEnum;

const

adConnectUnspecified = $FFFFFFFF;

adAsyncConnect = $00000010;

// ObjectStateEnum constants

type

ObjectStateEnum = TOleEnum;

const

adStateClosed = $00000000;

adStateOpen = $00000001;

adStateConnecting = $00000002;

adStateExecuting = $00000004;

adStateFetching = $00000008;

// CursorLocationEnum constants

type

CursorLocationEnum = TOleEnum;

const

adUseNone = $00000001;

adUseServer = $00000002;

adUseClient = $00000003;

adUseClientBatch = $00000003;

// DataTypeEnum constants

type

DataTypeEnum = TOleEnum;

const

adEmpty = $00000000;

adTinyInt = $00000010;

adSmallInt = $00000002;

adInteger = $00000003;

adBigInt = $00000014;

adUnsignedTinyInt = $00000011;

adUnsignedSmallInt = $00000012;

adUnsignedInt = $00000013;

adUnsignedBigInt = $00000015;

adSingle = $00000004;

adDouble = $00000005;

adCurrency = $00000006;

adDecimal = $0000000E;

adNumeric = $00000083;

adBoolean = $0000000B;

adError = $0000000A;

adUserDefined = $00000084;

adVariant = $0000000C;

adIDispatch = $00000009;

adIUnknown = $0000000D;

adGUID = $00000048;

adDate = $00000007;

adDBDate = $00000085;

adDBTime = $00000086;

adDBTimeStamp = $00000087;

adBSTR = $00000008;

adChar = $00000081;

adVarChar = $000000C8;

adLongVarChar = $000000C9;

adWChar = $00000082;

adVarWChar = $000000CA;

adLongVarWChar = $000000CB;

adBinary = $00000080;

adVarBinary = $000000CC;

adLongVarBinary = $000000CD;

adChapter = $00000088;

adFileTime = $00000040;

adDBFileTime = $00000089;

adPropVariant = $0000008A;

adVarNumeric = $0000008B;

// FieldAttributeEnum constants

type

FieldAttributeEnum = TOleEnum;

const

adFldUnspecified = $FFFFFFFF;

adFldMayDefer = $00000002;

adFldUpdatable = $00000004;

adFldUnknownUpdatable = $00000008;

adFldFixed = $00000010;

adFldIsNullable = $00000020;

adFldMayBeNull = $00000040;

adFldLong = $00000080;

adFldRowID = $00000100;

adFldRowVersion = $00000200;

adFldCacheDeferred = $00001000;

adFldNegativeScale = $00004000;

adFldKeyColumn = $00008000;

// EditModeEnum constants

type

EditModeEnum = TOleEnum;

const

adEditNone = $00000000;

adEditInProgress = $00000001;

adEditAdd = $00000002;

adEditDelete = $00000004;

// RecordStatusEnum constants

type

RecordStatusEnum = TOleEnum;

const

adRecOK = $00000000;

adRecNew = $00000001;

adRecModified = $00000002;

adRecDeleted = $00000004;

adRecUnmodified = $00000008;

adRecInvalid = $00000010;

adRecMultipleChanges = $00000040;

adRecPendingChanges = $00000080;

adRecCanceled = $00000100;

adRecCantRelease = $00000400;

adRecConcurrencyViolation = $00000800;

adRecIntegrityViolation = $00001000;

adRecMaxChangesExceeded = $00002000;

adRecObjectOpen = $00004000;

adRecOutOfMemory = $00008000;

adRecPermissionDenied = $00010000;

adRecSchemaViolation = $00020000;

adRecDBDeleted = $00040000;

// GetRowsOptionEnum constants

type

GetRowsOptionEnum = TOleEnum;

const

adGetRowsRest = $FFFFFFFF;

// PositionEnum constants

type

PositionEnum = TOleEnum;

const

adPosUnknown = $FFFFFFFF;

adPosBOF = $FFFFFFFE;

adPosEOF = $FFFFFFFD;

// BookmarkEnum constants

type

BookmarkEnum = TOleEnum;

const

adBookmarkCurrent = $00000000;

adBookmarkFirst = $00000001;

adBookmarkLast = $00000002;

// MarshalOptionsEnum constants

type

MarshalOptionsEnum = TOleEnum;

const

adMarshalAll = $00000000;

adMarshalModifiedOnly = $00000001;

// AffectEnum constants

type

AffectEnum = TOleEnum;

const

adAffectCurrent = $00000001;

adAffectGroup = $00000002;

adAffectAll = $00000003;

adAffectAllChapters = $00000004;

// ResyncEnum constants

type

ResyncEnum = TOleEnum;

const

adResyncUnderlyingValues = $00000001;

adResyncAllValues = $00000002;

// CompareEnum constants

type

CompareEnum = TOleEnum;

const

adCompareLessThan = $00000000;

adCompareEqual = $00000001;

adCompareGreaterThan = $00000002;

adCompareNotEqual = $00000003;

adCompareNotComparable = $00000004;

// FilterGroupEnum constants

type

FilterGroupEnum = TOleEnum;

const

adFilterNone = $00000000;

adFilterPendingRecords = $00000001;

adFilterAffectedRecords = $00000002;

adFilterFetchedRecords = $00000003;

adFilterPredicate = $00000004;

adFilterConflictingRecords = $00000005;

// SearchDirectionEnum constants

type

SearchDirectionEnum = TOleEnum;

const

adSearchForward = $00000001;

adSearchBackward = $FFFFFFFF;

// PersistFormatEnum constants

type

PersistFormatEnum = TOleEnum;

const

adPersistADTG = $00000000;

adPersistXML = $00000001;

// StringFormatEnum constants

type

StringFormatEnum = TOleEnum;

const

adClipString = $00000002;

// ConnectPromptEnum constants

type

ConnectPromptEnum = TOleEnum;

const

adPromptAlways = $00000001;

adPromptComplete = $00000002;

adPromptCompleteRequired = $00000003;

adPromptNever = $00000004;

// ConnectModeEnum constants

type

ConnectModeEnum = TOleEnum;

const

adModeUnknown = $00000000;

adModeRead = $00000001;

adModeWrite = $00000002;

adModeReadWrite = $00000003;

adModeShareDenyRead = $00000004;

adModeShareDenyWrite = $00000008;

adModeShareExclusive = $0000000C;

adModeShareDenyNone = $00000010;

// IsolationLevelEnum constants

type

IsolationLevelEnum = TOleEnum;

const

adXactUnspecified = $FFFFFFFF;

adXactChaos = $00000010;

adXactReadUncommitted = $00000100;

adXactBrowse = $00000100;

adXactCursorStability = $00001000;

adXactReadCommitted = $00001000;

adXactRepeatableRead = $00010000;

adXactSerializable = $00100000;

adXactIsolated = $00100000;

// XactAttributeEnum constants

type

XactAttributeEnum = TOleEnum;

const

adXactCommitRetaining = $00020000;

adXactAbortRetaining = $00040000;

adXactAsyncPhaseOne = $00080000;

adXactSyncPhaseOne = $00100000;

// PropertyAttributesEnum constants

type

PropertyAttributesEnum = TOleEnum;

const

adPropNotSupported = $00000000;

adPropRequired = $00000001;

adPropOptional = $00000002;

adPropRead = $00000200;

adPropWrite = $00000400;

// ErrorValueEnum constants

type

ErrorValueEnum = TOleEnum;

const

adErrInvalidArgument = $00000BB9;

adErrNoCurrentRecord = $00000BCD;

adErrIllegalOperation = $00000C93;

adErrInTransaction = $00000CAE;

adErrFeatureNotAvailable = $00000CB3;

adErrItemNotFound = $00000CC1;

adErrObjectInCollection = $00000D27;

adErrObjectNotSet = $00000D5C;

adErrDataConversion = $00000D5D;

adErrObjectClosed = $00000E78;

adErrObjectOpen = $00000E79;

adErrProviderNotFound = $00000E7A;

adErrBoundToCommand = $00000E7B;

adErrInvalidParamInfo = $00000E7C;

adErrInvalidConnection = $00000E7D;

adErrNotReentrant = $00000E7E;

adErrStillExecuting = $00000E7F;

adErrOperationCancelled = $00000E80;

adErrStillConnecting = $00000E81;

adErrNotExecuting = $00000E83;

adErrUnsafeOperation = $00000E84;

// ParameterAttributesEnum constants

type

ParameterAttributesEnum = TOleEnum;

const

adParamSigned = $00000010;

adParamNullable = $00000040;

adParamLong = $00000080;

// ParameterDirectionEnum constants

type

ParameterDirectionEnum = TOleEnum;

const

adParamUnknown = $00000000;

adParamInput = $00000001;

adParamOutput = $00000002;

adParamInputOutput = $00000003;

adParamReturnValue = $00000004;

// CommandTypeEnum constants

type

CommandTypeEnum = TOleEnum;

const

adCmdUnspecified = $FFFFFFFF;

adCmdUnknown = $00000008;

adCmdText = $00000001;

adCmdTable = $00000002;

adCmdStoredProc = $00000004;

adCmdFile = $00000100;

adCmdTableDirect = $00000200;

// EventStatusEnum constants

type

EventStatusEnum = TOleEnum;

const

adStatusOK = $00000001;

adStatusErrorsOccurred = $00000002;

adStatusCantDeny = $00000003;

adStatusCancel = $00000004;

adStatusUnwantedEvent = $00000005;

// EventReasonEnum constants

type

EventReasonEnum = TOleEnum;

const

adRsnAddNew = $00000001;

adRsnDelete = $00000002;

adRsnUpdate = $00000003;

adRsnUndoUpdate = $00000004;

adRsnUndoAddNew = $00000005;

adRsnUndoDelete = $00000006;

adRsnRequery = $00000007;

adRsnResynch = $00000008;

adRsnClose = $00000009;

adRsnMove = $0000000A;

adRsnFirstChange = $0000000B;

adRsnMoveFirst = $0000000C;

adRsnMoveNext = $0000000D;

adRsnMovePrevious = $0000000E;

adRsnMoveLast = $0000000F;

// SchemaEnum constants

type

SchemaEnum = TOleEnum;

const

adSchemaProviderSpecific = $FFFFFFFF;

adSchemaAsserts = $00000000;

adSchemaCatalogs = $00000001;

adSchemaCharacterSets = $00000002;

adSchemaCollations = $00000003;

adSchemaColumns = $00000004;

adSchemaCheckConstraints = $00000005;

adSchemaConstraintColumnUsage = $00000006;

adSchemaConstraintTableUsage = $00000007;

adSchemaKeyColumnUsage = $00000008;

adSchemaReferentialContraints = $00000009;

adSchemaReferentialConstraints = $00000009;

adSchemaTableConstraints = $0000000A;

adSchemaColumnsDomainUsage = $0000000B;

adSchemaIndexes = $0000000C;

adSchemaColumnPrivileges = $0000000D;

adSchemaTablePrivileges = $0000000E;

adSchemaUsagePrivileges = $0000000F;

adSchemaProcedures = $00000010;

adSchemaSchemata = $00000011;

adSchemaSQLLanguages = $00000012;

adSchemaStatistics = $00000013;

adSchemaTables = $00000014;

adSchemaTranslations = $00000015;

adSchemaProviderTypes = $00000016;

adSchemaViews = $00000017;

adSchemaViewColumnUsage = $00000018;

adSchemaViewTableUsage = $00000019;

adSchemaProcedureParameters = $0000001A;

adSchemaForeignKeys = $0000001B;

adSchemaPrimaryKeys = $0000001C;

adSchemaProcedureColumns = $0000001D;

adSchemaDBInfoKeywords = $0000001E;

adSchemaDBInfoLiterals = $0000001F;

adSchemaCubes = $00000020;

adSchemaDimensions = $00000021;

adSchemaHierarchies = $00000022;

adSchemaLevels = $00000023;

adSchemaMeasures = $00000024;

adSchemaProperties = $00000025;

adSchemaMembers = $00000026;

adSchemaTrustees = $00000027;

// SeekEnum constants

type

SeekEnum = TOleEnum;

const

adSeekFirstEQ = $00000001;

adSeekLastEQ = $00000002;

adSeekAfterEQ = $00000004;

adSeekAfter = $00000008;

adSeekBeforeEQ = $00000010;

adSeekBefore = $00000020;

// ADCPROP_UPDATECRITERIA_ENUM constants

type

ADCPROP_UPDATECRITERIA_ENUM = TOleEnum;

const

adCriteriaKey = $00000000;

adCriteriaAllCols = $00000001;

adCriteriaUpdCols = $00000002;

adCriteriaTimeStamp = $00000003;

// ADCPROP_ASYNCTHREADPRIORITY_ENUM constants

type

ADCPROP_ASYNCTHREADPRIORITY_ENUM = TOleEnum;

const

adPriorityLowest = $00000001;

adPriorityBelowNormal = $00000002;

adPriorityNormal = $00000003;

adPriorityAboveNormal = $00000004;

adPriorityHighest = $00000005;

// CEResyncEnum constants

type

CEResyncEnum = TOleEnum;

const

adResyncNone = $00000000;

adResyncAutoIncrement = $00000001;

adResyncConflicts = $00000002;

adResyncUpdates = $00000004;

adResyncInserts = $00000008;

adResyncAll = $0000000F;

// ADCPROP_AUTORECALC_ENUM constants

type

ADCPROP_AUTORECALC_ENUM = TOleEnum;

const

adRecalcUpFront = $00000000;

adRecalcAlways = $00000001;

type

// *********************************************************************//

// Forward declaration of interfaces defined in Type Library //

// *********************************************************************//

_Collection = interface;

_CollectionDisp = dispinterface;

_DynaCollection = interface;

_DynaCollectionDisp = dispinterface;

_ADO = interface;

_ADODisp = dispinterface;

Properties = interface;

PropertiesDisp = dispinterface;

Property_ = interface;

Property_Disp = dispinterface;

Error = interface;

ErrorDisp = dispinterface;

Errors = interface;

ErrorsDisp = dispinterface;

Command15 = interface;

Command15Disp = dispinterface;

Connection15 = interface;

Connection15Disp = dispinterface;

_Connection = interface;

_ConnectionDisp = dispinterface;

Recordset15 = interface;

Recordset15Disp = dispinterface;

Recordset20 = interface;

Recordset20Disp = dispinterface;

_Recordset = interface;

_RecordsetDisp = dispinterface;

Fields15 = interface;

Fields15Disp = dispinterface;

Fields = interface;

FieldsDisp = dispinterface;

Field = interface;

FieldDisp = dispinterface;

_Parameter = interface;

_ParameterDisp = dispinterface;

Parameters = interface;

ParametersDisp = dispinterface;

_Command = interface;

_CommandDisp = dispinterface;

ConnectionEventsVt = interface;

RecordsetEventsVt = interface;

ConnectionEvents = dispinterface;

RecordsetEvents = dispinterface;

ADOConnectionConstruction15 = interface;

ADOConnectionConstruction = interface;

ADOCommandConstruction = interface;

ADORecordsetConstruction = interface;

Field15 = interface;

Field15Disp = dispinterface;

// *********************************************************************//

// Declaration of CoClasses defined in Type Library //

// (NOTE: Here we map each CoClass to its Default Interface) //

// *********************************************************************//

Connection = _Connection;

Command = _Command;

Recordset = _Recordset;

Parameter = _Parameter;

// *********************************************************************//

// Declaration of structures, unions and aliases. //

// *********************************************************************//

POleVariant1 = ^OleVariant; {*}

SearchDirection = SearchDirectionEnum;

// *********************************************************************//

// Interface: _Collection

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000512-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_Collection = interface(IDispatch)

['{00000512-0000-0010-8000-00AA006D2EA4}']

function Get_Count: Integer; safecall;

function _NewEnum: IUnknown; safecall;

procedure Refresh; safecall;

property Count: Integer read Get_Count;

end;

// *********************************************************************//

// DispIntf: _CollectionDisp

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000512-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_CollectionDisp = dispinterface

['{00000512-0000-0010-8000-00AA006D2EA4}']

property Count: Integer readonly dispid 1610743808;

function _NewEnum: IUnknown; dispid -4;

procedure Refresh; dispid 1610743810;

end;

// *********************************************************************//

// Interface: _DynaCollection

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000513-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_DynaCollection = interface(_Collection)

['{00000513-0000-0010-8000-00AA006D2EA4}']

procedure Append(const Object_: IDispatch); safecall;

procedure Delete(Index: OleVariant); safecall;

end;

// *********************************************************************//

// DispIntf: _DynaCollectionDisp

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000513-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_DynaCollectionDisp = dispinterface

['{00000513-0000-0010-8000-00AA006D2EA4}']

procedure Append(const Object_: IDispatch); dispid 1610809344;

procedure Delete(Index: OleVariant); dispid 1610809345;

property Count: Integer readonly dispid 1610743808;

function _NewEnum: IUnknown; dispid -4;

procedure Refresh; dispid 1610743810;

end;

// *********************************************************************//

// Interface: _ADO

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000534-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_ADO = interface(IDispatch)

['{00000534-0000-0010-8000-00AA006D2EA4}']

function Get_Properties: Properties; safecall;

property Properties: Properties read Get_Properties;

end;

// *********************************************************************//

// DispIntf: _ADODisp

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000534-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_ADODisp = dispinterface

['{00000534-0000-0010-8000-00AA006D2EA4}']

property Properties: Properties readonly dispid 500;

end;

// *********************************************************************//

// Interface: Properties

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000504-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Properties = interface(_Collection)

['{00000504-0000-0010-8000-00AA006D2EA4}']

function Get_Item(Index: OleVariant): Property_; safecall;

property Item[Index: OleVariant]: Property_ read Get_Item; default;

end;

// *********************************************************************//

// DispIntf: PropertiesDisp

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000504-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

PropertiesDisp = dispinterface

['{00000504-0000-0010-8000-00AA006D2EA4}']

property Item[Index: OleVariant]: Property_ readonly dispid 0; default;

property Count: Integer readonly dispid 1610743808;

function _NewEnum: IUnknown; dispid -4;

procedure Refresh; dispid 1610743810;

end;

// *********************************************************************//

// Interface: Property_

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000503-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Property_ = interface(IDispatch)

['{00000503-0000-0010-8000-00AA006D2EA4}']

function Get_Value: OleVariant; safecall;

procedure Set_Value(pval: OleVariant); safecall;

function Get_Name: WideString; safecall;

function Get_Type_: DataTypeEnum; safecall;

function Get_Attributes: Integer; safecall;

procedure Set_Attributes(plAttributes: Integer); safecall;

property Value: OleVariant read Get_Value write Set_Value;

property Name: WideString read Get_Name;

property Type_: DataTypeEnum read Get_Type_;

property Attributes: Integer read Get_Attributes write Set_Attributes;

end;

// *********************************************************************//

// DispIntf: Property_Disp

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000503-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Property_Disp = dispinterface

['{00000503-0000-0010-8000-00AA006D2EA4}']

property Value: OleVariant dispid 0;

property Name: WideString readonly dispid 1610743810;

property Type_: DataTypeEnum readonly dispid 1610743811;

property Attributes: Integer dispid 1610743812;

end;

// *********************************************************************//

// Interface: Error

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000500-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Error = interface(IDispatch)

['{00000500-0000-0010-8000-00AA006D2EA4}']

function Get_Number: Integer; safecall;

function Get_Source: WideString; safecall;

function Get_Description: WideString; safecall;

function Get_HelpFile: WideString; safecall;

function Get_HelpContext: Integer; safecall;

function Get_SQLState: WideString; safecall;

function Get_NativeError: Integer; safecall;

property Number: Integer read Get_Number;

property Source: WideString read Get_Source;

property Description: WideString read Get_Description;

property HelpFile: WideString read Get_HelpFile;

property HelpContext: Integer read Get_HelpContext;

property SQLState: WideString read Get_SQLState;

property NativeError: Integer read Get_NativeError;

end;

// *********************************************************************//

// DispIntf: ErrorDisp

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000500-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

ErrorDisp = dispinterface

['{00000500-0000-0010-8000-00AA006D2EA4}']

property Number: Integer readonly dispid 1610743808;

property Source: WideString readonly dispid 1610743809;

property Description: WideString readonly dispid 0;

property HelpFile: WideString readonly dispid 1610743811;

property HelpContext: Integer readonly dispid 1610743812;

property SQLState: WideString readonly dispid 1610743813;

property NativeError: Integer readonly dispid 1610743814;

end;

// *********************************************************************//

// Interface: Errors

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000501-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Errors = interface(_Collection)

['{00000501-0000-0010-8000-00AA006D2EA4}']

function Get_Item(Index: OleVariant): Error; safecall;

procedure Clear; safecall;

property Item[Index: OleVariant]: Error read Get_Item; default;

end;

// *********************************************************************//

// DispIntf: ErrorsDisp

// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000501-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

ErrorsDisp = dispinterface

['{00000501-0000-0010-8000-00AA006D2EA4}']

property Item[Index: OleVariant]: Error readonly dispid 0; default;

procedure Clear; dispid 1610809345;

property Count: Integer readonly dispid 1610743808;

function _NewEnum: IUnknown; dispid -4;

procedure Refresh; dispid 1610743810;

end;

// *********************************************************************//

// Interface: Command15

// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000508-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Command15 = interface(_ADO)

['{00000508-0000-0010-8000-00AA006D2EA4}']

function Get_ActiveConnection: _Connection; safecall;

procedure Set_ActiveConnection(const ppvObject: _Connection); safecall;

procedure _Set_ActiveConnection(ppvObject: OleVariant); safecall;

function Get_CommandText: WideString; safecall;

procedure Set_CommandText(const pbstr: WideString); safecall;

function Get_CommandTimeout: Integer; safecall;

procedure Set_CommandTimeout(pl: Integer); safecall;

function Get_Prepared: WordBool; safecall;

procedure Set_Prepared(pfPrepared: WordBool); safecall;

function Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): _Recordset; safecall;

function CreateParameter(const Name: WideString; Type_: DataTypeEnum;

Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant): _Parameter; safecall;

function Get_Parameters: Parameters; safecall;

procedure Set_CommandType(plCmdType: CommandTypeEnum); safecall;

function Get_CommandType: CommandTypeEnum; safecall;

function Get_Name: WideString; safecall;

procedure Set_Name(const pbstrName: WideString); safecall;

property CommandText: WideString read Get_CommandText write Set_CommandText;

property CommandTimeout: Integer read Get_CommandTimeout write Set_CommandTimeout;

property Prepared: WordBool read Get_Prepared write Set_Prepared;

property Parameters: Parameters read Get_Parameters;

property CommandType: CommandTypeEnum read Get_CommandType write Set_CommandType;

property Name: WideString read Get_Name write Set_Name;

end;

// *********************************************************************//

// DispIntf: Command15Disp

// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable

// GUID: {00000508-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Command15Disp = dispinterface

['{00000508-0000-0010-8000-00AA006D2EA4}']

function ActiveConnection: _Connection; dispid 1610809344;

property CommandText: WideString dispid 1610809347;

property CommandTimeout: Integer dispid 1610809349;

property Prepared: WordBool dispid 1610809351;

function Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): _Recordset; dispid 1610809353;

function CreateParameter(const Name: WideString; Type_: DataTypeEnum;

Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant): _Parameter; dispid 1610809354;

property Parameters: Parameters readonly dispid 0;

property CommandType: CommandTypeEnum dispid 1610809356;

property Name: WideString dispid 1610809358;

property Properties: Properties readonly dispid 500;

end;

// *********************************************************************//

// Interface: Connection15

// Flags: (4432) Hidden Dual OleAutomation Dispatchable

// GUID: {00000515-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Connection15 = interface(_ADO)

['{00000515-0000-0010-8000-00AA006D2EA4}']

function Get_ConnectionString: WideString; safecall;

procedure Set_ConnectionString(const pbstr: WideString); safecall;

function Get_CommandTimeout: Integer; safecall;

procedure Set_CommandTimeout(plTimeout: Integer); safecall;

function Get_ConnectionTimeout: Integer; safecall;

procedure Set_ConnectionTimeout(plTimeout: Integer); safecall;

function Get_Version: WideString; safecall;

procedure Close; safecall;

function Execute(const CommandText: WideString; out RecordsAffected: OleVariant;

Options: Integer): _Recordset; safecall;

function BeginTrans: Integer; safecall;

procedure CommitTrans; safecall;

procedure RollbackTrans; safecall;

procedure Open(const ConnectionString: WideString; const UserID: WideString;

const Password: WideString; Options: Integer); safecall;

function Get_Errors: Errors; safecall;

function Get_DefaultDatabase: WideString; safecall;

procedure Set_DefaultDatabase(const pbstr: WideString); safecall;

function Get_IsolationLevel: IsolationLevelEnum; safecall;

procedure Set_IsolationLevel(Level: IsolationLevelEnum); safecall;

function Get_Attributes: Integer; safecall;

procedure Set_Attributes(plAttr: Integer); safecall;

function Get_CursorLocation: CursorLocationEnum; safecall;

procedure Set_CursorLocation(plCursorLoc: CursorLocationEnum); safecall;

function Get_Mode: ConnectModeEnum; safecall;

procedure Set_Mode(plMode: ConnectModeEnum); safecall;

function Get_Provider: WideString; safecall;

procedure Set_Provider(const pbstr: WideString); safecall;

function Get_State: Integer; safecall;

function OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; safecall;

property ConnectionString: WideString read Get_ConnectionString write Set_ConnectionString;

property CommandTimeout: Integer read Get_CommandTimeout write Set_CommandTimeout;

property ConnectionTimeout: Integer read Get_ConnectionTimeout write Set_ConnectionTimeout;

property Version: WideString read Get_Version;

property Errors: Errors read Get_Errors;

property DefaultDatabase: WideString read Get_DefaultDatabase write Set_DefaultDatabase;

property IsolationLevel: IsolationLevelEnum read Get_IsolationLevel write Set_IsolationLevel;

property Attributes: Integer read Get_Attributes write Set_Attributes;

property CursorLocation: CursorLocationEnum read Get_CursorLocation write Set_CursorLocation;

property Mode: ConnectModeEnum read Get_Mode write Set_Mode;

property Provider: WideString read Get_Provider write Set_Provider;

property State: Integer read Get_State;

end;

// *********************************************************************//

// DispIntf: Connection15Disp

// Flags: (4432) Hidden Dual OleAutomation Dispatchable

// GUID: {00000515-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Connection15Disp = dispinterface

['{00000515-0000-0010-8000-00AA006D2EA4}']

property ConnectionString: WideString dispid 0;

property CommandTimeout: Integer dispid 2;

property ConnectionTimeout: Integer dispid 3;

property Version: WideString readonly dispid 4;

procedure Close; dispid 5;

function Execute(const CommandText: WideString; out RecordsAffected: OleVariant;

Options: Integer): _Recordset; dispid 6;

function BeginTrans: Integer; dispid 7;

procedure CommitTrans; dispid 8;

procedure RollbackTrans; dispid 9;

procedure Open(const ConnectionString: WideString; const UserID: WideString;

const Password: WideString; Options: Integer); dispid 10;

property Errors: Errors readonly dispid 11;

property DefaultDatabase: WideString dispid 12;

property IsolationLevel: IsolationLevelEnum dispid 13;

property Attributes: Integer dispid 14;

property CursorLocation: CursorLocationEnum dispid 15;

property Mode: ConnectModeEnum dispid 16;

property Provider: WideString dispid 17;

property State: Integer readonly dispid 18;

function OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; dispid 19;

property Properties: Properties readonly dispid 500;

end;

// *********************************************************************//

// Interface: _Connection

// Flags: (4416) Dual OleAutomation Dispatchable

// GUID: {00000550-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_Connection = interface(Connection15)

['{00000550-0000-0010-8000-00AA006D2EA4}']

procedure Cancel; safecall;

end;

// *********************************************************************//

// DispIntf: _ConnectionDisp

// Flags: (4416) Dual OleAutomation Dispatchable

// GUID: {00000550-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

_ConnectionDisp = dispinterface

['{00000550-0000-0010-8000-00AA006D2EA4}']

procedure Cancel; dispid 21;

property ConnectionString: WideString dispid 0;

property CommandTimeout: Integer dispid 2;

property ConnectionTimeout: Integer dispid 3;

property Version: WideString readonly dispid 4;

procedure Close; dispid 5;

function Execute(const CommandText: WideString; out RecordsAffected: OleVariant;

Options: Integer): _Recordset; dispid 6;

function BeginTrans: Integer; dispid 7;

procedure CommitTrans; dispid 8;

procedure RollbackTrans; dispid 9;

procedure Open(const ConnectionString: WideString; const UserID: WideString;

const Password: WideString; Options: Integer); dispid 10;

property Errors: Errors readonly dispid 11;

property DefaultDatabase: WideString dispid 12;

property IsolationLevel: IsolationLevelEnum dispid 13;

property Attributes: Integer dispid 14;

property CursorLocation: CursorLocationEnum dispid 15;

property Mode: ConnectModeEnum dispid 16;

property Provider: WideString dispid 17;

property State: Integer readonly dispid 18;

function OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; dispid 19;

property Properties: Properties readonly dispid 500;

end;

// *********************************************************************//

// Interface: Recordset15

// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable

// GUID: {0000050E-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Recordset15 = interface(_ADO)

['{0000050E-0000-0010-8000-00AA006D2EA4}']

function Get_AbsolutePosition: PositionEnum; safecall;

procedure Set_AbsolutePosition(pl: PositionEnum); safecall;

procedure Set_ActiveConnection(const pvar: IDispatch); safecall;

procedure _Set_ActiveConnection(pvar: OleVariant); safecall;

function Get_ActiveConnection: OleVariant; safecall;

function Get_BOF: WordBool; safecall;

function Get_Bookmark: OleVariant; safecall;

procedure Set_Bookmark(pvBookmark: OleVariant); safecall;

function Get_CacheSize: Integer; safecall;

procedure Set_CacheSize(pl: Integer); safecall;

function Get_CursorType: CursorTypeEnum; safecall;

procedure Set_CursorType(plCursorType: CursorTypeEnum); safecall;

function Get_EOF: WordBool; safecall;

function Get_Fields: Fields; safecall;

function Get_LockType: LockTypeEnum; safecall;

procedure Set_LockType(plLockType: LockTypeEnum); safecall;

function Get_MaxRecords: Integer; safecall;

procedure Set_MaxRecords(plMaxRecords: Integer); safecall;

function Get_RecordCount: Integer; safecall;

procedure Set_Source(const pvSource: IDispatch); safecall;

procedure _Set_Source(const pvSource: WideString); safecall;

function Get_Source: OleVariant; safecall;

procedure AddNew(FieldList: OleVariant; Values: OleVariant); safecall;

procedure CancelUpdate; safecall;

procedure Close; safecall;

procedure Delete(AffectRecords: AffectEnum); safecall;

function GetRows(Rows: Integer; Start: OleVariant; Fields: OleVariant): OleVariant; safecall;

procedure Move(NumRecords: Integer; Start: OleVariant); safecall;

procedure MoveNext; safecall;

procedure MovePrevious; safecall;

procedure MoveFirst; safecall;

procedure MoveLast; safecall;

procedure Open(Source: OleVariant; ActiveConnection: OleVariant; CursorType: CursorTypeEnum;

LockType: LockTypeEnum; Options: Integer); safecall;

procedure Requery(Options: Integer); safecall;

procedure _xResync(AffectRecords: AffectEnum); safecall;

procedure Update(Fields: OleVariant; Values: OleVariant); safecall;

function Get_AbsolutePage: PositionEnum; safecall;

procedure Set_AbsolutePage(pl: PositionEnum); safecall;

function Get_EditMode: EditModeEnum; safecall;

function Get_Filter: OleVariant; safecall;

procedure Set_Filter(Criteria: OleVariant); safecall;

function Get_PageCount: Integer; safecall;

function Get_PageSize: Integer; safecall;

procedure Set_PageSize(pl: Integer); safecall;

function Get_Sort: WideString; safecall;

procedure Set_Sort(const Criteria: WideString); safecall;

function Get_Status: Integer; safecall;

function Get_State: Integer; safecall;

function _xClone: _Recordset; safecall;

procedure UpdateBatch(AffectRecords: AffectEnum); safecall;

procedure CancelBatch(AffectRecords: AffectEnum); safecall;

function Get_CursorLocation: CursorLocationEnum; safecall;

procedure Set_CursorLocation(plCursorLoc: CursorLocationEnum); safecall;

function NextRecordset(out RecordsAffected: OleVariant): _Recordset; safecall;

function Supports(CursorOptions: CursorOptionEnum): WordBool; safecall;

function Get_Collect(Index: OleVariant): OleVariant; safecall;

procedure Set_Collect(Index: OleVariant; pvar: OleVariant); safecall;

function Get_MarshalOptions: MarshalOptionsEnum; safecall;

procedure Set_MarshalOptions(peMarshal: MarshalOptionsEnum); safecall;

procedure Find(const Criteria: WideString; SkipRecords: Integer;

SearchDirection: SearchDirectionEnum; Start: OleVariant); safecall;

property AbsolutePosition: PositionEnum read Get_AbsolutePosition write Set_AbsolutePosition;

property BOF: WordBool read Get_BOF;

property Bookmark: OleVariant read Get_Bookmark write Set_Bookmark;

property CacheSize: Integer read Get_CacheSize write Set_CacheSize;

property CursorType: CursorTypeEnum read Get_CursorType write Set_CursorType;

property EOF: WordBool read Get_EOF;

property Fields: Fields read Get_Fields;

property LockType: LockTypeEnum read Get_LockType write Set_LockType;

property MaxRecords: Integer read Get_MaxRecords write Set_MaxRecords;

property RecordCount: Integer read Get_RecordCount;

property AbsolutePage: PositionEnum read Get_AbsolutePage write Set_AbsolutePage;

property EditMode: EditModeEnum read Get_EditMode;

property Filter: OleVariant read Get_Filter write Set_Filter;

property PageCount: Integer read Get_PageCount;

property PageSize: Integer read Get_PageSize write Set_PageSize;

property Sort: WideString read Get_Sort write Set_Sort;

property Status: Integer read Get_Status;

property State: Integer read Get_State;

property CursorLocation: CursorLocationEnum read Get_CursorLocation write Set_CursorLocation;

property Collect[Index: OleVariant]: OleVariant read Get_Collect write Set_Collect;

property MarshalOptions: MarshalOptionsEnum read Get_MarshalOptions write Set_MarshalOptions;

end;

// *********************************************************************//

// DispIntf: Recordset15Disp

// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable

// GUID: {0000050E-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Recordset15Disp = dispinterface

['{0000050E-0000-0010-8000-00AA006D2EA4}']

property AbsolutePosition: PositionEnum dispid 1000;

function ActiveConnection: IDispatch; dispid 1001;

property BOF: WordBool readonly dispid 1002;

property Bookmark: OleVariant dispid 1003;

property CacheSize: Integer dispid 1004;

property CursorType: CursorTypeEnum dispid 1005;

property EOF: WordBool readonly dispid 1006;

property Fields: Fields readonly dispid 0;

property LockType: LockTypeEnum dispid 1008;

property MaxRecords: Integer dispid 1009;

property RecordCount: Integer readonly dispid 1010;

function Source: IDispatch; dispid 1011;

procedure AddNew(FieldList: OleVariant; Values: OleVariant); dispid 1012;

procedure CancelUpdate; dispid 1013;

procedure Close; dispid 1014;

procedure Delete(AffectRecords: AffectEnum); dispid 1015;

function GetRows(Rows: Integer; Start: OleVariant; Fields: OleVariant): OleVariant; dispid 1016;

procedure Move(NumRecords: Integer; Start: OleVariant); dispid 1017;

procedure MoveNext; dispid 1018;

procedure MovePrevious; dispid 1019;

procedure MoveFirst; dispid 1020;

procedure MoveLast; dispid 1021;

procedure Open(Source: OleVariant; ActiveConnection: OleVariant; CursorType: CursorTypeEnum;

LockType: LockTypeEnum; Options: Integer); dispid 1022;

procedure Requery(Options: Integer); dispid 1023;

procedure _xResync(AffectRecords: AffectEnum); dispid 1610809378;

procedure Update(Fields: OleVariant; Values: OleVariant); dispid 1025;

property AbsolutePage: PositionEnum dispid 1047;

property EditMode: EditModeEnum readonly dispid 1026;

property Filter: OleVariant dispid 1030;

property PageCount: Integer readonly dispid 1050;

property PageSize: Integer dispid 1048;

property Sort: WideString dispid 1031;

property Status: Integer readonly dispid 1029;

property State: Integer readonly dispid 1054;

function _xClone: _Recordset; dispid 1610809392;

procedure UpdateBatch(AffectRecords: AffectEnum); dispid 1035;

procedure CancelBatch(AffectRecords: AffectEnum); dispid 1049;

property CursorLocation: CursorLocationEnum dispid 1051;

function NextRecordset(out RecordsAffected: OleVariant): _Recordset; dispid 1052;

function Supports(CursorOptions: CursorOptionEnum): WordBool; dispid 1036;

property Collect[Index: OleVariant]: OleVariant dispid -8;

property MarshalOptions: MarshalOptionsEnum dispid 1053;

procedure Find(const Criteria: WideString; SkipRecords: Integer;

SearchDirection: SearchDirectionEnum; Start: OleVariant); dispid 1058;

property Properties: Properties readonly dispid 500;

end;

// *********************************************************************//

// Interface: Recordset20

// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable

// GUID: {0000054F-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Recordset20 = interface(Recordset15)

['{0000054F-0000-0010-8000-00AA006D2EA4}']

procedure Cancel; safecall;

function Get_DataSource: IUnknown; safecall;

procedure Set_DataSource(const ppunkDataSource: IUnknown); safecall;

procedure Save(const FileName: WideString; PersistFormat: PersistFormatEnum); safecall;

function Get_ActiveCommand: IDispatch; safecall;

procedure Set_StayInSync(pbStayInSync: WordBool); safecall;

function Get_StayInSync: WordBool; safecall;

function GetString(StringFormat: StringFormatEnum; NumRows: Integer;

const ColumnDelimeter: WideString; const RowDelimeter: WideString;

const NullExpr: WideString): WideString; safecall;

function Get_DataMember: WideString; safecall;

procedure Set_DataMember(const pbstrDataMember: WideString); safecall;

function CompareBookmarks(Bookmark1: OleVariant; Bookmark2: OleVariant): CompareEnum; safecall;

function Clone(LockType: LockTypeEnum): _Recordset; safecall;

procedure Resync(AffectRecords: AffectEnum; ResyncValues: ResyncEnum); safecall;

property DataSource: IUnknown read Get_DataSource write Set_DataSource;

property ActiveCommand: IDispatch read Get_ActiveCommand;

property StayInSync: WordBool read Get_StayInSync write Set_StayInSync;

property DataMember: WideString read Get_DataMember write Set_DataMember;

end;

// *********************************************************************//

// DispIntf: Recordset20Disp

// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable

// GUID: {0000054F-0000-0010-8000-00AA006D2EA4}

// *********************************************************************//

Recordset20Disp = dispinterface

['{0000054F-0000-0010-8000-00AA006D2EA4}']

procedure Cancel; dispid 1055;

property DataSource: IUnknown dispid 1056;

procedure Save(const FileName: WideString; PersistFormat: PersistFormatEnum); dispid 1057;

property ActiveCommand: IDispatch readonly dispid 1061;

property StayInSync: WordBool dispid 1063;

function GetString(StringFormat: StringFormatEnum; NumRows: Integer;

const ColumnDelimeter: WideString; const RowDelimeter: WideString;

const NullExpr: WideString): WideString; dispid 1062;

property DataMember: WideString dispid 1064;

function CompareBookmarks(Bookmark1: OleVariant; Bookmark2: OleVariant): CompareEnum; dispid 1065;

function Clone(LockType: LockTypeEnum): _Recordset; dispid 1034;

procedure Resync(AffectRecords: AffectEnum; ResyncValues: ResyncEnum); dispid 1024;