Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsAddress

Public Class UpdateData: Inherits Page
	Public txtName,txtTel,txtEmail,txtIntro,txtUserPWD As TextBox
	Public lblId,message As Label

	'該過程根據(jù)傳遞過來的記錄編號將該記錄顯示在下面的表單中
	Sub Page_load(Sender As Object, E As EventArgs)
		If Not IsPostBack Then 
			'建立一個DataUser對象實例
			Dim du As New DataUser("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb"),Request.QueryString("id"))
			'下面利用屬性返回記錄信息
			txtName.Text=du.name
			txtTel.Text=du.tel
			txtEmail.Text=du.email					
			txtIntro.Text=du.intro
			lblId.Text=du.Id						
		End If
	End Sub
	Sub Enter_Click(Sender As Object, E As EventArgs)
		'建立DataBusiness對象實例，更新當前記錄
		Dim dbs As New DataBusiness("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb"))
		If dbs.PreUpdate(lblId.Text,txtName.Text,txtTel.Text,txtEmail.Text,txtIntro.Text,txtUserPWD.Text)=True Then
			'更新完畢，返回首頁
			Response.Redirect("index.aspx")	
		Else
			message.Text="請輸入正確的密碼"
		End If
	End Sub
End Class