XML课程设计实验报告

五.实验总结
通过这个学期学习XML，我了解很多XML的知识。这也让我对这门课程有了一定程度的了解，在整个设计课程中，让我充分知道了XML的形式和使用的方法。希望在以后的学习中更加理解这门学科，为以后从事这方面的事业做好准备。
在本设计的开发过程中，由于我是初次开发软件，在知识、经验等方面都存在着不足。另外，因为是期末，整个开发过程的时间也比较仓促。因此，本次设计必然会存在一些缺陷和不足。
Dim age As IXMLDOMElement
Dim sex As IXMLDOMElement
Dim score As IXMLDOMElement
Dim rank As IXMLDOMElement
'定义属性
'Dim sn As IXMLDOMAttribute
' Dim mode As IXMLDOMAttribute
Set nodelist = dom.selectNodes("//student")
nodelist.Item(n).childNodes.Item(0).Text = Text1.Text
nodelist.Item(n).childNodes.Item(1).Text = Text2.Text
nodelist.Item(n).childNodes.Item(2).Text = Text3.Text
' student.setAttribute "sn", Text4.Text
' rank.setAttribute "mode", Text5.Text
End Sub
6.删除功能的实现：
主要代码：
Private Sub Command2_Click()
Dim root As IXMLDOMElement
本次设计中也遇到了一些问题，首先就是对信息管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然本次设计的系统实现的功能不是很多很强大，但是我也竭尽所能希望做到完美。其次，在设计过程中，才发现以往学习的一些XML知识，理解的不透彻、掌握的不牢固。以至于在运作时遇到一些问题，会有无从下手的慌张。好在这些问题在同学的帮助下都一一得到了解决。
二.软硬件环境：
Microsoft Visual Basic 6.0
三.系统分析系统结构（图解）、功能结构（图解）、工作流程(图解)：
1.功能结构：
2.系统结构：
3.工作流程：
四.编程步骤及技术难点（核心代码）：
1.实验目标：
使用编程工具结合XML做数据源编写程序，制作的程序能正常运行，并具备一定的完整性、健壮性、交互性。同时，所编写的程序要实现加载文档、添加新同学、删除同学记录、修改同学属性及查询功能。
Set number = dom.createNode(NODE_ELEMENT, "number", "")
Set name = dom.createNode(NODE_ELEMENT, "name", "")
Set age = dom.createNode(NODE_ELEMENT, "age", "")
dom.save ("dom.xml")
MsgBox "保存成功！"
End Function
8.查询功能的实现：
主要代码：
【上一条】
Private Sub Command4_Click()
n = n–1
If n < 0 Then
n = 0
MsgBox "已到记录头！"
End If
ShowNode n
通过这次实验设计，巩固了我对Visual Basic的学习和操作，掌握了VisualBasic应用程序开发软件的设计方法，对XML这门课的知识也起到了查漏补缺的作用。在这次设计中的最大收获并不是掌握了这几门开发工具的应用，而是学会了设计系统的思维方法，提高了自己综合分析问题和解决实际问题的能力以及与同学之间相互帮助相互讨论的精神。希望在以后的学习中更加理解这门学科，为将来走上工作岗位打下一个良好的基础。
Set sex = dom.createNode(NODE_ELEMENT, "sex", "")
Set score = dom.createNode(NODE_ELEMENT, "score", "")
Set rank = dom.createNode(NODE_ELEMENT, "rank", "")
一.实验目的：
综合运用本学期自己所学的XML相关知识，设计一个具有实用价值的信息显示应用程序，并撰写课程设计报告。
其目的为：
1.加深对本课程基本知识的理解和掌握；
2.掌握XML程序调试的基本技能；
3.掌握设计XML应用软件的基本思路；
4.提高运用XML解决实际问题的能力；
5.提高撰写设计报告的能力。
Dim node As IXMLDOMNode
Dim Xpath As String
Xpath = "//student[@sn='" & Text4.Text & "']"
Set root = dom.documentElement
'Set node = nodelist.Item(n)
Set node = dom.selectSingleNode(Xpath)
指导老师对实验设计方案的意见：
签名：年月日
nodelist.Item(n).childNodes.Item(3).Text = Text4.Text
nodelist.Item(n).childNodes.Item(4).Text = Text5.Text
nodelist.Item(n).childNodes.Item(5).Text = Text6.Text
student.appendChild number
student.appendChild name
student.appendChild age
student.appendChild sex
student.appendChild score
student.appendChild rank
root.appendChild student
<student_info>
<student>
<number>20100101</number>
<name>唐学政</name>
<age>21</age>
<sex>男</s Nhomakorabeax>
<score>724</score>
<rank>3</rank>
</student>
<student>
<number>20100102</number>
n = nodelist.length
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Set root = dom.documentElement
Set student = dom.createNode(NODE_ELEMENT, "student", "")
End Sub
【下一条】
Private Sub Command6_Click()
n = n + 1
If n > nodelist.length - 1 Then
n = nodelist.length - 1
MsgBox "已到记录尾！"
End If
ShowNode n
End Sub
运行结果截图：
主界面：
<name>符晓</name>
<age>20</age>
<sex>女</sex>
<score>625</score>
<rank>4</rank>
</student>
<student>
<number>20100103</number>
<name>陆少帆</name>
<age>22</age>
<sex>男</sex>
2.编程工具介绍：
Visual Basic是一个强而有力的系统开发软件之一，以其实用、方便、快捷、开发周期短等优点，越来越被广大编程人员所青睐。Visual Basic比较容易上手，进而能够提高软件开发的效率。
3.数据库设计：
<?xml version="1.0" encoding="UTF-8"?>
<score>746</score>
<rank>1</rank>
</student>