reference.vb

一个医药行业的进销存软件

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.1.4322.2300
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

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

'
'此源代码是由 Microsoft.VSDesigner 1.1.4322.2300 版自动生成。
'
Namespace WebReference
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="DataManagerSoap", [Namespace]:="http://tempuri.org/webmanage/Service1")>  _
    Public Class DataManager
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://218.9.73.233/webmanage/DataManager.asmx"
        End Sub
        
        '<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/>
        <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/>
        <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/>
        <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/>
        <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/>
        <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/>
        <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
    End Class
    
    '<remarks/>
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://tempuri.org/webmanage/Service1"),  _
     System.FlagsAttribute()>  _
    Public Enum DataRowState
        
        '<remarks/>
        Detached = 1
        
        '<remarks/>
        Unchanged = 2
        
        '<remarks/>
        Added = 4
        
        '<remarks/>
        Deleted = 8
        
        '<remarks/>
        Modified = 16
    End Enum
End Namespace