📄 adodb_tlb.pas
字号:
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_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 = Connection15;
Command = _Command;
Recordset = Recordset15;
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;
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 readonly 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: Connection15; safecall;
procedure _Set_ActiveConnection(const ppvObject: Connection15); 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): Recordset15; 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 ActiveConnection: Connection15 read Get_ActiveConnection;
property CommandText: WideString read Get_CommandText;
property CommandTimeout: Integer read Get_CommandTimeout;
property Prepared: WordBool read Get_Prepared;
property Parameters: Parameters read Get_Parameters;
property CommandType: CommandTypeEnum write Set_CommandType;
property Name: WideString read Get_Name;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -