reference.vb

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

        End Sub
        
        '''<remarks/>
        Public Overloads Sub InsertDetailAsync(ByVal OrderID As Integer, ByVal ProductID As Integer, ByVal UnitPrice As Decimal, ByVal Quantity As Short, ByVal Discount As Decimal, ByVal userState As Object)
            If (Me.InsertDetailOperationCompleted Is Nothing) Then
                Me.InsertDetailOperationCompleted = AddressOf Me.OnInsertDetailOperationCompleted
            End If
            Me.InvokeAsync("InsertDetail", New Object() {OrderID, ProductID, UnitPrice, Quantity, Discount}, Me.InsertDetailOperationCompleted, userState)
        End Sub
        
        Private Sub OnInsertDetailOperationCompleted(ByVal arg As Object)
            If (Not (Me.InsertDetailCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent InsertDetailCompleted(Me, New InsertDetailCompletedEventArgs(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/DeleteDetail", 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 DeleteDetail(ByVal original_OrderID As Integer, ByVal original_ProductID As Integer) As Integer
            Dim results() As Object = Me.Invoke("DeleteDetail", New Object() {original_OrderID, original_ProductID})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub DeleteDetailAsync(ByVal original_OrderID As Integer, ByVal original_ProductID As Integer)
            Me.DeleteDetailAsync(original_OrderID, original_ProductID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub DeleteDetailAsync(ByVal original_OrderID As Integer, ByVal original_ProductID As Integer, ByVal userState As Object)
            If (Me.DeleteDetailOperationCompleted Is Nothing) Then
                Me.DeleteDetailOperationCompleted = AddressOf Me.OnDeleteDetailOperationCompleted
            End If
            Me.InvokeAsync("DeleteDetail", New Object() {original_OrderID, original_ProductID}, Me.DeleteDetailOperationCompleted, userState)
        End Sub
        
        Private Sub OnDeleteDetailOperationCompleted(ByVal arg As Object)
            If (Not (Me.DeleteDetailCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent DeleteDetailCompleted(Me, New DeleteDetailCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        Public Shadows Sub CancelAsync(ByVal userState As Object)
            MyBase.CancelAsync(userState)
        End Sub
        
        Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
            If ((url Is Nothing)  _
                        OrElse (url Is String.Empty)) Then
                Return false
            End If
            Dim wsUri As System.Uri = New System.Uri(url)
            If (((wsUri.Port >= 1024)  _
                        AndAlso (wsUri.Port <= 5000))  _
                        AndAlso (String.Compare(wsUri.Host, "localHost", true) = 0)) Then
                Return true
            End If
            Return false
        End Function
    End Class
    
    '''<remarks/>
    <System.SerializableAttribute(),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="www.oakleaf.ws/webservices/northwind/orders/ordersbe")>  _
    Partial Public Class SalesOrder
        
        Private orderIDField As Integer
        
        Private customerIDField As String
        
        Private employeeIDField As Integer
        
        Private orderDateField As Date
        
        Private requiredDateField As Date
        
        Private shippedDateField As Date
        
        Private shipViaField As Integer
        
        Private freightField As Decimal
        
        Private shipNameField As String
        
        Private shipAddressField As String
        
        Private shipCityField As String
        
        Private shipRegionField As String
        
        Private shipPostalCodeField As String
        
        Private shipCountryField As String
        
        Private orderDetailsField() As OrderDetail
        
        '''<remarks/>
        Public Property OrderID() As Integer
            Get
                Return Me.orderIDField
            End Get
            Set
                Me.orderIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property CustomerID() As String
            Get
                Return Me.customerIDField
            End Get
            Set
                Me.customerIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property EmployeeID() As Integer
            Get
                Return Me.employeeIDField
            End Get
            Set
                Me.employeeIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property OrderDate() As Date
            Get
                Return Me.orderDateField
            End Get
            Set
                Me.orderDateField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property RequiredDate() As Date
            Get
                Return Me.requiredDateField
            End Get
            Set
                Me.requiredDateField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShippedDate() As Date
            Get
                Return Me.shippedDateField
            End Get
            Set
                Me.shippedDateField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipVia() As Integer
            Get
                Return Me.shipViaField
            End Get
            Set
                Me.shipViaField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property Freight() As Decimal
            Get
                Return Me.freightField
            End Get
            Set
                Me.freightField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipName() As String
            Get
                Return Me.shipNameField
            End Get
            Set
                Me.shipNameField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipAddress() As String
            Get
                Return Me.shipAddressField
            End Get
            Set
                Me.shipAddressField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipCity() As String
            Get
                Return Me.shipCityField
            End Get
            Set
                Me.shipCit