reference.vb

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

'------------------------------------------------------------------------------
' <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.Data
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 DataSetWS
    
    '''<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="DataSetWSSoap", [Namespace]:="http://oakleaf.ws/webservices/datasetws/northwind")>  _
    Partial Public Class DataSetWS
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Private GetAllCustomersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetOrdersByCustomerIDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateCustomersDataSetOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateOrdersDataSetOperationCompleted As System.Threading.SendOrPostCallback
        
        Private useDefaultCredentialsSetExplicitly As Boolean
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = DataSetWSClient.Settings.Default.DataSetWSClient_DataSetWS_DataSetWS
            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 GetAllCustomersCompleted As GetAllCustomersCompletedEventHandler
        
        '''<remarks/>
        Public Event GetOrdersByCustomerIDCompleted As GetOrdersByCustomerIDCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateCustomersDataSetCompleted As UpdateCustomersDataSetCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateOrdersDataSetCompleted As UpdateOrdersDataSetCompletedEventHandler
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/datasetws/northwind/GetAllCustomers", RequestNamespace:="http://oakleaf.ws/webservices/datasetws/northwind", ResponseNamespace:="http://oakleaf.ws/webservices/datasetws/northwind", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetAllCustomers() As System.Data.DataSet
            Dim results() As Object = Me.Invoke("GetAllCustomers", New Object(-1) {})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetAllCustomersAsync()
            Me.GetAllCustomersAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetAllCustomersAsync(ByVal userState As Object)
            If (Me.GetAllCustomersOperationCompleted Is Nothing) Then
                Me.GetAllCustomersOperationCompleted = AddressOf Me.OnGetAllCustomersOperationCompleted
            End If
            Me.InvokeAsync("GetAllCustomers", New Object(-1) {}, Me.GetAllCustomersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetAllCustomersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetAllCustomersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetAllCustomersCompleted(Me, New GetAllCustomersCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/datasetws/northwind/GetOrdersByCustomerID", RequestNamespace:="http://oakleaf.ws/webservices/datasetws/northwind", ResponseNamespace:="http://oakleaf.ws/webservices/datasetws/northwind", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetOrdersByCustomerID(ByVal CustomerID As String) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("GetOrdersByCustomerID", New Object() {CustomerID})
            Return CType(results(0),System.Data.DataSet)
        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("http://oakleaf.ws/webservices/datasetws/northwind/UpdateCustomersDataSet", RequestNamespace:="http://oakleaf.ws/webservices/datasetws/northwind", ResponseNamespace:="http://oakleaf.ws/webservices/datasetws/northwind", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function UpdateCustomersDataSet(ByVal dsNwind As System.Data.DataSet) As Boolean
            Dim results() As Object = Me.Invoke("UpdateCustomersDataSet", New Object() {dsNwind})
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Overloads Sub UpdateCustomersDataSetAsync(ByVal dsNwind As System.Data.DataSet)
            Me.UpdateCustomersDataSetAsync(dsNwind, Nothing)
        End Sub