reference.vb

来自「< SQL Server2005程序设计>」· VB 代码 · 共 1,107 行 · 第 1/5 页

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 2.0.50727.42.
'
Namespace ReportExecution
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="ReportExecutionServiceSoap", [Namespace]:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices"),  _
     System.Xml.Serialization.XmlIncludeAttribute(GetType(ParameterValueOrFieldReference))>  _
    Partial Public Class ReportExecutionService
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Private serverInfoHeaderValueField As ServerInfoHeader
        
        Private ListSecureMethodsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private executionHeaderValueField As ExecutionHeader
        
        Private LoadReportOperationCompleted As System.Threading.SendOrPostCallback
        
        Private LoadReportDefinitionOperationCompleted As System.Threading.SendOrPostCallback
        
        Private SetExecutionCredentialsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private SetExecutionParametersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private ResetExecutionOperationCompleted As System.Threading.SendOrPostCallback
        
        Private RenderOperationCompleted As System.Threading.SendOrPostCallback
        
        Private RenderStreamOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetExecutionInfoOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetDocumentMapOperationCompleted As System.Threading.SendOrPostCallback
        
        Private LoadDrillthroughTargetOperationCompleted As System.Threading.SendOrPostCallback
        
        Private ToggleItemOperationCompleted As System.Threading.SendOrPostCallback
        
        Private NavigateDocumentMapOperationCompleted As System.Threading.SendOrPostCallback
        
        Private NavigateBookmarkOperationCompleted As System.Threading.SendOrPostCallback
        
        Private FindStringOperationCompleted As System.Threading.SendOrPostCallback
        
        Private SortOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetRenderResourceOperationCompleted As System.Threading.SendOrPostCallback
        
        Private ListRenderingExtensionsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private LogonUserOperationCompleted As System.Threading.SendOrPostCallback
        
        Private LogoffOperationCompleted As System.Threading.SendOrPostCallback
        
        Private useDefaultCredentialsSetExplicitly As Boolean
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = Global.VB_Forms.My.MySettings.Default.VB_Forms_ReportExecution_ReportExecutionService
            If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
                Me.UseDefaultCredentials = true
                Me.useDefaultCredentialsSetExplicitly = false
            Else
                Me.useDefaultCredentialsSetExplicitly = true
            End If
        End Sub
        
        Public Property ServerInfoHeaderValue() As ServerInfoHeader
            Get
                Return Me.serverInfoHeaderValueField
            End Get
            Set
                Me.serverInfoHeaderValueField = value
            End Set
        End Property
        
        Public Property ExecutionHeaderValue() As ExecutionHeader
            Get
                Return Me.executionHeaderValueField
            End Get
            Set
                Me.executionHeaderValueField = value
            End Set
        End Property
        
        Public Shadows Property Url() As String
            Get
                Return MyBase.Url
            End Get
            Set
                If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true)  _
                            AndAlso (Me.useDefaultCredentialsSetExplicitly = false))  _
                            AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
                    MyBase.UseDefaultCredentials = false
                End If
                MyBase.Url = value
            End Set
        End Property
        
        Public Shadows Property UseDefaultCredentials() As Boolean
            Get
                Return MyBase.UseDefaultCredentials
            End Get
            Set
                MyBase.UseDefaultCredentials = value
                Me.useDefaultCredentialsSetExplicitly = true
            End Set
        End Property
        
        '''<remarks/>
        Public Event ListSecureMethodsCompleted As ListSecureMethodsCompletedEventHandler
        
        '''<remarks/>
        Public Event LoadReportCompleted As LoadReportCompletedEventHandler
        
        '''<remarks/>
        Public Event LoadReportDefinitionCompleted As LoadReportDefinitionCompletedEventHandler
        
        '''<remarks/>
        Public Event SetExecutionCredentialsCompleted As SetExecutionCredentialsCompletedEventHandler
        
        '''<remarks/>
        Public Event SetExecutionParametersCompleted As SetExecutionParametersCompletedEventHandler
        
        '''<remarks/>
        Public Event ResetExecutionCompleted As ResetExecutionCompletedEventHandler
        
        '''<remarks/>
        Public Event RenderCompleted As RenderCompletedEventHandler
        
        '''<remarks/>
        Public Event RenderStreamCompleted As RenderStreamCompletedEventHandler
        
        '''<remarks/>
        Public Event GetExecutionInfoCompleted As GetExecutionInfoCompletedEventHandler
        
        '''<remarks/>
        Public Event GetDocumentMapCompleted As GetDocumentMapCompletedEventHandler
        
        '''<remarks/>
        Public Event LoadDrillthroughTargetCompleted As LoadDrillthroughTargetCompletedEventHandler
        
        '''<remarks/>
        Public Event ToggleItemCompleted As ToggleItemCompletedEventHandler
        
        '''<remarks/>
        Public Event NavigateDocumentMapCompleted As NavigateDocumentMapCompletedEventHandler
        
        '''<remarks/>
        Public Event NavigateBookmarkCompleted As NavigateBookmarkCompletedEventHandler
        
        '''<remarks/>
        Public Event FindStringCompleted As FindStringCompletedEventHandler
        
        '''<remarks/>
        Public Event SortCompleted As SortCompletedEventHandler
        
        '''<remarks/>
        Public Event GetRenderResourceCompleted As GetRenderResourceCompletedEventHandler
        
        '''<remarks/>
        Public Event ListRenderingExtensionsCompleted As ListRenderingExtensionsCompletedEventHandler
        
        '''<remarks/>
        Public Event LogonUserCompleted As LogonUserCompletedEventHandler
        
        '''<remarks/>
        Public Event LogoffCompleted As LogoffCompletedEventHandler
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Lis"& _ 
            "tSecureMethods", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function ListSecureMethods() As String()
            Dim results() As Object = Me.Invoke("ListSecureMethods", New Object(-1) {})
            Return CType(results(0),String())
        End Function
        
        '''<remarks/>
        Public Overloads Sub ListSecureMethodsAsync()
            Me.ListSecureMethodsAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ListSecureMethodsAsync(ByVal userState As Object)
            If (Me.ListSecureMethodsOperationCompleted Is Nothing) Then
                Me.ListSecureMethodsOperationCompleted = AddressOf Me.OnListSecureMethodsOperationCompleted
            End If
            Me.InvokeAsync("ListSecureMethods", New Object(-1) {}, Me.ListSecureMethodsOperationCompleted, userState)
        End Sub
        
        Private Sub OnListSecureMethodsOperationCompleted(ByVal arg As Object)
            If (Not (Me.ListSecureMethodsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ListSecureMethodsCompleted(Me, New ListSecureMethodsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub