reference.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 1,034 行 · 第 1/5 页

        '''<remarks/>
        Public Overloads Sub GetSalesOrdersByCustomerIDAsync(ByVal CustomerID As String, ByVal userState As Object)
            If (Me.GetSalesOrdersByCustomerIDOperationCompleted Is Nothing) Then
                Me.GetSalesOrdersByCustomerIDOperationCompleted = AddressOf Me.OnGetSalesOrdersByCustomerIDOperationCompleted
            End If
            Me.InvokeAsync("GetSalesOrdersByCustomerID", New Object() {CustomerID}, Me.GetSalesOrdersByCustomerIDOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetSalesOrdersByCustomerIDOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetSalesOrdersByCustomerIDCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetSalesOrdersByCustomerIDCompleted(Me, New GetSalesOrdersByCustomerIDCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        <SnoopAttribute()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/GetTopSalesOrders", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function GetTopSalesOrders(ByVal Number As Integer) As SalesOrder()
            Dim results() As Object = Me.Invoke("GetTopSalesOrders", New Object() {Number})
            Return CType(results(0), SalesOrder())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetTopSalesOrdersAsync(ByVal Number As Integer)
            Me.GetTopSalesOrdersAsync(Number, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetTopSalesOrdersAsync(ByVal Number As Integer, ByVal userState As Object)
            If (Me.GetTopSalesOrdersOperationCompleted Is Nothing) Then
                Me.GetTopSalesOrdersOperationCompleted = AddressOf Me.OnGetTopSalesOrdersOperationCompleted
            End If
            Me.InvokeAsync("GetTopSalesOrders", New Object() {Number}, Me.GetTopSalesOrdersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetTopSalesOrdersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetTopSalesOrdersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetTopSalesOrdersCompleted(Me, New GetTopSalesOrdersCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        <SnoopAttribute()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/GetAllSalesOrders", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function GetAllSalesOrders() As SalesOrder()
            Dim results() As Object = Me.Invoke("GetAllSalesOrders", New Object(-1) {})
            Return CType(results(0), SalesOrder())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetAllSalesOrdersAsync()
            Me.GetAllSalesOrdersAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetAllSalesOrdersAsync(ByVal userState As Object)
            If (Me.GetAllSalesOrdersOperationCompleted Is Nothing) Then
                Me.GetAllSalesOrdersOperationCompleted = AddressOf Me.OnGetAllSalesOrdersOperationCompleted
            End If
            Me.InvokeAsync("GetAllSalesOrders", New Object(-1) {}, Me.GetAllSalesOrdersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetAllSalesOrdersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetAllSalesOrdersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetAllSalesOrdersCompleted(Me, New GetAllSalesOrdersCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        <SnoopAttribute()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/GetSalesOrderByOrderID", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function GetSalesOrderByOrderID(ByVal OrderID As Integer) As SalesOrder
            Dim results() As Object = Me.Invoke("GetSalesOrderByOrderID", New Object() {OrderID})
            Return CType(results(0), SalesOrder)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetSalesOrderByOrderIDAsync(ByVal OrderID As Integer)
            Me.GetSalesOrderByOrderIDAsync(OrderID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetSalesOrderByOrderIDAsync(ByVal OrderID As Integer, ByVal userState As Object)
            If (Me.GetSalesOrderByOrderIDOperationCompleted Is Nothing) Then
                Me.GetSalesOrderByOrderIDOperationCompleted = AddressOf Me.OnGetSalesOrderByOrderIDOperationCompleted
            End If
            Me.InvokeAsync("GetSalesOrderByOrderID", New Object() {OrderID}, Me.GetSalesOrderByOrderIDOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetSalesOrderByOrderIDOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetSalesOrderByOrderIDCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetSalesOrderByOrderIDCompleted(Me, New GetSalesOrderByOrderIDCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        <SnoopAttribute()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/InsertSalesOrder", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function InsertSalesOrder(ByVal objSalesOrder As SalesOrder) As Integer
            Dim results() As Object = Me.Invoke("InsertSalesOrder", New Object() {objSalesOrder})
            Return CType(results(0), Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub InsertSalesOrderAsync(ByVal objSalesOrder As SalesOrder)
            Me.InsertSalesOrderAsync(objSalesOrder, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub InsertSalesOrderAsync(ByVal objSalesOrder As SalesOrder, ByVal userState As Object)
            If (Me.InsertSalesOrderOperationCompleted Is Nothing) Then
                Me.InsertSalesOrderOperationCompleted = AddressOf Me.OnInsertSalesOrderOperationCompleted
            End If
            Me.InvokeAsync("InsertSalesOrder", New Object() {objSalesOrder}, Me.InsertSalesOrderOperationCompleted, userState)
        End Sub
        
        Private Sub OnInsertSalesOrderOperationCompleted(ByVal arg As Object)
            If (Not (Me.InsertSalesOrderCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent InsertSalesOrderCompleted(Me, New InsertSalesOrderCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        <SnoopAttribute()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/UpdateSalesOrder", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function UpdateSalesOrder(ByVal objSalesOrder As SalesOrder) As Integer
            Dim results() As Object = Me.Invoke("UpdateSalesOrder", New Object() {objSalesOrder})
            Return CType(results(0), Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub UpdateSalesOrderAsync(ByVal objSalesOrder As SalesOrder)
            Me.UpdateSalesOrderAsync(objSalesOrder, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub UpdateSalesOrderAsync(ByVal objSalesOrder As SalesOrder, ByVal userState As Object)
            If (Me.UpdateSalesOrderOperationCompleted Is Nothing) Then
                Me.UpdateSalesOrderOperationCompleted = AddressOf Me.OnUpdateSalesOrderOperationCompleted
            End If
            Me.InvokeAsync("UpdateSalesOrder", New Object() {objSalesOrder}, Me.UpdateSalesOrderOperationCompleted, userState)
        End Sub
        
        Private Sub OnUpdateSalesOrderOperationCompleted(ByVal arg As Object)
            If (Not (Me.UpdateSalesOrderCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent UpdateSalesOrderCompleted(Me, New UpdateSalesOrderCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/UpdateOrderObject", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function UpdateOrderObject(ByVal objOrder As Order) As Integer
            Dim results() As Object = Me.Invoke("UpdateOrderObject", New Object() {objOrder})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub UpdateOrderObjectAsync(ByVal objOrder As Order)
            Me.UpdateOrderObjectAsync(objOrder, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub UpdateOrderObjectAsync(ByVal objOrder As Order, ByVal userState As Object)
            If (Me.UpdateOrderObjectOperationCompleted Is Nothing) Then
                Me.UpdateOrderObjectOperationCompleted = AddressOf Me.OnUpdateOrderObjectOperationCompleted
            End If
            Me.InvokeAsync("UpdateOrderObject", New Object() {objOrder}, Me.UpdateOrderObjectOperationCompleted, userState)
        End Sub
        
        Private Sub OnUpdateOrderObjectOperationCompleted(ByVal arg As Object)
            If (Not (Me.UpdateOrderObjectCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent UpdateOrderObjectCompleted(Me, New UpdateOrderObjectCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/UpdateOrderAndDetailsObjects"& _ 
            "", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function UpdateOrderAndDetailsObjects(ByVal objOrder As Order, ByVal objDetails() As OrderDetail) As Integer
            Dim results() As Object = Me.Invoke("UpdateOrderAndDetailsObjects", New Object() {objOrder, objDetails})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub UpdateOrderAndDetailsObjectsAsync(ByVal objOrder As Order, ByVal objDetails() As OrderDetail)
            Me.UpdateOrderAndDetailsObjectsAsync(objOrder, objDetails, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub UpdateOrderAndDetailsObjectsAsync(ByVal objOrder As Order, ByVal objDetails() As OrderDetail, ByVal userState As Object)
            If (Me.UpdateOrderAndDetailsObjectsOperationCompleted Is Nothing) Then
                Me.UpdateOrderAndDetailsObjectsOperationCompleted = AddressOf Me.OnUpdateOrderAndDetailsObjectsOperationCompleted
            End If
            Me.InvokeAsync("UpdateOrderAndDetailsObjects", New Object() {objOrder, objDetails}, Me.UpdateOrderAndDetailsObjectsOperationCompleted, userState)
        End Sub
        
        Private Sub OnUpdateOrderAndDetailsObjectsOperationCompleted(ByVal arg As Object)
            If (Not (Me.UpdateOrderAndDetailsObjectsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent UpdateOrderAndDetailsObjectsCompleted(Me, New UpdateOrderAndDetailsObjectsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/InsertOrderObject", RequestNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", ResponseNamespace:="www.oakleaf.ws/webservices/northwind/orders/ordersbe", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _