reference.vb

我基于.netframwork1.0开发的一个B/S网络店铺（会员）销售管理系统。

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.1.4322.573
'
'     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.573 版自动生成。
'
Namespace jamieson
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="querySoap", [Namespace]:="http://shop.jamieson.cn/")>  _
    Public Class query
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://shop.jamieson.cn/svmember/query.asmx"
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://shop.jamieson.cn/QueryNode", RequestNamespace:="http://shop.jamieson.cn/", ResponseNamespace:="http://shop.jamieson.cn/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function QueryNode(ByVal code As String) As Integer
            Dim results() As Object = Me.Invoke("QueryNode", New Object() {code})
            Return CType(results(0),Integer)
        End Function
        
        '<remarks/>
        Public Function BeginQueryNode(ByVal code As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("QueryNode", New Object() {code}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndQueryNode(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://shop.jamieson.cn/QueryRemainder", RequestNamespace:="http://shop.jamieson.cn/", ResponseNamespace:="http://shop.jamieson.cn/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function QueryRemainder(ByVal code As String) As Integer
            Dim results() As Object = Me.Invoke("QueryRemainder", New Object() {code})
            Return CType(results(0),Integer)
        End Function
        
        '<remarks/>
        Public Function BeginQueryRemainder(ByVal code As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("QueryRemainder", New Object() {code}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndQueryRemainder(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://shop.jamieson.cn/CheckMember", RequestNamespace:="http://shop.jamieson.cn/", ResponseNamespace:="http://shop.jamieson.cn/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function CheckMember(ByVal name As String, ByVal code As String, ByVal id As String, ByVal password As String) As Boolean
            Dim results() As Object = Me.Invoke("CheckMember", New Object() {name, code, id, password})
            Return CType(results(0),Boolean)
        End Function
        
        '<remarks/>
        Public Function BeginCheckMember(ByVal name As String, ByVal code As String, ByVal id As String, ByVal password As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("CheckMember", New Object() {name, code, id, password}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndCheckMember(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Boolean)
        End Function
    End Class
End Namespace