reference.vb

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

        Public Function InsertOrderObject(ByVal objOrder As Order) As Integer
            Dim results() As Object = Me.Invoke("InsertOrderObject", New Object() {objOrder})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub InsertOrderObjectAsync(ByVal objOrder As Order)
            Me.InsertOrderObjectAsync(objOrder, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub InsertOrderObjectAsync(ByVal objOrder As Order, ByVal userState As Object)
            If (Me.InsertOrderObjectOperationCompleted Is Nothing) Then
                Me.InsertOrderObjectOperationCompleted = AddressOf Me.OnInsertOrderObjectOperationCompleted
            End If
            Me.InvokeAsync("InsertOrderObject", New Object() {objOrder}, Me.InsertOrderObjectOperationCompleted, userState)
        End Sub
        
        Private Sub OnInsertOrderObjectOperationCompleted(ByVal arg As Object)
            If (Not (Me.InsertOrderObjectCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent InsertOrderObjectCompleted(Me, New InsertOrderObjectCompletedEventArgs(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/InsertOrderAndDetailsObjects"& _ 
            "", 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 InsertOrderAndDetailsObjects(ByVal objOrder As Order, ByVal objDetails() As OrderDetail) As Integer
            Dim results() As Object = Me.Invoke("InsertOrderAndDetailsObjects", New Object() {objOrder, objDetails})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub InsertOrderAndDetailsObjectsAsync(ByVal objOrder As Order, ByVal objDetails() As OrderDetail)
            Me.InsertOrderAndDetailsObjectsAsync(objOrder, objDetails, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub InsertOrderAndDetailsObjectsAsync(ByVal objOrder As Order, ByVal objDetails() As OrderDetail, ByVal userState As Object)
            If (Me.InsertOrderAndDetailsObjectsOperationCompleted Is Nothing) Then
                Me.InsertOrderAndDetailsObjectsOperationCompleted = AddressOf Me.OnInsertOrderAndDetailsObjectsOperationCompleted
            End If
            Me.InvokeAsync("InsertOrderAndDetailsObjects", New Object() {objOrder, objDetails}, Me.InsertOrderAndDetailsObjectsOperationCompleted, userState)
        End Sub
        
        Private Sub OnInsertOrderAndDetailsObjectsOperationCompleted(ByVal arg As Object)
            If (Not (Me.InsertOrderAndDetailsObjectsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent InsertOrderAndDetailsObjectsCompleted(Me, New InsertOrderAndDetailsObjectsCompletedEventArgs(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/InsertDetailObjects", 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 InsertDetailObjects(ByVal objDetails() As OrderDetail) As Integer
            Dim results() As Object = Me.Invoke("InsertDetailObjects", New Object() {objDetails})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub InsertDetailObjectsAsync(ByVal objDetails() As OrderDetail)
            Me.InsertDetailObjectsAsync(objDetails, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub InsertDetailObjectsAsync(ByVal objDetails() As OrderDetail, ByVal userState As Object)
            If (Me.InsertDetailObjectsOperationCompleted Is Nothing) Then
                Me.InsertDetailObjectsOperationCompleted = AddressOf Me.OnInsertDetailObjectsOperationCompleted
            End If
            Me.InvokeAsync("InsertDetailObjects", New Object() {objDetails}, Me.InsertDetailObjectsOperationCompleted, userState)
        End Sub
        
        Private Sub OnInsertDetailObjectsOperationCompleted(ByVal arg As Object)
            If (Not (Me.InsertDetailObjectsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent InsertDetailObjectsCompleted(Me, New InsertDetailObjectsCompletedEventArgs(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/GetAllOrders", 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 GetAllOrders() As Order()
            Dim results() As Object = Me.Invoke("GetAllOrders", New Object(-1) {})
            Return CType(results(0),Order())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetAllOrdersAsync()
            Me.GetAllOrdersAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetAllOrdersAsync(ByVal userState As Object)
            If (Me.GetAllOrdersOperationCompleted Is Nothing) Then
                Me.GetAllOrdersOperationCompleted = AddressOf Me.OnGetAllOrdersOperationCompleted
            End If
            Me.InvokeAsync("GetAllOrders", New Object(-1) {}, Me.GetAllOrdersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetAllOrdersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetAllOrdersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetAllOrdersCompleted(Me, New GetAllOrdersCompletedEventArgs(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/GetTopOrders", 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 GetTopOrders(ByVal Number As Integer) As Order()
            Dim results() As Object = Me.Invoke("GetTopOrders", New Object() {Number})
            Return CType(results(0),Order())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetTopOrdersAsync(ByVal Number As Integer)
            Me.GetTopOrdersAsync(Number, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetTopOrdersAsync(ByVal Number As Integer, ByVal userState As Object)
            If (Me.GetTopOrdersOperationCompleted Is Nothing) Then
                Me.GetTopOrdersOperationCompleted = AddressOf Me.OnGetTopOrdersOperationCompleted
            End If
            Me.InvokeAsync("GetTopOrders", New Object() {Number}, Me.GetTopOrdersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetTopOrdersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetTopOrdersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetTopOrdersCompleted(Me, New GetTopOrdersCompletedEventArgs(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/GetOrdersByCustomerID", 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 GetOrdersByCustomerID(ByVal CustomerID As String) As Order()
            Dim results() As Object = Me.Invoke("GetOrdersByCustomerID", New Object() {CustomerID})
            Return CType(results(0),Order())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetOrdersByCustomerIDAsync(ByVal CustomerID As String)
            Me.GetOrdersByCustomerIDAsync(CustomerID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetOrdersByCustomerIDAsync(ByVal CustomerID As String, ByVal userState As Object)
            If (Me.GetOrdersByCustomerIDOperationCompleted Is Nothing) Then
                Me.GetOrdersByCustomerIDOperationCompleted = AddressOf Me.OnGetOrdersByCustomerIDOperationCompleted
            End If
            Me.InvokeAsync("GetOrdersByCustomerID", New Object() {CustomerID}, Me.GetOrdersByCustomerIDOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetOrdersByCustomerIDOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetOrdersByCustomerIDCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetOrdersByCustomerIDCompleted(Me, New GetOrdersByCustomerIDCompletedEventArgs(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/GetOrderByOrderID", 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 GetOrderByOrderID(ByVal OrderID As Integer) As Order()
            Dim results() As Object = Me.Invoke("GetOrderByOrderID", New Object() {OrderID})
            Return CType(results(0),Order())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetOrderByOrderIDAsync(ByVal OrderID As Integer)
            Me.GetOrderByOrderIDAsync(OrderID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetOrderByOrderIDAsync(ByVal OrderID As Integer, ByVal userState As Object)
            If (Me.GetOrderByOrderIDOperationCompleted Is Nothing) Then
                Me.GetOrderByOrderIDOperationCompleted = AddressOf Me.OnGetOrderByOrderIDOperationCompleted
            End If
            Me.InvokeAsync("GetOrderByOrderID", New Object() {OrderID}, Me.GetOrderByOrderIDOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetOrderByOrderIDOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetOrderByOrderIDCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetOrderByOrderIDCompleted(Me, New GetOrderByOrderIDCompletedEventArgs(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/GetAllDetails", 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 GetAllDetails() As OrderDetail()
            Dim results() As Object = Me.Invoke("GetAllDetails", New Object(-1) {})
            Return CType(results(0),OrderDetail())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetAllDetailsAsync()
            Me.GetAllDetailsAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetAllDetailsAsync(ByVal userState As Object)
            If (Me.GetAllDetailsOperationCompleted Is Nothing) Then
                Me.GetAllDetailsOperationCompleted = AddressOf Me.OnGetAllDetailsOperationCompleted
            End If
            Me.InvokeAsync("GetAllDetails", New Object(-1) {}, Me.GetAllDetailsOperationCompleted, userState)
        End Sub