学生成绩查询系统
一、实习任务……………………………………………… 2 二、系统分析……………………………………………… 3 三、系统设计……………………………………………… 4 四、调试、排错、测试、试运行过程…………………… 7 五、 源程序完整或主要代码 ……………………………10 六、 总结与体会………………………………………… 17 七、 参考文献…………………………………………… 18
一、 实习任务
1实习任务介绍：
熟悉软件工程学的基本思想进行软件开发的原则和方法；结构化分析方法和步骤；结构化编程方法；面向对象的思想和程序设计方法。按照软件开发的一般方法和步骤动手设计一个《学生成绩查询统计系统》。
2基本要求：
① 登录界面：密码最多尝试3次，连续3次均输入错误系统自动退出。 ② 具有录入成绩、添加记录、删除记录、修改记录功能。
③ 具有成绩查询功能，可以按照学号、课程号、课程名、分数段进行查询。为便于查询，所有的学号和课程号可考虑以下拉列表的形式给出。
④ 具有全部成绩浏览功能，且能与数据库表最新数据同步。
⑤ 具有统计功能，能以直方图、饼图、折线图、散点图、立体直方图直观表示各成绩段的分布情况。
⑥ 具有打印学生成绩报表的功能。 ⑦ 具有菜单和工具条的双重操作功能。
3 实习目的：
掌握常用控件的使用，学会使用通用对话框控件进行编程，掌握创建多重窗体程序的有关技术，了解鼠标和键盘事件及事件过程的编写，综合应用了所学知识，加深对VB的理解。
4 选题的背景及意义：
VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。成绩管理系统是一个实用性极强的系统，加深学生对VB的理解，并且能够解决一些常见问题。
5 软件工具和需要掌握的知识：
本次实习环境：Microsoft Visual Basic 6.0 本次实习要求掌握：
① VB可视化编程基础：VB对象的概念，窗体和基本控件
② VB语言基础：数据类型，常量与变量，运算符和表达式，VB程序结构和编码规则 ③ VB控制结构：顺序结构，选择结构，循环结构 ，辅助控制语句，程序调试 ④ 数组和自定义类型：数组的基本操作，列表框和组合框，
⑤ 过程：函数过程的定义和调用，子过程的定义和调用，参数传递，过程的嵌套和递归调用，变量的作用域
⑥ 用户界面设计：各种控件的应用，以及对话框的应用，菜单设计
- - 1 - - - 1 -
⑦ 图形操作：直方图、饼图、散点图、折线图
⑧ 数据库应用基础：VB数据库的访问，记录集对象
二、系统分析
1 系统功能模块
主 界 面 增 加 查 找 删 除 统 计 图 打印报表 退 出
2 设计思路
在设计时，根据老师的提示信息，先画出主界面，再进行编码。登录界面，自己设定，输入账号密码进入主界面，主界面上设置菜单项和工具条，各功能键根据要求设定。最后要注意的是各各窗体之间的连接。
3 算法描述
登陆界面，输入密码，输入正确后进入主界面，否则重新输入，只有三次机会，超过要求次数系统自动退出。来到主界面后就能通过菜单项或者工具条的提示进行操作，另外还有绘图界面和关于界面，删除时能直接删除，也可通过查找删除，查找能够按姓名，学号，课程号，分数段来进行，绘图也可绘制直方图，饼图，散点图，折线图。修改时，可进行学号，姓名，照片，成绩，课程来修改，在确认修改完成前可进行多人修改，再添加学生信息后，在工具栏中点击查看全部能够找到该生信息。
- - 2 - - - 2 -
三、系统设计
修改和增加记录
Private Sub a1_Click() text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Command1.Enabled = True Adodc1.Recordset.AddNew End Sub
删除记录：
Private Sub a2_Click() Dim i As Integer
i = MsgBox(确实要删除吗？删除) If i = 6 Then
Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext
'If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 'Else: Form2.Show End If End Sub
查询学生信息：
这个选项里含有多个选项，有按学号、按姓名、按课程名、分段查询等。 按课程名查找
Private Sub b1_Click() Dim a As String
Adodc1.CommandType = adCmdUnknown
a = InputBox(请输入课程名查询窗口
Adodc1.RecordSource = 学生成绩情况 where 课程名='\
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox 该课程名下没有学生!提示Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = 学生成绩情况Adodc1.Refresh End If
- - 3 - - - 3 -
End Sub
按分数段查找，优秀段学生
Private Sub b5_Click() Dim a As Integer
On Error GoTo ErrCode
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = 学生成绩情况 where 分数 >=90Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox 没有不及格的学生!提示Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = 学生成绩情况Adodc1.Refresh End If ErrCode: End Sub
统计图：坐标系函数
Dim a$(5), b%(5), max Public Sub zbx() Cls max = 0
a(1) = (2) = (3) = (4) = (5) =
Do While Not Form2.Adodc1.Recordset.EOF
Select Case Form2.Adodc1.Recordset.Fields(分数Case Is < 59 b(1) = b(1) + 1 Case 60 To 69 b(2) = b(2) + 1 Case 70 To 79 b(3) = b(3) + 1 Case 80 To 89 b(4) = b(4) + 1 Case 90 To 100 b(5) = b(5) + 1 End Select
Form2.Adodc1.Recordset.MoveNext Loop
For i = 1 To 5
- - 4 - - - 4 -