?? customerservice.vb
字號(hào):
?'------------------------------------------------------------------------------
' <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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -