reference.vb

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

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50215.44
'
'     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.50215.44.
'
Namespace WSOrdersBE
    
    '''<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="WSOrdersBESoap", [Namespace]:="www.oakleaf.ws/webservices/northwind/orders/ordersbe")>  _
    Partial Public Class WSOrdersBE
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Private GetSalesOrdersByCustomerIDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetTopSalesOrdersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetAllSalesOrdersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetSalesOrderByOrderIDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private InsertSalesOrderOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateSalesOrderOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateOrderObjectOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateOrderAndDetailsObjectsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private InsertOrderObjectOperationCompleted As System.Threading.SendOrPostCallback
        
        Private InsertOrderAndDetailsObjectsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private InsertDetailObjectsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetAllOrdersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetTopOrdersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetOrdersByCustomerIDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetOrderByOrderIDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetAllDetailsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetDetailsByCustomerIDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetTopDetailsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetDetailsByOrderIDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateOrderOperationCompleted As System.Threading.SendOrPostCallback
        
        Private InsertOrderOperationCompleted As System.Threading.SendOrPostCallback
        
        Private DeleteOrderOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateDetailOperationCompleted As System.Threading.SendOrPostCallback
        
        Private InsertDetailOperationCompleted As System.Threading.SendOrPostCallback
        
        Private DeleteDetailOperationCompleted As System.Threading.SendOrPostCallback
        
        Private useDefaultCredentialsSetExplicitly As Boolean
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = WinOrdersBEClient.Settings.Default.WinOrdersBEClient_WSOrdersBE_WSOrdersBE
            If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
                Me.UseDefaultCredentials = true
                Me.useDefaultCredentialsSetExplicitly = false
            Else
                Me.useDefaultCredentialsSetExplicitly = true
            End If
        End Sub
        
        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 GetSalesOrdersByCustomerIDCompleted As GetSalesOrdersByCustomerIDCompletedEventHandler
        
        '''<remarks/>
        Public Event GetTopSalesOrdersCompleted As GetTopSalesOrdersCompletedEventHandler
        
        '''<remarks/>
        Public Event GetAllSalesOrdersCompleted As GetAllSalesOrdersCompletedEventHandler
        
        '''<remarks/>
        Public Event GetSalesOrderByOrderIDCompleted As GetSalesOrderByOrderIDCompletedEventHandler
        
        '''<remarks/>
        Public Event InsertSalesOrderCompleted As InsertSalesOrderCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateSalesOrderCompleted As UpdateSalesOrderCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateOrderObjectCompleted As UpdateOrderObjectCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateOrderAndDetailsObjectsCompleted As UpdateOrderAndDetailsObjectsCompletedEventHandler
        
        '''<remarks/>
        Public Event InsertOrderObjectCompleted As InsertOrderObjectCompletedEventHandler
        
        '''<remarks/>
        Public Event InsertOrderAndDetailsObjectsCompleted As InsertOrderAndDetailsObjectsCompletedEventHandler
        
        '''<remarks/>
        Public Event InsertDetailObjectsCompleted As InsertDetailObjectsCompletedEventHandler
        
        '''<remarks/>
        Public Event GetAllOrdersCompleted As GetAllOrdersCompletedEventHandler
        
        '''<remarks/>
        Public Event GetTopOrdersCompleted As GetTopOrdersCompletedEventHandler
        
        '''<remarks/>
        Public Event GetOrdersByCustomerIDCompleted As GetOrdersByCustomerIDCompletedEventHandler
        
        '''<remarks/>
        Public Event GetOrderByOrderIDCompleted As GetOrderByOrderIDCompletedEventHandler
        
        '''<remarks/>
        Public Event GetAllDetailsCompleted As GetAllDetailsCompletedEventHandler
        
        '''<remarks/>
        Public Event GetDetailsByCustomerIDCompleted As GetDetailsByCustomerIDCompletedEventHandler
        
        '''<remarks/>
        Public Event GetTopDetailsCompleted As GetTopDetailsCompletedEventHandler
        
        '''<remarks/>
        Public Event GetDetailsByOrderIDCompleted As GetDetailsByOrderIDCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateOrderCompleted As UpdateOrderCompletedEventHandler
        
        '''<remarks/>
        Public Event InsertOrderCompleted As InsertOrderCompletedEventHandler
        
        '''<remarks/>
        Public Event DeleteOrderCompleted As DeleteOrderCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateDetailCompleted As UpdateDetailCompletedEventHandler
        
        '''<remarks/>
        Public Event InsertDetailCompleted As InsertDetailCompletedEventHandler
        
        '''<remarks/>
        Public Event DeleteDetailCompleted As DeleteDetailCompletedEventHandler
        
        <SnoopAttribute()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("www.oakleaf.ws/webservices/northwind/orders/ordersbe/GetSalesOrdersByCustomerID", 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 GetSalesOrdersByCustomerID(ByVal CustomerID As String) As SalesOrder()
            Dim results() As Object = Me.Invoke("GetSalesOrdersByCustomerID", New Object() {CustomerID})
            Return CType(results(0), SalesOrder())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetSalesOrdersByCustomerIDAsync(ByVal CustomerID As String)
            Me.GetSalesOrdersByCustomerIDAsync(CustomerID, Nothing)
        End Sub