customerservice.vb

vb.net MCP课程的英文讲义,70-310课程,值得一读

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.0.2914.16
'
'     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.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

Namespace Services
    
    <System.Web.Services.WebServiceBindingAttribute(Name:="CustomerServiceSoap", [Namespace]:="http://tempuri.org/")>  _
    Public Class CustomerService
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.Url = "http://localhost/2373/Labs/Lab072/Ex01/Solution/CustomerService.asmx"
        End Sub
        
        <System.Diagnostics.DebuggerStepThroughAttribute(),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetDetails", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Sub GetDetails(ByVal intID As Integer, ByRef strEmail As String, ByRef strPassword As String, ByRef strFName As String, ByRef strLName As String, ByRef strAddress As String, ByRef strCompany As String)
            Dim results() As Object = Me.Invoke("GetDetails", New Object() {intID, strEmail, strPassword, strFName, strLName, strAddress, strCompany})
            strEmail = CType(results(0),String)
            strPassword = CType(results(1),String)
            strFName = CType(results(2),String)
            strLName = CType(results(3),String)
            strAddress = CType(results(4),String)
            strCompany = CType(results(5),String)
        End Sub
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Function BeginGetDetails(ByVal intID As Integer, ByVal strEmail As String, ByVal strPassword As String, ByVal strFName As String, ByVal strLName As String, ByVal strAddress As String, ByVal strCompany As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetDetails", New Object() {intID, strEmail, strPassword, strFName, strLName, strAddress, strCompany}, callback, asyncState)
        End Function
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub EndGetDetails(ByVal asyncResult As System.IAsyncResult, ByRef strEmail As String, ByRef strPassword As String, ByRef strFName As String, ByRef strLName As String, ByRef strAddress As String, ByRef strCompany As String)
            Dim results() As Object = Me.EndInvoke(asyncResult)
            strEmail = CType(results(0),String)
            strPassword = CType(results(1),String)
            strFName = CType(results(2),String)
            strLName = CType(results(3),String)
            strAddress = CType(results(4),String)
            strCompany = CType(results(5),String)
        End Sub
        
        <System.Diagnostics.DebuggerStepThroughAttribute(),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/AddCustomer", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function AddCustomer(ByVal strEmail As String, ByVal strPassword As String, ByVal strFName As String, ByVal strLName As String, ByVal strAddress As String, ByVal strCompany As String) As Integer
            Dim results() As Object = Me.Invoke("AddCustomer", New Object() {strEmail, strPassword, strFName, strLName, strAddress, strCompany})
            Return CType(results(0),Integer)
        End Function
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Function BeginAddCustomer(ByVal strEmail As String, ByVal strPassword As String, ByVal strFName As String, ByVal strLName As String, ByVal strAddress As String, ByVal strCompany As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("AddCustomer", New Object() {strEmail, strPassword, strFName, strLName, strAddress, strCompany}, callback, asyncState)
        End Function
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Function EndAddCustomer(ByVal asyncResult As System.IAsyncResult) As Integer
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Integer)
        End Function
        
        <System.Diagnostics.DebuggerStepThroughAttribute(),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/LogOn", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Sub LogOn(ByVal strEmail As String, ByVal strPassword As String, ByRef intID As Integer, ByRef strFName As String, ByRef strLName As String, ByRef strAddress As String, ByRef strCompany As String)
            Dim results() As Object = Me.Invoke("LogOn", New Object() {strEmail, strPassword, intID, strFName, strLName, strAddress, strCompany})
            intID = CType(results(0),Integer)
            strFName = CType(results(1),String)
            strLName = CType(results(2),String)
            strAddress = CType(results(3),String)
            strCompany = CType(results(4),String)
        End Sub
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Function BeginLogOn(ByVal strEmail As String, ByVal strPassword As String, ByVal intID As Integer, ByVal strFName As String, ByVal strLName As String, ByVal strAddress As String, ByVal strCompany As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("LogOn", New Object() {strEmail, strPassword, intID, strFName, strLName, strAddress, strCompany}, callback, asyncState)
        End Function
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub EndLogOn(ByVal asyncResult As System.IAsyncResult, ByRef intID As Integer, ByRef strFName As String, ByRef strLName As String, ByRef strAddress As String, ByRef strCompany As String)
            Dim results() As Object = Me.EndInvoke(asyncResult)
            intID = CType(results(0),Integer)
            strFName = CType(results(1),String)
            strLName = CType(results(2),String)
            strAddress = CType(results(3),String)
            strCompany = CType(results(4),String)
        End Sub
    End Class
End Namespace