用XML写的留言录(vb.net)(四)

作者:fx_blog(CSDN)
日期:2005-5-22
标题:威人留言录(v1.8)
注意:转贴一定注明作者及出处
'**********************这一部分我们来完成用户注册信息修改的功能************************************
''我们还要再新建一个窗体
'窗体界面和注册界面是差不多的
'combobox要Enable属性设为false
界面如下:



'这里的检查是否是有同名的按钮，换成了combobox 控件,这个下拉菜单用来载入所有的用户名
'好了回到留言主窗体
'双击"修改注册信息"按钮
'输入以下的代码:
If TextBox1.Text <> "" And TextBox2.Text <> "" Then
Dim doc As New XmlDocument
doc.Load("info.xml")
Try
Dim root As XmlNode = doc.DocumentElement
Dim listuser As XmlNodeList
Dim listpass As XmlNodeList
listuser = doc.GetElementsByTagName("userid")
listpass = doc.GetElementsByTagName("Pass")
Dim i, j As Integer
For i = 0 To listuser.Count - 1
For j = 0 To listpass.Count - 1
While TextBox1.Text = listuser(i).InnerText And TextBox2.Text = listpass(i).InnerText
Panel3.Visible = True
Dim updateuserinfoform As New Form5
updateuserinfoform.TextBox1.Text = Me.TextBox1.Text
updateuserinfoform.Show()
MessageBox.Show("登陆成功")
TextBox2.Text = ""
Exit Try
End While
Next
Next
MessageBox.Show("密码或用户名错误!")
Exit Sub
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Else
MessageBox.Show("请输入完整!")
End If
'(１)大家可以发现这段代码和登陆代码差不多一样的,只是多了几句:
Dim updateuserinfoform As New Form5
updateuserinfoform.TextBox1.Text = Me.TextBox1.Text
updateuserinfoform.Show()
'建立一个新的窗体，各位自己建(Form5)
'好了，现在打开form5 窗体
'也一样要在最上面导入命名空间
Imports System.Xml
Imports System.Xml.XPath
Imports System.Text
Imports System.IO
'好了现在我们来一步步完成功能
'双击窗体上的不是控件的地方
进入Form5_Load(...)
'输入以下的代码
'如果是管理员 下拉菜单可用
If TextBox1.Text = "admin" Then
ComboBox1.Enabled = True
End If
'载入xml文档
Dim doc As New XmlDocument
doc.Load("info.xml")
'用XPath取得所有用户名
Dim getallUser As XmlNodeList
getallUser = doc.SelectNodes("/userinfo/users/userid")
Dim allUserInCombobox As XmlNode
'用循环把所有用户名载入到combobx控件中
For Each allUserInCombobox In getallUser
ComboBox1.Items.Add(allUserInCombobox.InnerText)
Next
'根据Textbox的用户名(就是留言主界面传来的)
'如果管理员也可以是combobox里选出来的
'根据用户名,显示该用户名的注册信息到各位文本框中
Dim getPassPath As XmlNodeList
getPassPath = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/Pass")
Dim getfaverityPath As XmlNodeList = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/faverity")
'Dim getgirlOrBoyPath As XmlNodeList = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/girlOrBoy")
'Dim getXueliPath As XmlNodeList = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/xueLi")
Dim getinfotruePath As XmlNodeList = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/infotrue")
'Dim faverityUpdate As XmlNodeList
'faverityUpdate = doc.GetElementsByTagName("faverity")
'Dim passUpdate As XmlNodeList
'passUpdate = doc.GetElementsByTagName("Pass")
'Dim girlOrBoyUpdate As XmlNodeList = doc.GetElementsByTagName("girlOrBoy")
'Dim xueLiUpdate As XmlNodeList = doc.GetElementsByTagName("xueLi")
'Dim infotrueUpdate As XmlNodeList = doc.GetElementsByTagName("infotrue")
Dim getPass As XmlNode
Dim getFaverity As XmlNode
Dim getInfotrue As XmlNode
For Each getPass In getPassPath
TextBox2.Text = getPass.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/Pass").InnerText
TextBox3.Text = getPass.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/Pass").InnerText
Next
For Each getFaverity In getfaverityPath
TextBox4.Text = getFaverity.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/userinfomain/faverity").InnerText
Next
For Each getInfotrue In getinfotruePath
TextBox5.Text = getInfotrue.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/userinfomain/infotrue").InnerText
Next
'这以上就要根据用户名，把该用户的信息显示在各文本框中.
'再来实从下拉菜单combobox任选一个用户，就可以把选中的用户我信息显示在各自的文本框中.
'当然只管理员可用
'双击上面的"combobox"控件
'输入以下代码
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex <= 0 Then
MessageBox.Show("请管理员选择一个用户名!")
Exit Sub
End If
TextBox1.Text = ComboBox1.SelectedItem
Dim doc As New XmlDocument
doc.Load("info.xml")
Dim showUserownPass As XmlNodeList
showUserownPass = doc.SelectNodes("/userinfo/users[userid='" & ComboBox1.SelectedItem & "']/Pass")
Dim getPassValue As XmlNode
For Each getPassValue In showUserownPass
TextBox2.Text = getPassValue.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/Pass").InnerText
TextBox3.Text = getPassValue.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/Pass").InnerText
Next
Dim showUserownFaverity As XmlNodeList
showUserownFaverity = doc.SelectNodes("/userinfo/users[userid='" & ComboBox1.SelectedItem & "']/userinfomain/faverity")
Dim getFaverityValue As XmlNode
For Each getFaverityValue In showUserownFaverity
TextBox4.Text = getFaverityValue.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/userinfomain/faverity").InnerText
Next
Dim showUserownInfotrue As XmlNodeList
showUserownInfotrue = doc.SelectNodes("/userinfo/users[userid='" & ComboBox1.SelectedItem & "']/userinfomain/infotrue")
Dim getInfotrueValue As XmlNode
For Each getInfotrueValue In showUserownInfotrue
TextBox5.Text = getInfotrueValue.SelectSingleNode("//users[userid='" & TextBox1.Text & "']/userinfomain/infotrue").InnerText
Next
'以上信息就是显示待修改的内容
'**************第一点完成**********************************88888
'第二步来完成修改功能
'双击"修改"按钮
'输入以下的代码
If TextBox2.Text = "" Then
MessageBox.Show("新密码要填好!")
Exit Sub
End If
If TextBox3.Text = "" Then
MessageBox.Show("请确认密码")
Exit Sub
End If
If TextBox2.Text <> TextBox3.Text Then
MessageBox.Show("两次密码不一样")
Exit Sub
End If
If TextBox4.Text = "" Then
MessageBox.Show("请填好爱好")
Exit Sub
End If
If Not (RadioButton1.Checked Or RadioButton2.Checked) Then
MessageBox.Show("请选择性别!")
Exit Sub
End If
If ComboBox2.SelectedIndex <= 0 Then
MessageBox.Show("请选择职业!")
Exit Sub
End If
If TextBox5.Text = "" Then
MessageBox.Show("请填好个人说明")
Exit Sub
End If
'以上代码一定能看得懂吧
'以下代码就是根据用户名来修改并保存到该用户的节点中
Dim doc As New XmlDocument
doc.Load("info.xml")
Dim UpdatePassPath As XmlNodeList
UpdatePassPath = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/Pass")
Dim UpdatePass As XmlNode
For Each UpdatePass In UpdatePassPath
UpdatePass.InnerText = TextBox2.Text
Next
Dim UpdateFaverityPath As XmlNodeList
UpdateFaverityPath = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/faverity")
Dim UpdateFaverity As XmlNode
For Each UpdateFaverity In UpdateFaverityPath
UpdateFaverity.InnerText = TextBox4.Text
Next
Dim UpdategirlOrBoyPath As XmlNodeList
UpdategirlOrBoyPath = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/girlOrBoy")
Dim UpdategirlOrBoy As XmlNode
For Each UpdategirlOrBoy In UpdategirlOrBoyPath
If RadioButton1.Checked Then
UpdategirlOrBoy.InnerText = RadioButton1.Text
Else
UpdategirlOrBoy.InnerText = RadioButton2.Text
End If
Next
Dim UpdatexueLiPath As XmlNodeList
UpdatexueLiPath = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/xueLi")
Dim UpdatexueLi As XmlNode
For Each UpdatexueLi In UpdatexueLiPath
UpdatexueLi.InnerText = ComboBox2.SelectedItem
Next
Dim UpdateinfotruePath As XmlNodeList
UpdateinfotruePath = doc.SelectNodes("/userinfo/users[userid='" & TextBox1.Text & "']/userinfomain/infotrue")
Dim Updateinfotrue As XmlNode
For Each Updateinfotrue In UpdateinfotruePath
Updateinfotrue.InnerText = TextBox5.Text
Next
doc.Save("info.xml")
MessageBox.Show("修改成功")
Exit Sub

'***********************************好了修改功能完成了*************************
'OK 就写这么多了，
'也累了，大家看一下，如果有不懂的请留言.
'以上的包含(一)，（二），（三）,（四）都测试成功，完全可以运行。代码简单，为大家能够看得懂。
'还有一部分， 查询留言的其实也很简单，跟查询用户差不多，本人这两天有点忙，再过两天再发吧.
'本人保留所有权力