数据库实训报告

《数据库实训报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、课程实训报告课程名称数据库原理及应用系别：工程技术系专业班级：计算机网络技术班组号：姓名：实训题目：学生管理系统应用实训日期：2010年6月28日指导老师：2010年7月1日实训目的1．培养学生能够应用数据库系统原理在需求分析的基础上对系统进行概念设计。2．培养学生能够应用SQL语言对所设计的规范化关系模型进行物理设计，并且能够应用事物处理，存储过程，触发器，游标技术以保证数据库系统的数据完整性，安全性，一致性，保证数据共享和防止数据冲突。3．培养学生理论与实际相结合相结合能力，培养学生开发创新能力。实训要求要求我们了解并且会运用数

2、据的导入和导出、建表、数据库、设计数据库的索引、外键等、视图、存储过程和触发器。并将数据库应用技术和面向对象程序设计结合起来实训注意事项1.数据的导入和导出2.数据库的结构3.视图、存储过程和触发器4.环境的搭建5．应用程序与数据库连接实训内容1.学生管理系统的系统结构2.数据的流向分析3.学生管理系统的设计流程4.用SQLServer2000设计数据库5.系统的图形界面实现6.系统数据库的事务设计7.系统页面事件处理8.调试并优化系统实训简操作步骤1.对设计的系统进行分析。设计一个数据库管理系统，首先要深刻了解此系统要实现那些功能

3、，然后再确定设计哪些数据表。2.进行数据库,数据表,数据库完整性,数据库对象的设计。对系统做好分析以后，接着设计数据库，包括它的名称，路径，大小等的设计。3.完成整个数据库系统的设计。4.设计VB.NET的界面，包括主界面和子界面。5.编写代码，实现控件的功能。6.与数据库进行连接。7.调试系统，完善功能。实训心得体会一周的数据库系统项目实训，让我在各方面都有了一定的提高。通过实训，我从单一，片面的学习进入了全面，系统的学习。并在实训中加深了对数据库的理解，并积累了经验。首先，通过项目设计，我加深了对SQLServer2000数据库

4、知识和VB的学习和理解。以前的学习中，我不太注意知识的回顾和总结；但现在为了使设计的项目更加完整，在项目设计开始前我便把所有知识和设计要点复习了一遍，并进行了总结，这样在项目设计的时候便能够得心应手。其次，通过项目设计，积累了在信息系统中使用各种数据库对象的经验。设计一个数据库系统，必然要设计许多特定功能数据库对象，这样才能提高数据库系统的功能；在思考和设计中，我不但学到了许多专业知识，而且还提高了逻辑思维能力，积累了使用对象的能力。另外，这次管理系统项目的设计可以为我们以后的实际数据库系统和VB应用提供借鉴。项目设计是对平时所学知

5、识的一种汇总，并对所学知识进行检验。更重要的是，这次实训可以为我们以后真正的实际数据库系统设计提供很好的借鉴。这次实训使我学到了很多书上没有的知识，同时也使我清楚地认识到自己优点和缺点，自己存在的不足。所以，我会努力学习，尽快地提高自己的能力。  实训评语及成绩评语成绩指导教师（签名）2010年7月日附录：一、设计的系统界面示意图二、涉及的代码清单PrivateSubCommand1_Click()'搜索DimmynumberAsStringmynumber=InputBox$("请输入学号(4位)","学号搜索")Adodc1.R

6、ecordset.MoveFirst'将记录移至第一条Ifmynumber<>""Thenmynumber="sno='"&mynumber&"'"'组合搜索字符串Adodc1.Recordset.Find(mynumber)'寻找符合学号的记录IfAdodc1.Recordset.EOFThen'没找到，输出提示信息MsgBox"没有该学生！"EndIfEndIfEndSubPrivateSubCommand2_Click()DimsAsStrings=MsgBox("确定要删除吗?",vbQuestion+vbOKCancel,

7、"确定删除！")'创建删除确认窗口Ifs=1Then'确定删除一条记录Adodc1.Recordset.Delete'删除记录Adodc1.Recordset.MoveNext'移至下一条记录IfAdodc1.Recordset.RecordCount>0Then'是否还有记录IfAdodc1.Recordset.EOFThen'是否移记录指针到尽头Adodc1.Recordset.MoveLast'移至最后一条记录EndIfEndIfEndIfEndSubPrivateSubCommand3_Click()Adodc1.Recor

8、dset.AddNew'添加新纪录EndSubPrivateSubCommand4_Click()Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastEndSubPrivateSubComm