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/>