reference.vb

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

         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Get"& _ 
            "ExecutionInfo", 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 GetExecutionInfo() As <System.Xml.Serialization.XmlElementAttribute("executionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("GetExecutionInfo", New Object(-1) {})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetExecutionInfoAsync()
            Me.GetExecutionInfoAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetExecutionInfoAsync(ByVal userState As Object)
            If (Me.GetExecutionInfoOperationCompleted Is Nothing) Then
                Me.GetExecutionInfoOperationCompleted = AddressOf Me.OnGetExecutionInfoOperationCompleted
            End If
            Me.InvokeAsync("GetExecutionInfo", New Object(-1) {}, Me.GetExecutionInfoOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetExecutionInfoOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetExecutionInfoCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetExecutionInfoCompleted(Me, New GetExecutionInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Get"& _ 
            "DocumentMap", 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 GetDocumentMap() As <System.Xml.Serialization.XmlElementAttribute("result")> DocumentMapNode
            Dim results() As Object = Me.Invoke("GetDocumentMap", New Object(-1) {})
            Return CType(results(0),DocumentMapNode)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetDocumentMapAsync()
            Me.GetDocumentMapAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetDocumentMapAsync(ByVal userState As Object)
            If (Me.GetDocumentMapOperationCompleted Is Nothing) Then
                Me.GetDocumentMapOperationCompleted = AddressOf Me.OnGetDocumentMapOperationCompleted
            End If
            Me.InvokeAsync("GetDocumentMap", New Object(-1) {}, Me.GetDocumentMapOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetDocumentMapOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetDocumentMapCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetDocumentMapCompleted(Me, New GetDocumentMapCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.InOut),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Loa"& _ 
            "dDrillthroughTarget", 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 LoadDrillthroughTarget(ByVal DrillthroughID As String) As <System.Xml.Serialization.XmlElementAttribute("ExecutionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("LoadDrillthroughTarget", New Object() {DrillthroughID})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub LoadDrillthroughTargetAsync(ByVal DrillthroughID As String)
            Me.LoadDrillthroughTargetAsync(DrillthroughID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LoadDrillthroughTargetAsync(ByVal DrillthroughID As String, ByVal userState As Object)
            If (Me.LoadDrillthroughTargetOperationCompleted Is Nothing) Then
                Me.LoadDrillthroughTargetOperationCompleted = AddressOf Me.OnLoadDrillthroughTargetOperationCompleted
            End If
            Me.InvokeAsync("LoadDrillthroughTarget", New Object() {DrillthroughID}, Me.LoadDrillthroughTargetOperationCompleted, userState)
        End Sub
        
        Private Sub OnLoadDrillthroughTargetOperationCompleted(ByVal arg As Object)
            If (Not (Me.LoadDrillthroughTargetCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent LoadDrillthroughTargetCompleted(Me, New LoadDrillthroughTargetCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Tog"& _ 
            "gleItem", 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 ToggleItem(ByVal ToggleID As String) As <System.Xml.Serialization.XmlElementAttribute("Found")> Boolean
            Dim results() As Object = Me.Invoke("ToggleItem", New Object() {ToggleID})
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Overloads Sub ToggleItemAsync(ByVal ToggleID As String)
            Me.ToggleItemAsync(ToggleID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ToggleItemAsync(ByVal ToggleID As String, ByVal userState As Object)
            If (Me.ToggleItemOperationCompleted Is Nothing) Then
                Me.ToggleItemOperationCompleted = AddressOf Me.OnToggleItemOperationCompleted
            End If
            Me.InvokeAsync("ToggleItem", New Object() {ToggleID}, Me.ToggleItemOperationCompleted, userState)
        End Sub
        
        Private Sub OnToggleItemOperationCompleted(ByVal arg As Object)
            If (Not (Me.ToggleItemCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ToggleItemCompleted(Me, New ToggleItemCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Nav"& _ 
            "igateDocumentMap", 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 NavigateDocumentMap(ByVal DocMapID As String) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("NavigateDocumentMap", New Object() {DocMapID})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub NavigateDocumentMapAsync(ByVal DocMapID As String)
            Me.NavigateDocumentMapAsync(DocMapID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub NavigateDocumentMapAsync(ByVal DocMapID As String, ByVal userState As Object)
            If (Me.NavigateDocumentMapOperationCompleted Is Nothing) Then
                Me.NavigateDocumentMapOperationCompleted = AddressOf Me.OnNavigateDocumentMapOperationCompleted
            End If
            Me.InvokeAsync("NavigateDocumentMap", New Object() {DocMapID}, Me.NavigateDocumentMapOperationCompleted, userState)
        End Sub
        
        Private Sub OnNavigateDocumentMapOperationCompleted(ByVal arg As Object)
            If (Not (Me.NavigateDocumentMapCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent NavigateDocumentMapCompleted(Me, New NavigateDocumentMapCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Nav"& _ 
            "igateBookmark", 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 NavigateBookmark(ByVal BookmarkID As String, ByRef UniqueName As String) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("NavigateBookmark", New Object() {BookmarkID})
            UniqueName = CType(results(1),String)
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub NavigateBookmarkAsync(ByVal BookmarkID As String)
            Me.NavigateBookmarkAsync(BookmarkID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub NavigateBookmarkAsync(ByVal BookmarkID As String, ByVal userState As Object)
            If (Me.NavigateBookmarkOperationCompleted Is Nothing) Then
                Me.NavigateBookmarkOperationCompleted = AddressOf Me.OnNavigateBookmarkOperationCompleted
            End If
            Me.InvokeAsync("NavigateBookmark", New Object() {BookmarkID}, Me.NavigateBookmarkOperationCompleted, userState)
        End Sub
        
        Private Sub OnNavigateBookmarkOperationCompleted(ByVal arg As Object)
            If (Not (Me.NavigateBookmarkCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent NavigateBookmarkCompleted(Me, New NavigateBookmarkCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Fin"& _ 
            "dString", 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 FindString(ByVal StartPage As Integer, ByVal EndPage As Integer, ByVal FindValue As String) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("FindString", New Object() {StartPage, EndPage, FindValue})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub FindStringAsync(ByVal StartPage As Integer, ByVal EndPage As Integer, ByVal FindValue As String)
            Me.FindStringAsync(StartPage, EndPage, FindValue, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub FindStringAsync(ByVal StartPage As Integer, ByVal EndPage As Integer, ByVal FindValue As String, ByVal userState As Object)
            If (Me.FindStringOperationCompleted Is Nothing) Then
                Me.FindStringOperationCompleted = AddressOf Me.OnFindStringOperationCompleted
            End If
            Me.InvokeAsync("FindString", New Object() {StartPage, EndPage, FindValue}, Me.FindStringOperationCompleted, userState)
        End Sub
        
        Private Sub OnFindStringOperationCompleted(ByVal arg As Object)
            If (Not (Me.FindStringCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent FindStringCompleted(Me, New FindStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Sor"& _ 
            "t", 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 Sort(ByVal SortItem As String, ByVal Direction As SortDirectionEnum, ByVal Clear As Boolean, ByRef ReportItem As String, ByRef NumPages As Integer) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("Sort", New Object() {SortItem, Direction, Clear})
            ReportItem = CType(results(1),String)
            NumPages = CType(results(2),Integer)
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub SortAsync(ByVal SortItem As String, ByVal Direction As SortDirectionEnum, ByVal Clear As Boolean)