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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。