reference.vb

嘉惠药品进销存管理系统.此系统完全可胜任小型企业的管理

        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