课 程 实 训 报 告
课程名称 数据库原理及应用
系 别： 工程技术系
专业班级：计算机网络技术 班
组 号：
姓 名：
实训题目： 学生管理系统应用
实训日期： 2010年6月28日
指导老师：
2010年7月1日
实 训 目 的
1．培养学生能够应用数据库系统原理在需求分析的基础上对系统进行概念
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
。
2．培养学生能够应用SQL语言对所设计的规范化关系模型进行物理设计，并且能够应用事物处理，存储过程，触发器，游标技术以保证数据库系统的数据完整性，安全性，一致性，保证数据共享和防止数据冲突。
3．培养学生理论与实际相结合相结合能力，培养学生开发创新能力。
实 训 要 求
要求我们了解并且会运用数据的导入和导出、建表、数据库、设计数据库的索引、外键等、视图、存储过程和触发器。并将数据库应用技术和面向对象程序设计结合起来
实 训 注 意 事 项
1. 数据的导入和导出
2. 数据库的结构
3. 视图、存储过程和触发器
4. 环境的搭建
5．应用程序与数据库连接
实 训 内 容
1.学生管理系统的系统结构
2.数据的流向分析
3.学生管理系统的设计流程
4.用SQL Server2000设计数据库
5.系统的图形界面实现
6.系统数据库的事务设计
7.系统页面事件处理
8.调试并优化系统
实 训 简 操 作 步 骤
1.对设计的系统进行分析。设计一个数据库管理系统，首先要深刻了解此系统要实现那些功能，然后再确定设计哪些数据表。
2.进行数据库, 数据表, 数据库完整性, 数据库对象的设计。对系统做好分析以后，接着设计数据库，包括它的名称，路径，大小等的设计。
3.完成整个数据库系统的设计。
4.设计VB.NET的界面，包括主界面和子界面。
5.编写代码，实现控件的功能。
6.与数据库进行连接。
7.调试系统，完善功能。
实 训 心 得 体 会
一周的数据库系统项目实训，让我在各方面都有了一定的提高。通过实训，我从单一，片面的学习进入了全面，系统的学习。并在实训中加深了对数据库的理解，并积累了经验。
首先，通过项目设计，我加深了对SQL Server 2000数据库知识和VB的学习和理解。以前的学习中，我不太注意知识的回顾和
总结
初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf
；但现在为了使设计的项目更加完整，在项目设计开始前我便把所有知识和设计要点复习了一遍，并进行了总结，这样在项目设计的时候便能够得心应手。
其次，通过项目设计，积累了在信息系统中使用各种数据库对象的经验。设计一个数据库系统，必然要设计许多特定功能数据库对象，这样才能提高数据库系统的功能；在思考和设计中，我不但学到了许多专业知识，而且还提高了逻辑思维能力，积累了使用对象的能力。
另外，这次管理系统项目的设计可以为我们以后的实际数据库系统和VB应用提供借鉴。项目设计是对平时所学知识的一种汇总，并对所学知识进行检验。更重要的是，这次实训可以为我们以后真正的实际数据库系统设计提供很好的借鉴。
这次实训使我学到了很多
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
上没有的知识，同时也使我清楚地认识到自己优点和缺点，自己存在的不足。所以，我会努力学习，尽快地提高自己的能力。
实训评语及成绩
评 语
成 绩
指导教师
（签 名）
2010年7月 日
附录：
一、设计的系统界面示意图
二、涉及的代码清单
Private Sub Command1_Click() '搜索
Dim mynumber As String
mynumber = InputBox$("请输入学号(4位)", "学号搜索")
Adodc1.Recordset.MoveFirst
'将记录移至第一条
If mynumber <> "" Then
mynumber = "sno='" & mynumber & "'"
'组合搜索字符串
Adodc1.Recordset.Find (mynumber)
'寻找符合学号的记录
If Adodc1.Recordset.EOF Then
'没找到，输出提示信息
MsgBox "没有该学生！"
End If
End If
End Sub
Private Sub Command2_Click()
Dim s As String
s = MsgBox("确定要删除吗?", vbQuestion + vbOKCancel, "确定删除！") '创建删除确认窗口
If s = 1 Then '确定删除一条记录
Adodc1.Recordset.Delete '删除记录
Adodc1.Recordset.MoveNext '移至下一条记录
If Adodc1.Recordset.RecordCount > 0 Then '是否还有记录
If Adodc1.Recordset.EOF Then '是否移记录指针到尽头
Adodc1.Recordset.MoveLast '移至最后一条记录
End If
End If
End If
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.AddNew '添加新纪录
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End Sub
浙公网安备 33021202002483