Partial Class CustomerServiceTest
Inherits System.Web.UI.Page
Protected Sub btnGetCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetCustomer.Click
Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")
Dim cust As CustomerWcfService.Customer = wcfSrv.GetCustomer(CInt(Me.txtCustID.Text))
If cust.ID > 0 Then
Me.txtCustID.Text = cust.ID
Me.txtCustName.Text = cust.Name
Me.txtCustDOB.Text = cust.DOB
Me.txtCustAddress.Text = cust.Address
Me.lblStatus.Text = "Customer found."
Else
Me.lblStatus.Text = "Customer not found."
Me.txtCustName.Text = ""
Me.txtCustDOB.Text = ""
End If
wcfSrv.Close()
End Sub
Protected Sub btnAddCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddCustomer.Click
Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")
Dim cust As New CustomerWcfService.Customer
cust.Name = Me.txtCustName.Text
cust.DOB = CDate(Me.txtCustDOB.Text)
cust.Address = Me.txtCustAddress.Text
Dim rtn As Integer = wcfSrv.AddCustomer(cust)
lblStatus.Text = "Cust ID: " & rtn.ToString
wcfSrv.Close()
End Sub
Protected Sub btnUpdateCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdateCustomer.Click
Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")
Dim cust As New CustomerWcfService.Customer
cust.ID = CInt(Me.txtCustID.Text)
cust.Name = Me.txtCustName.Text
cust.DOB = CDate(Me.txtCustDOB.Text)
cust.Address = Me.txtCustAddress.Text
Dim rtn As Boolean = wcfSrv.UpdateCustomer(cust)
lblStatus.Text = "Update Status is : " & rtn.ToString
wcfSrv.Close()
End Sub
Protected Sub btnDeleteCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDeleteCustomer.Click
Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")
Dim rtn As Boolean = wcfSrv.DeleteCustomer(CInt(Me.txtCustID.Text))
lblStatus.Text = "Delete Status is : " & rtn.ToString
wcfSrv.Close()
End Sub
Protected Sub btnGetCustomers_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetCustomers.Click
Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")
Dim custArr() As CustomerWcfService.Customer
custArr = wcfSrv.GetCustomers()
For Each cust As CustomerWcfService.Customer In custArr
Response.Write("ID: " & cust.ID.ToString & " Name: " & cust.Name & "<br/>")
Next
lblStatus.Text = "No of Customer Records found: " & custArr.Length.ToString
wcfSrv.Close()
End Sub
End Class