Public Shared fldNewPasword As String 
Private Sub btnSubmit_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs ) _
Handles btnSubmit.Click
? Описываем proxy и переменную для сохранения массива объектов
Dim xws1 As New cab233a.SSMWSEmpPhones
Dim response As System.Array
? Вызвать метод UpdateEmpPhonesRow и обеспечить реакцию на ошибки.
Try
response = xws1.UpdateEmpPhonesRow( _
 CInt(txtEmplyeeID.Text), True, txtPassword.Text, _
 txtFname.Text, txtLname.Text, CInt(txtPhone.Text), True)
If response(0) = 0 Then
 MessageBox.Show(«Введите корректные значения EmployeeID и Password « & _
 «соответствующие выделенной строке Web-службы.», _
 «SSMWSEmpPhones Web Service Message»)
End If
Catch ex1 as Exception 
 MsgBox («Error message: « & vbCr & ex1.Message)
Exit Sub
End Try
End Sub
Private Sub btnValidate _Click ( _ 
ByVal sender As System.Object, _
ByVal e As System.EventArgs ) _
Handles btnValidate.Click
? Открыть новый экземпляр формы Form3
Dim frm3 As New Form3
frm3.Show
? Скопировать значения из Form2 в Form3
frm3.txtEmployeeID.Text = txtEmployeeID.Text
frm3.txtOldPassword.Text = txtPassword.Text
End Sub
Private Sub btnUpdate_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs ) _
Handles btnUpdate.Click
? Описываем proxy
Dim xws1 As New cab233a.SSMWSEmpPhones
? Если fldNewPassword не равно Failed, выполнить метод UpdatePassword
? Иначе выдать диагностическое сообщение.
If Not (fldNewPassword = «Failed») Then 
xws1.UpdatePassword(CInt(txtEmployeeID.Text), True, _
 fldNewPassword)
Else
MessageBox.Show(«Введите корректный пароль.», _
 «SSMWSEmpPhones Web Service Message»)
End If
End Sub

Поделитесь материалом с коллегами и друзьями