reference.vb

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

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     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.50727.42.
'
Namespace NWLocalWS
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="NWOrdersWSSoap", [Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class NWOrdersWS
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Private GetOrderSPOperationCompleted As System.Threading.SendOrPostCallback
        
        Private UpdateOrInsertOrderSPOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetLast10OrdersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetEmployeesOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetShippersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetProductsOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetProductsDetailedOperationCompleted As System.Threading.SendOrPostCallback
        
        Private GetCustomersOperationCompleted As System.Threading.SendOrPostCallback
        
        Private useDefaultCredentialsSetExplicitly As Boolean
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = Global.NWOrdersWSClient.Settings.Default.NWOrdersWSClient_NWLocalWS_NWOrdersWS
            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 GetOrderSPCompleted As GetOrderSPCompletedEventHandler
        
        '''<remarks/>
        Public Event UpdateOrInsertOrderSPCompleted As UpdateOrInsertOrderSPCompletedEventHandler
        
        '''<remarks/>
        Public Event GetLast10OrdersCompleted As GetLast10OrdersCompletedEventHandler
        
        '''<remarks/>
        Public Event GetEmployeesCompleted As GetEmployeesCompletedEventHandler
        
        '''<remarks/>
        Public Event GetShippersCompleted As GetShippersCompletedEventHandler
        
        '''<remarks/>
        Public Event GetProductsCompleted As GetProductsCompletedEventHandler
        
        '''<remarks/>
        Public Event GetProductsDetailedCompleted As GetProductsDetailedCompletedEventHandler
        
        '''<remarks/>
        Public Event GetCustomersCompleted As GetCustomersCompletedEventHandler
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/GetOrderSP", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetOrderSP(ByVal intOrderID As Integer) As clsOrder
            Dim results() As Object = Me.Invoke("GetOrderSP", New Object() {intOrderID})
            Return CType(results(0),clsOrder)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetOrderSPAsync(ByVal intOrderID As Integer)
            Me.GetOrderSPAsync(intOrderID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetOrderSPAsync(ByVal intOrderID As Integer, ByVal userState As Object)
            If (Me.GetOrderSPOperationCompleted Is Nothing) Then
                Me.GetOrderSPOperationCompleted = AddressOf Me.OnGetOrderSPOperationCompleted
            End If
            Me.InvokeAsync("GetOrderSP", New Object() {intOrderID}, Me.GetOrderSPOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetOrderSPOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetOrderSPCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetOrderSPCompleted(Me, New GetOrderSPCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/UpdateOrInsertOrderSP", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function UpdateOrInsertOrderSP(ByVal objOrder As clsOrder) As Integer
            Dim results() As Object = Me.Invoke("UpdateOrInsertOrderSP", New Object() {objOrder})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub UpdateOrInsertOrderSPAsync(ByVal objOrder As clsOrder)
            Me.UpdateOrInsertOrderSPAsync(objOrder, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub UpdateOrInsertOrderSPAsync(ByVal objOrder As clsOrder, ByVal userState As Object)
            If (Me.UpdateOrInsertOrderSPOperationCompleted Is Nothing) Then
                Me.UpdateOrInsertOrderSPOperationCompleted = AddressOf Me.OnUpdateOrInsertOrderSPOperationCompleted
            End If
            Me.InvokeAsync("UpdateOrInsertOrderSP", New Object() {objOrder}, Me.UpdateOrInsertOrderSPOperationCompleted, userState)
        End Sub
        
        Private Sub OnUpdateOrInsertOrderSPOperationCompleted(ByVal arg As Object)
            If (Not (Me.UpdateOrInsertOrderSPCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent UpdateOrInsertOrderSPCompleted(Me, New UpdateOrInsertOrderSPCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/GetLast10Orders", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetLast10Orders() As Integer()
            Dim results() As Object = Me.Invoke("GetLast10Orders", New Object(-1) {})
            Return CType(results(0),Integer())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetLast10OrdersAsync()
            Me.GetLast10OrdersAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetLast10OrdersAsync(ByVal userState As Object)
            If (Me.GetLast10OrdersOperationCompleted Is Nothing) Then
                Me.GetLast10OrdersOperationCompleted = AddressOf Me.OnGetLast10OrdersOperationCompleted
            End If
            Me.InvokeAsync("GetLast10Orders", New Object(-1) {}, Me.GetLast10OrdersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetLast10OrdersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetLast10OrdersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetLast10OrdersCompleted(Me, New GetLast10OrdersCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/GetEmployees", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetEmployees() As empLookup
            Dim results() As Object = Me.Invoke("GetEmployees", New Object(-1) {})
            Return CType(results(0),empLookup)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetEmployeesAsync()
            Me.GetEmployeesAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetEmployeesAsync(ByVal userState As Object)
            If (Me.GetEmployeesOperationCompleted Is Nothing) Then
                Me.GetEmployeesOperationCompleted = AddressOf Me.OnGetEmployeesOperationCompleted
            End If
            Me.InvokeAsync("GetEmployees", New Object(-1) {}, Me.GetEmployeesOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetEmployeesOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetEmployeesCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetEmployeesCompleted(Me, New GetEmployeesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/GetShippers", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetShippers() As shipLookup
            Dim results() As Object = Me.Invoke("GetShippers", New Object(-1) {})
            Return CType(results(0),shipLookup)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetShippersAsync()
            Me.GetShippersAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetShippersAsync(ByVal userState As Object)
            If (Me.GetShippersOperationCompleted Is Nothing) Then
                Me.GetShippersOperationCompleted = AddressOf Me.OnGetShippersOperationCompleted
            End If
            Me.InvokeAsync("GetShippers", New Object(-1) {}, Me.GetShippersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetShippersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetShippersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetShippersCompleted(Me, New GetShippersCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/GetProducts", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetProducts() As prodLookup
            Dim results() As Object = Me.Invoke("GetProducts", New Object(-1) {})
            Return CType(results(0),prodLookup)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetProductsAsync()
            Me.GetProductsAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetProductsAsync(ByVal userState As Object)
            If (Me.GetProductsOperationCompleted Is Nothing) Then
                Me.GetProductsOperationCompleted = AddressOf Me.OnGetProductsOperationCompleted
            End If
            Me.InvokeAsync("GetProducts", New Object(-1) {}, Me.GetProductsOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetProductsOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetProductsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetProductsCompleted(Me, New GetProductsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/GetProductsDetailed", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetProductsDetailed() As prodLookupDtl
            Dim results() As Object = Me.Invoke("GetProductsDetailed", New Object(-1) {})
            Return CType(results(0),prodLookupDtl)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetProductsDetailedAsync()
            Me.GetProductsDetailedAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetProductsDetailedAsync(ByVal userState As Object)
            If (Me.GetProductsDetailedOperationCompleted Is Nothing) Then
                Me.GetProductsDetailedOperationCompleted = AddressOf Me.OnGetProductsDetailedOperationCompleted
            End If
            Me.InvokeAsync("GetProductsDetailed", New Object(-1) {}, Me.GetProductsDetailedOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetProductsDetailedOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetProductsDetailedCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetProductsDetailedCompleted(Me, New GetProductsDetailedCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/nwordersws/GetCustomers", RequestNamespace:="http://oakleaf.ws/webservices/nwordersws", ResponseNamespace:="http://oakleaf.ws/webservices/nwordersws", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetCustomers() As custLookup
            Dim results() As Object = Me.Invoke("GetCustomers", New Object(-1) {})
            Return CType(results(0),custLookup)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetCustomersAsync()
            Me.GetCustomersAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetCustomersAsync(ByVal userState As Object)
            If (Me.GetCustomersOperationCompleted Is Nothing) Then
                Me.GetCustomersOperationCompleted = AddressOf Me.OnGetCustomersOperationCompleted
            End If
            Me.InvokeAsync("GetCustomers", New Object(-1) {}, Me.GetCustomersOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetCustomersOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetCustomersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetCustomersCompleted(Me, New GetCustomersCompletedEventArgs(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 (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
                Return true
            End If
            Return false
        End Function
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class clsOrder
        
        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