医药行业

开发平台：
Visual Basic

Reference.vb：源码内容
							﻿'------------------------------------------------------------------------------
' <auto-generated>
'     此代码由工具生成。
'     运行库版本:2.0.50727.42
'
'     对此文件的更改可能会导致不正确的行为，并且如果
'     重新生成代码，这些更改将会丢失。
' </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
'
'此源代码是由 Microsoft.VSDesigner 2.0.50727.42 版自动生成。
'
Namespace WebReference
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="DataManagerSoap", [Namespace]:="http://tempuri.org/webmanage/Service1")>  _
    Partial Public Class DataManager
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Private returndatasetOperationCompleted As System.Threading.SendOrPostCallback
        
        Private runSqlOperationCompleted As System.Threading.SendOrPostCallback
        
        Private deletecpOperationCompleted As System.Threading.SendOrPostCallback
        
        Private updatecpOperationCompleted As System.Threading.SendOrPostCallback
        
        Private userinfoOperationCompleted As System.Threading.SendOrPostCallback
        
        Private updatedatasetOperationCompleted As System.Threading.SendOrPostCallback
        
        Private deletepersonOperationCompleted As System.Threading.SendOrPostCallback
        
        Private useDefaultCredentialsSetExplicitly As Boolean
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://218.9.73.233/webmanage/DataManager.asmx"
            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 returndatasetCompleted As returndatasetCompletedEventHandler
        
        '''<remarks/>
        Public Event runSqlCompleted As runSqlCompletedEventHandler
        
        '''<remarks/>
        Public Event deletecpCompleted As deletecpCompletedEventHandler
        
        '''<remarks/>
        Public Event updatecpCompleted As updatecpCompletedEventHandler
        
        '''<remarks/>
        Public Event userinfoCompleted As userinfoCompletedEventHandler
        
        '''<remarks/>
        Public Event updatedatasetCompleted As updatedatasetCompletedEventHandler
        
        '''<remarks/>
        Public Event deletepersonCompleted As deletepersonCompletedEventHandler
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/webmanage/Service1/returndataset", RequestNamespace:="http://tempuri.org/webmanage/Service1", ResponseNamespace:="http://tempuri.org/webmanage/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function returndataset(ByVal str As String, ByVal tablename As String) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("returndataset", New Object() {str, tablename})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Function Beginreturndataset(ByVal str As String, ByVal tablename As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("returndataset", New Object() {str, tablename}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function Endreturndataset(ByVal asyncResult As System.IAsyncResult) As System.Data.DataSet
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Overloads Sub returndatasetAsync(ByVal str As String, ByVal tablename As String)
            Me.returndatasetAsync(str, tablename, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub returndatasetAsync(ByVal str As String, ByVal tablename As String, ByVal userState As Object)
            If (Me.returndatasetOperationCompleted Is Nothing) Then
                Me.returndatasetOperationCompleted = AddressOf Me.OnreturndatasetOperationCompleted
            End If
            Me.InvokeAsync("returndataset", New Object() {str, tablename}, Me.returndatasetOperationCompleted, userState)
        End Sub
        
        Private Sub OnreturndatasetOperationCompleted(ByVal arg As Object)
            If (Not (Me.returndatasetCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent returndatasetCompleted(Me, New returndatasetCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/webmanage/Service1/runSql", RequestNamespace:="http://tempuri.org/webmanage/Service1", ResponseNamespace:="http://tempuri.org/webmanage/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function runSql(ByVal strQuery As String) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("runSql", New Object() {strQuery})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Function BeginrunSql(ByVal strQuery As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("runSql", New Object() {strQuery}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndrunSql(ByVal asyncResult As System.IAsyncResult) As System.Data.DataSet
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Overloads Sub runSqlAsync(ByVal strQuery As String)
            Me.runSqlAsync(strQuery, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub runSqlAsync(ByVal strQuery As String, ByVal userState As Object)
            If (Me.runSqlOperationCompleted Is Nothing) Then
                Me.runSqlOperationCompleted = AddressOf Me.OnrunSqlOperationCompleted
            End If
            Me.InvokeAsync("runSql", New Object() {strQuery}, Me.runSqlOperationCompleted, userState)
        End Sub
        
        Private Sub OnrunSqlOperationCompleted(ByVal arg As Object)
            If (Not (Me.runSqlCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent runSqlCompleted(Me, New runSqlCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/webmanage/Service1/deletecp", RequestNamespace:="http://tempuri.org/webmanage/Service1", ResponseNamespace:="http://tempuri.org/webmanage/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function deletecp(ByVal mednumber As String) As Boolean
            Dim results() As Object = Me.Invoke("deletecp", New Object() {mednumber})
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Function Begindeletecp(ByVal mednumber As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("deletecp", New Object() {mednumber}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function Enddeletecp(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Overloads Sub deletecpAsync(ByVal mednumber As String)
            Me.deletecpAsync(mednumber, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub deletecpAsync(ByVal mednumber As String, ByVal userState As Object)
            If (Me.deletecpOperationCompleted Is Nothing) Then
                Me.deletecpOperationCompleted = AddressOf Me.OndeletecpOperationCompleted
            End If
            Me.InvokeAsync("deletecp", New Object() {mednumber}, Me.deletecpOperationCompleted, userState)
        End Sub
        
        Private Sub OndeletecpOperationCompleted(ByVal arg As Object)
            If (Not (Me.deletecpCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent deletecpCompleted(Me, New deletecpCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/webmanage/Service1/updatecp", RequestNamespace:="http://tempuri.org/webmanage/Service1", ResponseNamespace:="http://tempuri.org/webmanage/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function updatecp(ByVal mednumber As String, ByVal medname As String, ByVal medrule As String, ByVal medtype As String, ByVal unit As String, ByVal price As Decimal, ByVal sprice As Decimal, ByVal kl As Decimal, ByVal address As String, ByVal product As String, ByVal avaid As String, ByVal Pprice As Decimal, ByVal Lprice As Decimal) As Boolean
            Dim results() As Object = Me.Invoke("updatecp", New Object() {mednumber, medname, medrule, medtype, unit, price, sprice, kl, address, product, avaid, Pprice, Lprice})
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Function Beginupdatecp(ByVal mednumber As String, ByVal medname As String, ByVal medrule As String, ByVal medtype As String, ByVal unit As String, ByVal price As Decimal, ByVal sprice As Decimal, ByVal kl As Decimal, ByVal address As String, ByVal product As String, ByVal avaid As String, ByVal Pprice As Decimal, ByVal Lprice As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("updatecp", New Object() {mednumber, medname, medrule, medtype, unit, price, sprice, kl, address, product, avaid, Pprice, Lprice}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function Endupdatecp(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Overloads Sub updatecpAsync(ByVal mednumber As String, ByVal medname As String, ByVal medrule As String, ByVal medtype As String, ByVal unit As String, ByVal price As Decimal, ByVal sprice As Decimal, ByVal kl As Decimal, ByVal address As String, ByVal product As String, ByVal avaid As String, ByVal Pprice As Decimal, ByVal Lprice As Decimal)
            Me.updatecpAsync(mednumber, medname, medrule, medtype, unit, price, sprice, kl, address, product, avaid, Pprice, Lprice, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub updatecpAsync(ByVal mednumber As String, ByVal medname As String, ByVal medrule As String, ByVal medtype As String, ByVal unit As String, ByVal price As Decimal, ByVal sprice As Decimal, ByVal kl As Decimal, ByVal address As String, ByVal product As String, ByVal avaid As String, ByVal Pprice As Decimal, ByVal Lprice As Decimal, ByVal userState As Object)
            If (Me.updatecpOperationCompleted Is Nothing) Then
                Me.updatecpOperationCompleted = AddressOf Me.OnupdatecpOperationCompleted
            End If
            Me.InvokeAsync("updatecp", New Object() {mednumber, medname, medrule, medtype, unit, price, sprice, kl, address, product, avaid, Pprice, Lprice}, Me.updatecpOperationCompleted, userState)
        End Sub
        
        Private Sub OnupdatecpOperationCompleted(ByVal arg As Object)
            If (Not (Me.updatecpCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent updatecpCompleted(Me, New updatecpCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/webmanage/Service1/userinfo", RequestNamespace:="http://tempuri.org/webmanage/Service1", ResponseNamespace:="http://tempuri.org/webmanage/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function userinfo(ByVal struser As String, ByVal strpassword As String) As Integer
            Dim results() As Object = Me.Invoke("userinfo", New Object() {struser, strpassword})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Function Beginuserinfo(ByVal struser As String, ByVal strpassword As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("userinfo", New Object() {struser, strpassword}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function Enduserinfo(ByVal asyncResult As System.IAsyncResult) As Integer
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub userinfoAsync(ByVal struser As String, ByVal strpassword As String)
            Me.userinfoAsync(struser, strpassword, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub userinfoAsync(ByVal struser As String, ByVal strpassword As String, ByVal userState As Object)
            If (Me.userinfoOperationCompleted Is Nothing) Then
                Me.userinfoOperationCompleted = AddressOf Me.OnuserinfoOperationCompleted
            End If
            Me.InvokeAsync("userinfo", New Object() {struser, strpassword}, Me.userinfoOperationCompleted, userState)
        End Sub
        
        Private Sub OnuserinfoOperationCompleted(ByVal arg As Object)
            If (Not (Me.userinfoCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent userinfoCompleted(Me, New userinfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/webmanage/Service1/updatedataset", RequestNamespace:="http://tempuri.org/webmanage/Service1", ResponseNamespace:="http://tempuri.org/webmanage/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function updatedataset(ByVal str As String, ByVal tablename As String, ByVal dsupdate As System.Data.DataSet, ByVal rowstate As DataRowState) As Boolean
            Dim results() As Object = Me.Invoke("updatedataset", New Object() {str, tablename, dsupdate, rowstate})
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Function Beginupdatedataset(ByVal str As String, ByVal tablename As String, ByVal dsupdate As System.Data.DataSet, ByVal rowstate As DataRowState, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("updatedataset", New Object() {str, tablename, dsupdate, rowstate}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function Endupdatedataset(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Overloads Sub updatedatasetAsync(ByVal str As String, ByVal tablename As String, ByVal dsupdate As System.Data.DataSet, ByVal rowstate As DataRowState)
            Me.updatedatasetAsync(str, tablename, dsupdate, rowstate, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub updatedatasetAsync(ByVal str As String, ByVal tablename As String, ByVal dsupdate As System.Data.DataSet, ByVal rowstate As DataRowState, ByVal userState As Object)
            If (Me.updatedatasetOperationCompleted Is Nothing) Then
                Me.updatedatasetOperationCompleted = AddressOf Me.OnupdatedatasetOperationCompleted
            End If
            Me.InvokeAsync("updatedataset", New Object() {str, tablename, dsupdate, rowstate}, Me.updatedatasetOperationCompleted, userState)
        End Sub
        
        Private Sub OnupdatedatasetOperationCompleted(ByVal arg As Object)
            If (Not (Me.updatedatasetCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent updatedatasetCompleted(Me, New updatedatasetCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/webmanage/Service1/deleteperson", RequestNamespace:="http://tempuri.org/webmanage/Service1", ResponseNamespace:="http://tempuri.org/webmanage/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function deleteperson(ByVal custnumber As String) As Boolean
            Dim results() As Object = Me.Invoke("deleteperson", New Object() {custnumber})
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Function Begindeleteperson(ByVal custnumber As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("deleteperson", New Object() {custnumber}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function Enddeleteperson(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Overloads Sub deletepersonAsync(ByVal custnumber As String)
            Me.deletepersonAsync(custnumber, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub deletepersonAsync(ByVal custnumber As String, ByVal userState As Object)
            If (Me.deletepersonOperationCompleted Is Nothing) Then
                Me.deletepersonOperationCompleted = AddressOf Me.OndeletepersonOperationCompleted
            End If
            Me.InvokeAsync("deleteperson", New Object() {custnumber}, Me.deletepersonOperationCompleted, userState)
        End Sub
        
        Private Sub OndeletepersonOperationCompleted(ByVal arg As Object)
            If (Not (Me.deletepersonCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent deletepersonCompleted(Me, New deletepersonCompletedEventArgs(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.FlagsAttribute(),  _
     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://tempuri.org/webmanage/Service1")>  _
    Public Enum DataRowState
        
        '''<remarks/>
        Detached = 1
        
        '''<remarks/>
        Unchanged = 2
        
        '''<remarks/>
        Added = 4
        
        '''<remarks/>
        Deleted = 8
        
        '''<remarks/>
        Modified = 16
    End Enum
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub returndatasetCompletedEventHandler(ByVal sender As Object, ByVal e As returndatasetCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class returndatasetCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As System.Data.DataSet
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),System.Data.DataSet)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub runSqlCompletedEventHandler(ByVal sender As Object, ByVal e As runSqlCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class runSqlCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As System.Data.DataSet
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),System.Data.DataSet)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub deletecpCompletedEventHandler(ByVal sender As Object, ByVal e As deletecpCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class deletecpCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As Boolean
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),Boolean)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub updatecpCompletedEventHandler(ByVal sender As Object, ByVal e As updatecpCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class updatecpCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As Boolean
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),Boolean)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub userinfoCompletedEventHandler(ByVal sender As Object, ByVal e As userinfoCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class userinfoCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As Integer
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),Integer)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub updatedatasetCompletedEventHandler(ByVal sender As Object, ByVal e As updatedatasetCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class updatedatasetCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As Boolean
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),Boolean)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub deletepersonCompletedEventHandler(ByVal sender As Object, ByVal e As deletepersonCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class deletepersonCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As Boolean
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),Boolean)
            End Get
        End Property
    End Class
End Namespace

						