XML课程设计实验报告.docx

《XML课程设计实验报告.docx》由会员分享，可在线阅读，更多相关《XML课程设计实验报告.docx（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、XML课程设计实验报告 综合性、设计性实验报告 姓名:_张越男学号_33号_ 专业:软件工程班级软件1002班 实验课程名称XML程序设计实验 指导教师及职称朱烜璋 开课学期2022至2022学年第1学期 上课时间年月日 湖南科技学院教务处编印 设计题目基于XML的通信1201班积分量化管理程序设计 一.实验目的： 综合运用本学期自己所学的XML相关知识，设计一个具有实用价值的信息显示应用程序，并撰写课程设计报告。 其目的为： 1.加深对本课程基本知识的理解和掌握； 2.掌握XML程序调试的基本技能； 3.掌握设计XML应用软件的基本思路； 4.提高运用XML解决实际问题的能力； 5.提高撰写

2、设计报告的能力。 二.软硬件环境： Microsoft Visual Basic6.0 三.系统分析系统结构（图解）、功能结构（图解）、工作流程(图解)： 1.功能结构： 2.系统结构： 3.工作流程： 四.编程步骤及技术难点（核心代码）： 1.实验目标： 使用编程工具结合XML做数据源编写程序，制作的程序能正常运行，并具备一定的完整性、健壮性、交互性。同时，所编写的程序要实现加载文档、添加新同学、删除同学记录、修改同学属性及查询功能。 2.编程工具介绍： Visual Basic是一个强而有力的系统开发软件之一，以其实用、方便、快捷、开发周期短等优点，越来越被广大编程人员所青睐。Visual

3、 Basic比较容易上手，进而能够提高软件开发的效率。 3.数据库设计： 20220101 唐学政 21 男 724 3 20220102 符晓 20 女 625 4 20220103 陆少帆 22 男 746 1 20220104 闵婧 21 女 621 5 20220105 陈遇白 21 男 735 2 4.加载文档的实现： 主要代码： Private Sub Command5_Click() Dim str As String Open App.Path&dom.xmlFor Input As#1 Do While Not EOF(1) Line Input#1,str Text7.Te

4、xt=Text7.Text&str&vbCrLf Loop Close#1 End Sub 5.添加功能的实现： 主要代码： Private Sub Command1_Click() 定义元素 Dim root As IXMLDOMElement Dim student As IXMLDOMElement Dim number As IXMLDOMElement Dim name As IXMLDOMElement Dim age As IXMLDOMElement Dim sex As IXMLDOMElement Dim score As IXMLDOMElement Dim rank A

5、s IXMLDOMElement 定义属性 Dim sn As IXMLDOMAttribute Dim mode As IXMLDOMAttribute 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,) Set number=dom.createNode(NODE_ELEMENT,number,) Set n

6、ame=dom.createNode(NODE_ELEMENT,name,) Set age=dom.createNode(NODE_ELEMENT,age,) Set sex=dom.createNode(NODE_ELEMENT,sex,) Set score=dom.createNode(NODE_ELEMENT,score,) Set rank=dom.createNode(NODE_ELEMENT,rank,) student.appendChild number student.appendChild name student.appendChild age student.app

7、endChild sex student.appendChild score student.appendChild rank root.appendChild student student.setAttributesn,Text4.Text rank.setAttributemode,Text5.Text End Sub 6.删除功能的实现： 主要代码： Private Sub Command2_Click() Dim root As IXMLDOMElement Dim node As IXMLDOMNode Dim Xpath As String Xpath=/studentsn=&T

8、ext4.Text& Set root=dom.documentElement Set node=nodelist.Item(n) Set node=dom.selectSingleNode(Xpath) root.removeChild node dom.save(dom.xml) Text1.Text= Text2.Text= Text3.Text= Text4.Text= Text5.Text= Text6.Text= MsgBox删除成功！ Set nodelist=dom.selectNodes(/student) End Sub 7.修改功能的实现： 主要代码： Private S

9、ub Command3_Click() Dim ret As Integer ret=MsgBox(是真的要保存吗？,vbYesNo,提示) If ret=6Then SaveNode End Sub Private Function SaveNode() 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.

10、Item(2).Text=Text3.Text 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 dom.save(dom.xml) MsgBox保存成功！ End Function 8.查询功能的实现： 主要代码： Private Sub Command4_Click() n=n1 If nnodelist.length-1Then

11、n=nodelist.length-1 MsgBox已到记录尾！ End If ShowNode n End Sub 运行结果截图： 主界面： 五.实验总结 通过这个学期学习XML，我了解很多XML的知识。这也让我对这门课程有了一定程度的了解，在整个设计课程中，让我充分知道了XML的形式和使用的方法。希望在以后的学习中更加理解这门学科，为以后从事这方面的事业做好准备。 在本设计的开发过程中，由于我是初次开发软件，在知识、经验等方面都存在着不足。另外，因为是期末，整个开发过程的时间也比较仓促。因此，本次设计必然会存在一些缺陷和不足。 本次设计中也遇到了一些问题，首先就是对信息管理的整个流程不够熟

12、悉，在需求分析时未能做到完全满足用户的需求。虽然本次设计的系统实现的功能不是很多很强大，但是我也竭尽所能希望做到完美。其次，在设计过程中，才发现以往学习的一些XML知识，理解的不透彻、掌握的不牢固。以至于在运作时遇到一些问题，会有无从下手的慌张。好在这些问题在同学的帮助下都一一得到了解决。 通过这次实验设计，巩固了我对Visual Basic的学习和操作，掌握了VisualBasic应用程序开发软件的设计方法，对XML这门课的知识也起到了查漏补缺的作用。在这次设计中的最大收获并不是掌握了这几门开发工具的应用，而是学会了设计系统的思维方法，提高了自己综合分析问题和解决实际问题的能力以及与同学之间相互帮助相互讨论的精神。希望在以后的学习中更加理解这门学科，为将来走上工作岗位打下一个良好的基础。 指导老师对实验设计方案的意见： 签名：年月日