⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 dts_tlb.pas

📁 delphi使用sqlserver2000中dts导入导出数据
💻 PAS
📖 第 1 页 / 共 5 页
字号:
    property PackageID: WideString read Get_PackageID;
    property Description: WideString read Get_Description write Set_Description;
    property WriteCompletionStatusToNTEventLog: WordBool read Get_WriteCompletionStatusToNTEventLog write Set_WriteCompletionStatusToNTEventLog;
    property LogFileName: WideString read Get_LogFileName write Set_LogFileName;
    property FailOnError: WordBool read Get_FailOnError write Set_FailOnError;
    property VersionID: WideString read Get_VersionID;
    property CreatorName: WideString read Get_CreatorName;
    property CreatorComputerName: WideString read Get_CreatorComputerName;
    property CreationDate: TDateTime read Get_CreationDate;
    property PackagePriorityClass: DTSPackagePriorityClass read Get_PackagePriorityClass write Set_PackagePriorityClass;
    property MaxConcurrentSteps: Integer read Get_MaxConcurrentSteps write Set_MaxConcurrentSteps;
    property LineageOptions: DTSLineageOptions read Get_LineageOptions write Set_LineageOptions;
    property UseTransaction: WordBool read Get_UseTransaction write Set_UseTransaction;
    property TransactionIsolationLevel: DTSIsolationLevel read Get_TransactionIsolationLevel write Set_TransactionIsolationLevel;
    property AutoCommitTransaction: WordBool read Get_AutoCommitTransaction write Set_AutoCommitTransaction;
    property RepositoryMetadataOptions: DTSRepositoryMetadataOptions read Get_RepositoryMetadataOptions write Set_RepositoryMetadataOptions;
    property UseOLEDBServiceComponents: WordBool read Get_UseOLEDBServiceComponents write Set_UseOLEDBServiceComponents;
  end;

// *********************************************************************//
// DispIntf:  _PackageDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {10020205-EB1C-11CF-AE6E-00AA004A34D5}
// *********************************************************************//
  _PackageDisp = dispinterface
    ['{10020205-EB1C-11CF-AE6E-00AA004A34D5}']
    property Parent: IDTSStdObject readonly dispid 2;
    property Properties: Properties readonly dispid 7;
    property Name: WideString dispid 9;
    property Steps: Steps readonly dispid 0;
    property Tasks: Tasks readonly dispid 10;
    property Connections: Connections readonly dispid 11;
    property GlobalVariables: GlobalVariables readonly dispid 12;
    property PackageID: WideString readonly dispid 20;
    property Description: WideString dispid 21;
    property WriteCompletionStatusToNTEventLog: WordBool dispid 23;
    property LogFileName: WideString dispid 24;
    property FailOnError: WordBool dispid 25;
    property VersionID: WideString readonly dispid 26;
    property CreatorName: WideString readonly dispid 31;
    property CreatorComputerName: WideString readonly dispid 32;
    property CreationDate: TDateTime readonly dispid 33;
    property PackagePriorityClass: DTSPackagePriorityClass dispid 34;
    property MaxConcurrentSteps: Integer dispid 35;
    procedure Execute; dispid 100;
    procedure SaveToStorageFile(const UNCFile: WideString; const OwnerPassword: WideString; 
                                const OperatorPassword: WideString; 
                                var pVarPersistStgOfHost: OleVariant; bReusePasswords: WordBool); dispid 101;
    procedure SaveToRepository(const RepositoryServerName: WideString; 
                               const RepositoryDatabaseName: WideString; 
                               const RepositoryUserName: WideString; 
                               const RepositoryUserPassword: WideString; 
                               Flags: DTSRepositoryStorageFlags; const CategoryID: WideString; 
                               var pVarPersistStgOfHost: OleVariant); dispid 102;
    procedure RemoveFromRepository(const RepositoryServerName: WideString; 
                                   const RepositoryDatabaseName: WideString; 
                                   const RepositoryUserName: WideString; 
                                   const RepositoryUserPassword: WideString; 
                                   const PackageID: WideString; const VersionID: WideString; 
                                   const PackageName: WideString; Flags: DTSRepositoryStorageFlags); dispid 103;
    procedure LoadFromStorageFile(const UNCFile: WideString; const Password: WideString; 
                                  const PackageID: WideString; const VersionID: WideString; 
                                  const Name: WideString; var pVarPersistStgOfHost: OleVariant); dispid 104;
    procedure LoadFromRepository(const RepositoryServerName: WideString; 
                                 const RepositoryDatabaseName: WideString; 
                                 const RepositoryUserName: WideString; 
                                 const RepositoryUserPassword: WideString; 
                                 const PackageID: WideString; const VersionID: WideString; 
                                 const PackageName: WideString; Flags: DTSRepositoryStorageFlags; 
                                 var pVarPersistStgOfHost: OleVariant); dispid 105;
    function GetSavedPackageInfos(const UNCFile: WideString): SavedPackageInfos; dispid 110;
    procedure UnInitialize; dispid 111;
    procedure SaveToSQLServer(const ServerName: WideString; const ServerUserName: WideString; 
                              const ServerPassword: WideString; Flags: DTSSQLServerStorageFlags; 
                              const PackageOwnerPassword: WideString; 
                              const PackageOperatorPassword: WideString; 
                              const PackageCategoryID: WideString; 
                              var pVarPersistStgOfHost: OleVariant; bReusePasswords: WordBool); dispid 112;
    procedure LoadFromSQLServer(const ServerName: WideString; const ServerUserName: WideString; 
                                const ServerPassword: WideString; Flags: DTSSQLServerStorageFlags; 
                                const PackagePassword: WideString; const PackageGuid: WideString; 
                                const PackageVersionGuid: WideString; 
                                const PackageName: WideString; var pVarPersistStgOfHost: OleVariant); dispid 113;
    procedure RemoveFromSQLServer(const ServerName: WideString; const ServerUserName: WideString; 
                                  const ServerPassword: WideString; 
                                  Flags: DTSSQLServerStorageFlags; const PackageGuid: WideString; 
                                  const PackageVersionGuid: WideString; 
                                  const PackageName: WideString); dispid 106;
    procedure SaveAs(const NewName: WideString); dispid 114;
    procedure GetDTSVersionInfo(out VersionMajor: Integer; out VersionMinor: Integer; 
                                out VersionBuild: Integer; out VersionComments: WideString); dispid 115;
    property LineageOptions: DTSLineageOptions dispid 27;
    property UseTransaction: WordBool dispid 28;
    property TransactionIsolationLevel: DTSIsolationLevel dispid 29;
    property AutoCommitTransaction: WordBool dispid 30;
    property RepositoryMetadataOptions: DTSRepositoryMetadataOptions dispid 36;
    property UseOLEDBServiceComponents: WordBool dispid 37;
    function GetLastExecutionLineage(out LineageShort: Integer): WideString; dispid 116;
    procedure StartPreparationForStepsExecutingOnMainThread; dispid 117;
    procedure EndPreparationForStepsExecutingOnMainThread; dispid 118;
  end;

// *********************************************************************//
// Interface: Steps
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {10020302-EB1C-11CF-AE6E-00AA004A34D5}
// *********************************************************************//
  Steps = interface(IDTSStdObject)
    ['{10020302-EB1C-11CF-AE6E-00AA004A34D5}']
    function Get_Parent: IDTSStdObject; safecall;
    function Item(Index: OleVariant): Step; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    procedure Add(const Object_: Step); safecall;
    procedure Remove(Index: OleVariant); safecall;
    procedure Insert(Position: OleVariant; const Object_: Step); safecall;
    function New: Step; safecall;
    property Parent: IDTSStdObject read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  StepsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {10020302-EB1C-11CF-AE6E-00AA004A34D5}
// *********************************************************************//
  StepsDisp = dispinterface
    ['{10020302-EB1C-11CF-AE6E-00AA004A34D5}']
    property Parent: IDTSStdObject readonly dispid 2;
    function Item(Index: OleVariant): Step; dispid 0;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 5;
    procedure Add(const Object_: Step); dispid 100;
    procedure Remove(Index: OleVariant); dispid 101;
    procedure Insert(Position: OleVariant; const Object_: Step); dispid 102;
    function New: Step; dispid 103;
  end;

// *********************************************************************//
// Interface: Step
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {10020305-EB1C-11CF-AE6E-00AA004A34D5}
// *********************************************************************//
  Step = interface(IDTSStdObject)
    ['{10020305-EB1C-11CF-AE6E-00AA004A34D5}']
    function Get_Parent: IDTSStdObject; safecall;
    function Get_Properties: Properties; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const pRetVal: WideString); safecall;
    function Get_Description: WideString; safecall;
    procedure Set_Description(const pRetVal: WideString); safecall;
    function Get_PrecedenceConstraints: PrecedenceConstraints; safecall;
    function Get_ExecutionStatus: DTSStepExecStatus; safecall;
    procedure Set_ExecutionStatus(pRetVal: DTSStepExecStatus); safecall;
    function Get_ExecutionResult: DTSStepExecResult; safecall;
    function Get_TaskName: WideString; safecall;
    procedure Set_TaskName(const pRetVal: WideString); safecall;
    function Get_CommitSuccess: WordBool; safecall;
    procedure Set_CommitSuccess(pRetVal: WordBool); safecall;
    function Get_RollbackFailure: WordBool; safecall;
    procedure Set_RollbackFailure(pRetVal: WordBool); safecall;
    function Get_ActiveXScript: WideString; safecall;
    procedure Set_ActiveXScript(const pRetVal: WideString); safecall;
    function Get_ScriptLanguage: WideString; safecall;
    procedure Set_ScriptLanguage(const pRetVal: WideString); safecall;
    function Get_FunctionName: WideString; safecall;
    procedure Set_FunctionName(const pRetVal: WideString); safecall;
    function Get_AddGlobalVariables: WordBool; safecall;
    procedure Set_AddGlobalVariables(pRetVal: WordBool); safecall;
    function Get_RelativePriority: DTSStepRelativePriority; safecall;
    procedure Set_RelativePriority(pRetVal: DTSStepRelativePriority); safecall;
    function Get_CloseConnection: WordBool; safecall;
    procedure Set_CloseConnection(pRetVal: WordBool); safecall;
    function Get_ExecuteInMainThread: WordBool; safecall;
    procedure Set_ExecuteInMainThread(pRetVal: WordBool); safecall;
    function Get_IsPackageDSORowset: WordBool; safecall;
    procedure Set_IsPackageDSORowset(pRetVal: WordBool); safecall;
    procedure Execute; safecall;
    procedure GetExecutionErrorInfo(out pErrorCode: Integer; out pbstrSource: WideString; 
                                    out pbstrDescription: WideString; 
                                    out pbstrHelpFile: WideString; out pHelpContext: Integer; 
                                    out pbstrIDofInterfaceWithError: WideString); safecall;
    function Get_JoinTransactionIfPresent: WordBool; safecall;
    procedure Set_JoinTransactionIfPresent(pRetVal: WordBool); safecall;
    function Get_StartTime: TDateTime; safecall;
    function Get_FinishTime: TDateTime; safecall;
    function Get_ExecutionTime: Double; safecall;
    function Get_DisableStep: WordBool; safecall;
    procedure Set_DisableStep(pRetVal: WordBool); safecall;
    property Parent: IDTSStdObject read Get_Parent;
    property Properties: Properties read Get_Properties;
    property Name: WideString read Get_Name write Set_Name;
    property Description: WideString read Get_Description write Set_Description;
    property PrecedenceConstraints: PrecedenceConstraints read Get_PrecedenceConstraints;
    property ExecutionStatus: DTSStepExecStatus read Get_ExecutionStatus write Set_ExecutionStatus;
    property ExecutionResult: DTSStepExecResult read Get_ExecutionResult;
    property TaskName: WideString read Get_TaskName write Set_TaskName;
    property CommitSuccess: WordBool read Get_CommitSuccess write Set_CommitSuccess;
    property RollbackFailure: WordBool read Get_RollbackFailure write Set_RollbackFailure;
    property ActiveXScript: WideString read Get_ActiveXScript write Set_ActiveXScript;
    property ScriptLanguage: WideString read Get_ScriptLanguage write Set_ScriptLanguage;
    property FunctionName: WideString read Get_FunctionName write Set_FunctionName;
    property AddGlobalVariables: WordBool read Get_AddGlobalVariables write Set_AddGlobalVariables;
    property RelativePriority: DTSStepRelativePriority read Get_RelativePriority write Set_RelativePriority;
    property CloseConnection: WordBool read Get_CloseConnection write Set_CloseConnection;
    property ExecuteInMainThread: WordBool read Get_ExecuteInMainThread write Set_ExecuteInMainThread;
    property IsPackageDSORowset: WordBool read Get_IsPackageDSORowset write Set_IsPackageDSORowset;
    property JoinTransactionIfPresent: WordBool read Get_JoinTransactionIfPresent write Set_JoinTransactionIfPresent;
    property StartTime: TDateTime read Get_StartTime;
    property FinishTime: TDateTime read Get_FinishTime;
    property ExecutionTime: Double read Get_ExecutionTime;
    property DisableStep: WordBool read Get_DisableStep write Set_DisableStep;
  end;

// *********************************************************************//
// DispIntf:  StepDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {10020305-EB1C-11CF-AE6E-00AA004A34D5}
// *********************************************************************//
  StepDisp = dispinterface
    ['{10020305-EB1C-11CF-AE6E-00AA004A34D5}']
    property Parent: IDTSStdObject readonly dispid 2;
    property Properties: Properties readonly dispid 7;
    property Name: WideString dispid 9;
    property Description: WideString dispid 24;
    property PrecedenceConstraints: PrecedenceConstraints readonly dispid 10;
    property ExecutionStatus: DTSStepExecStatus dispid 11;
    property ExecutionResult: DTSStepExecResult readonly dispid 12;
    property TaskName: WideString dispid 13;
    property CommitSuccess: WordBool dispid 14;
    property RollbackFailure: WordBool dispid 15;
    property ActiveXScript: WideString dispid 16;
    property ScriptLanguage: WideString dispid 17;
    property FunctionName: WideString dispid 20;
    property AddGlobalVariables: WordBool dispid 21;
    property RelativePriority: DTSStepRelativePriority dispid 18;
    property CloseConnection: WordBool dispid 19;
    property ExecuteInMainThread: WordBool dispid 22;
    property IsPackageDSORowset: WordBool dispid 23;
    procedure Execute; dispid 100;
    procedure GetExecutionErrorInfo(out pErrorCode: Integer; out pbstrSource: WideString; 
                                    out pbstrDescription: WideString; 
                                    out pbstrHelpFile: WideString; out pHelpContext: Integer; 
                                    out pbstrIDofInterfaceWithError: WideString); dispid 101;
    property JoinTransactionIfPresent: WordBool dispid 25;
    property StartTime: TDateTime readonly dispid 26;
    property FinishTime: TDateTime readonly dispid 27;
    property ExecutionTime: Double readonly dispid 28;
    property DisableStep: WordBool dispid 29;
  end;

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -