?? adointstd.pas
字號(hào):
adSchemaProperties = $00000025;
adSchemaMembers = $00000026;
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;
_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(out c: Integer): HResult; stdcall;
function _NewEnum(out ppvObject: IUnknown): HResult; stdcall;
function Refresh: HResult; stdcall;
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}']
function Append(const Object_: IDispatch): HResult; stdcall;
function Delete(Index: OleVariant): HResult; stdcall;
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(out ppvObject: Properties): HResult; stdcall;
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; out ppvObject: Property_): HResult; stdcall;
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(out pval: OleVariant): HResult; stdcall;
function Set_Value(pval: OleVariant): HResult; stdcall;
function Get_Name(out pbstr: WideString): HResult; stdcall;
function Get_type_(out ptype: DataTypeEnum): HResult; stdcall;
function Get_Attributes(out plAttributes: Integer): HResult; stdcall;
function Set_Attributes(plAttributes: Integer): HResult; stdcall;
end;
// *********************************************************************//
// DispIntf: Property_Disp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000503-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Property_Disp = dispinterface
['{00000503-0000-0010-8000-00AA006D2EA4}']
function Value: OleVariant; dispid 0;
property Name: WideString readonly dispid 1610743810;
property type_: DataTypeEnum readonly dispid 1610743811;
function 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(out pl: Integer): HResult; stdcall;
function Get_Source(out pbstr: WideString): HResult; stdcall;
function Get_Description(out pbstr: WideString): HResult; stdcall;
function Get_HelpFile(out pbstr: WideString): HResult; stdcall;
function Get_HelpContext(out pl: Integer): HResult; stdcall;
function Get_SQLState(out pbstr: WideString): HResult; stdcall;
function Get_NativeError(out pl: Integer): HResult; stdcall;
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; out ppvObject: Error): HResult; stdcall;
function Clear: HResult; stdcall;
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(out ppvObject: _Connection): HResult; stdcall;
function _Set_ActiveConnection(const ppvObject: _Connection): HResult; stdcall;
function Set_ActiveConnection(ppvObject: OleVariant): HResult; stdcall;
function Get_CommandText(out pbstr: WideString): HResult; stdcall;
function Set_CommandText(const pbstr: WideString): HResult; stdcall;
function Get_CommandTimeout(out pl: Integer): HResult; stdcall;
function Set_CommandTimeout(pl: Integer): HResult; stdcall;
function Get_Prepared(out pfPrepared: WordBool): HResult; stdcall;
function Set_Prepared(pfPrepared: WordBool): HResult; stdcall;
function Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer;
out ppiRs: _Recordset): HResult; stdcall;
function CreateParameter(const Name: WideString; Type_: DataTypeEnum;
Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant;
out ppiprm: _Parameter): HResult; stdcall;
function Get_Parameters(out ppvObject: Parameters): HResult; stdcall;
function Set_CommandType(plCmdType: CommandTypeEnum): HResult; stdcall;
function Get_CommandType(out plCmdType: CommandTypeEnum): HResult; stdcall;
function Get_Name(out pbstrName: WideString): HResult; stdcall;
function Set_Name(const pbstrName: WideString): HResult; stdcall;
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;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -