Windows Phone Edit Update data to Web Server

Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Json
Imports System.Collections.ObjectModel
Imports System.IO
Imports System.Text

Partial Public Class UpdatePage
    Inherits PhoneApplicationPage

    Public Sub New()
        InitializeComponent()
        AddHandler Loaded, AddressOf MainPage_Loaded
    End Sub

    Dim prog As ProgressIndicator
    Dim strMemberID As String = ""

    Private Sub MainPage_Loaded(sender As Object, e As System.Windows.RoutedEventArgs)

        Dim url As String = "http://localhost/myphp/getByMemberID.php"
        Dim uri As Uri = New Uri(url, UriKind.Absolute)


        NavigationContext.QueryString.TryGetValue("sMemberID", strMemberID)

        Dim postData As StringBuilder = New StringBuilder()
        postData.AppendFormat("{0}={1}", "sMemberID", HttpUtility.UrlEncode(strMemberID))

        Dim client As WebClient
        client = New WebClient()
        client.Headers(HttpRequestHeader.ContentType) = "application/x-www-form-urlencoded"
        client.Headers(HttpRequestHeader.ContentLength) = postData.Length.ToString()

        AddHandler client.UploadStringCompleted, AddressOf client_UploadStringCompleted
        AddHandler client.UploadProgressChanged, AddressOf client_UploadProgressChanged

        client.UploadStringAsync(uri, "POST", postData.ToString())

        prog = New ProgressIndicator()
        prog.IsIndeterminate = True
        prog.IsVisible = True
        prog.Text = "Loading...."
        SystemTray.SetProgressIndicator(Me, prog)

    End Sub

    Private Sub client_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs)
        'Me.txtResult.Text = "Uploading.... " & e.ProgressPercentage & "%"
    End Sub

    Private Sub client_UploadStringCompleted(sender As Object, e As UploadStringCompletedEventArgs)
        If e.Cancelled = False And e.Error Is Nothing Then

            Dim myMember As Member = ReadToObject(e.Result.ToString())
            Me.txtUsername.Text = myMember.Username.ToString()
            Me.txtPassword.Password = myMember.Password.ToString()
            Me.txtConPassword.Password = myMember.Password.ToString()
            Me.txtName.Text = myMember.Name.ToString()
            Me.txtTel.Text = myMember.Tel.ToString()
            Me.txtEmail.Text = myMember.Email.ToString()

            prog.IsVisible = False
        End If
    End Sub

    Public Shared Function ReadToObject(ByVal json As String) As Member
        Dim deserializedMember As New Member()
        Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(json))
        Dim ser As New DataContractJsonSerializer(deserializedMember.GetType())
        deserializedMember = TryCast(ser.ReadObject(ms), Member)
        ms.Close()
        Return deserializedMember
    End Function

    Private Sub btnSave_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)

        If Me.txtPassword.Password.ToString = "" Then
            MessageBox.Show("Please input (Password)")
            Exit Sub
        End If
        If Me.txtConPassword.Password.ToString = "" Then
            MessageBox.Show("Please input (Confirm Username)")
            Exit Sub
        End If
        If Me.txtPassword.Password.ToString <> Me.txtConPassword.Password.ToString Then
            MessageBox.Show("Password Not Match!")
            Exit Sub
        End If
        If Me.txtName.Text = "" Then
            MessageBox.Show("Please input (Name)")
            Exit Sub
        End If
        If Me.txtTel.Text = "" Then
            MessageBox.Show("Please input (Tel)")
            Exit Sub
        End If
        If Me.txtEmail.Text = "" Then
            MessageBox.Show("Please input (Email)")
            Exit Sub
        End If

        Dim url As String = "http://localhost/myphp/updateData.php"
        Dim uri As Uri = New Uri(url, UriKind.Absolute)


        Dim postData As StringBuilder = New StringBuilder()
        postData.AppendFormat("{0}={1}", "sMemberID", HttpUtility.UrlEncode(strMemberID))
        postData.AppendFormat("&{0}={1}", "sPassword", HttpUtility.UrlEncode(Me.txtPassword.Password.ToString))
        postData.AppendFormat("&{0}={1}", "sName", HttpUtility.UrlEncode(Me.txtName.Text))
        postData.AppendFormat("&{0}={1}", "sTel", HttpUtility.UrlEncode(Me.txtTel.Text))
        postData.AppendFormat("&{0}={1}", "sEmail", HttpUtility.UrlEncode(Me.txtEmail.Text))

        Dim client As WebClient
        client = New WebClient()
        client.Headers(HttpRequestHeader.ContentType) = "application/x-www-form-urlencoded"
        client.Headers(HttpRequestHeader.ContentLength) = postData.Length.ToString()

        AddHandler client.UploadStringCompleted, AddressOf client_SaveUploadStringCompleted
        AddHandler client.UploadProgressChanged, AddressOf client_SaveUploadProgressChanged

        client.UploadStringAsync(uri, "POST", postData.ToString())

        prog = New ProgressIndicator()
        prog.IsVisible = True
        prog.Text = "Connecting update to server...."
        SystemTray.SetProgressIndicator(Me, prog)
    End Sub

    Private Sub client_SaveUploadStringCompleted(sender As Object, e As UploadStringCompletedEventArgs)
        If e.Cancelled = False And e.Error Is Nothing Then

            Dim result As String() = e.Result.ToString.Split("|")
            '*** Check Status
            If result(0).ToString = "0" Then
                MessageBox.Show(result(1))
            Else
                MessageBox.Show("Update Data Successfully")
                NavigationService.Navigate(New Uri("/MainPage.xaml", UriKind.Relative))
            End If

            prog.IsVisible = False
        End If
    End Sub

    Private Sub client_SaveUploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs)
        'Me.txtResult.Text = "Uploading.... " & e.ProgressPercentage & "%"
    End Sub

    <DataContract()> _
    Public Class Member

        <DataMember()> _
        Public Property MemberID() As String
            Get
                Return m_MemberID
            End Get
            Set(value As String)
                m_MemberID = value
            End Set
        End Property
        <DataMember()> _
        Public Property Username() As String
            Get
                Return m_Username
            End Get
            Set(value As String)
                m_Username = value
            End Set
        End Property
        <DataMember()> _
        Public Property Password() As String
            Get
                Return m_Password
            End Get
            Set(value As String)
                m_Password = value
            End Set
        End Property
        <DataMember()> _
        Public Property Name() As String
            Get
                Return m_Name
            End Get
            Set(value As String)
                m_Name = value
            End Set
        End Property
        <DataMember()> _
        Public Property Tel() As String
            Get
                Return m_tel
            End Get
            Set(value As String)
                m_tel = value
            End Set
        End Property
        <DataMember()> _
        Public Property Email() As String
            Get
                Return m_Email
            End Get
            Set(value As String)
                m_Email = value
            End Set
        End Property


        Private m_MemberID As String
        Private m_Username As String
        Private m_Password As String
        Private m_Name As String
        Private m_tel As String
        Private m_Email As String

        Public Sub New()

        End Sub

        Public Sub New(ByVal strMemberID As String,
                       ByVal strUsername As String,
                       ByVal strPassword As String,
                       ByVal strName As String,
                       ByVal strTel As String,
                       ByVal strEmail As String)
            Me.MemberID = strMemberID
            Me.Username = strUsername
            Me.Password = strPassword
            Me.Name = strName
            Me.Tel = strTel
            Me.Email = strEmail

        End Sub

    End Class


End Class

using System;
using System.Windows;
using Microsoft.Phone.Controls;
using System.Collections.Generic;
using System.Runtime.Serialization;
using System.Runtime.Serialization.Json;
using System.Collections.ObjectModel;
using System.IO;
using System.Text;
using Microsoft.Phone.Shell;
using System.Windows.Controls;
using System.Net;

namespace PhoneApp
{
    public partial class UpdatePage : PhoneApplicationPage
    {
        public UpdatePage()
        {
            InitializeComponent();
            Loaded += MainPage_Loaded;
        }

        ProgressIndicator prog;
        string strMemberID = "";


        private void MainPage_Loaded(object sender, System.Windows.RoutedEventArgs e)
        {
            string url = "http://localhost/myphp/getByMemberID.php";
            Uri uri = new Uri(url, UriKind.Absolute);


            NavigationContext.QueryString.TryGetValue("sMemberID",out strMemberID);

            StringBuilder postData = new StringBuilder();
            postData.AppendFormat("{0}={1}", "sMemberID", HttpUtility.UrlEncode(strMemberID));

            WebClient client = default(WebClient);
            client = new WebClient();
            client.Headers[HttpRequestHeader.ContentType] = "application/x-www-form-urlencoded";
            client.Headers[HttpRequestHeader.ContentLength] = postData.Length.ToString();

            client.UploadStringCompleted += client_UploadStringCompleted;
            client.UploadProgressChanged += client_UploadProgressChanged;

            client.UploadStringAsync(uri, "POST", postData.ToString());

            prog = new ProgressIndicator();
            prog.IsIndeterminate = true;
            prog.IsVisible = true;
            prog.Text = "Loading....";
            SystemTray.SetProgressIndicator(this, prog);

        }

        private void client_UploadProgressChanged(object sender, UploadProgressChangedEventArgs e)
        {
            //Me.txtResult.Text = "Uploading.... " & e.ProgressPercentage & "%"
        }

        private void client_UploadStringCompleted(object sender, UploadStringCompletedEventArgs e)
        {

            if (e.Cancelled == false && e.Error == null)
            {
                Member myMember = ReadToObject(e.Result.ToString());
                this.txtUsername.Text = myMember.Username.ToString();
                this.txtPassword.Password = myMember.Password.ToString();
                this.txtConPassword.Password = myMember.Password.ToString();
                this.txtName.Text = myMember.Name.ToString();
                this.txtTel.Text = myMember.Tel.ToString();
                this.txtEmail.Text = myMember.Email.ToString();

                prog.IsVisible = false;
            }
        }

        public static Member ReadToObject(string json)
        {
            Member deserializedMember = new Member();
            MemoryStream ms = new MemoryStream(Encoding.UTF8.GetBytes(json));
            DataContractJsonSerializer ser = new DataContractJsonSerializer(deserializedMember.GetType());
            deserializedMember = ser.ReadObject(ms) as Member;
            ms.Close();
            return deserializedMember;
        }


        private void btnSave_Click(System.Object sender, System.Windows.RoutedEventArgs e)
        {
            if (string.IsNullOrEmpty(this.txtPassword.Password.ToString()))
            {
                MessageBox.Show("Please input (Password)");
                return;
            }
            if (string.IsNullOrEmpty(this.txtConPassword.Password.ToString()))
            {
                MessageBox.Show("Please input (Confirm Username)");
                return;
            }
            if (this.txtPassword.Password.ToString() != this.txtConPassword.Password.ToString())
            {
                MessageBox.Show("Password Not Match!");
                return;
            }
            if (string.IsNullOrEmpty(this.txtName.Text))
            {
                MessageBox.Show("Please input (Name)");
                return;
            }
            if (string.IsNullOrEmpty(this.txtTel.Text))
            {
                MessageBox.Show("Please input (Tel)");
                return;
            }
            if (string.IsNullOrEmpty(this.txtEmail.Text))
            {
                MessageBox.Show("Please input (Email)");
                return;
            }

            string url = "http://localhost/myphp/updateData.php";
            Uri uri = new Uri(url, UriKind.Absolute);


            StringBuilder postData = new StringBuilder();
            postData.AppendFormat("{0}={1}", "sMemberID", HttpUtility.UrlEncode(strMemberID));
            postData.AppendFormat("&{0}={1}", "sPassword", HttpUtility.UrlEncode(this.txtPassword.Password.ToString()));
            postData.AppendFormat("&{0}={1}", "sName", HttpUtility.UrlEncode(this.txtName.Text));
            postData.AppendFormat("&{0}={1}", "sTel", HttpUtility.UrlEncode(this.txtTel.Text));
            postData.AppendFormat("&{0}={1}", "sEmail", HttpUtility.UrlEncode(this.txtEmail.Text));

            WebClient client = default(WebClient);
            client = new WebClient();
            client.Headers[HttpRequestHeader.ContentType] = "application/x-www-form-urlencoded";
            client.Headers[HttpRequestHeader.ContentLength] = postData.Length.ToString();

            client.UploadStringCompleted += client_SaveUploadStringCompleted;
            client.UploadProgressChanged += client_SaveUploadProgressChanged;

            client.UploadStringAsync(uri, "POST", postData.ToString());

            prog = new ProgressIndicator();
            prog.IsVisible = true;
            prog.Text = "Connecting update to server....";
            SystemTray.SetProgressIndicator(this, prog);
        }

        private void client_SaveUploadStringCompleted(object sender, UploadStringCompletedEventArgs e)
        {

            if (e.Cancelled == false && e.Error == null)
            {
                string[] result = e.Result.ToString().Split('|');
                //*** Check Status
                if (result[0].ToString() == "0")
                {
                    MessageBox.Show(result[1].ToString());
                }
                else
                {
                    MessageBox.Show("Update Data Successfully");
                    NavigationService.Navigate(new Uri("/MainPage.xaml", UriKind.Relative));
                }

                prog.IsVisible = false;
            }
        }

        private void client_SaveUploadProgressChanged(object sender, UploadProgressChangedEventArgs e)
        {
            //Me.txtResult.Text = "Uploading.... " & e.ProgressPercentage & "%"
        }
    }

    [DataContract]
    public class Member
    {
        [DataMember]
        public string MemberID { get; set; }

        [DataMember]
        public string Username { get; set; }

        [DataMember]
        public string Password { get; set; }

        [DataMember]
        public string Name { get; set; }

        [DataMember]
        public string Tel { get; set; }

        [DataMember]
        public string Email { get; set; }

        public Member()
        {
        }

        public Member(string strMemberID, string strUsername, string strPassword
            , string strName
            , string strTel
            , string strEmail)
        {
            this.MemberID = strMemberID;
            this.Username = strUsername;
            this.Password = strPassword;
            this.Name = strName;
            this.Tel = strTel;
            this.Email = strEmail;
        }

    }
}