学生成绩管理系统本科毕业论文

来源：用户分享时间：2025/8/31 9:05:46 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

用户输入班级和课程信息，点击“确定”按钮，查询的结果就会显示自下面的表格中。如图4-10所示

图4-10 班级课程成绩查询图

3. 班级学期成绩查询

用户输入班级和学期信息，点击“确定”按钮，查询的结果就会显示自阿下面的表格中。如图4-11所示：

图4-11 班级学期成绩查询图

4. 补考学生查询

用户输入学号，点击“确定”按钮，查询的结果就会显示自阿下面的表格中，通过此功能，用户可以查询某一个学生的不及格科目。如图4-12所示：

图4-12 补考名单查询图

4.2.4信息打印模块设计 1. 班级课程成绩打印

用户输入班级和所要打印的课程，点击“打印”按钮，可以通过打印功能打印某一各班级的成绩。以Excel表格的形式打印出来，便于浏览。如图4-13所示：

图4-13 班级课程成绩打印图

班级课程成绩打印模块代码如下： Dim exlapp As New Excel.Application Dim exlbook As Excel.Workbook Dim exlsheet As Excel.Worksheet Dim mydb As Database '定义数据库 Dim rs As Recordset '定义字段

Private Sub Command1_Click() SQLStr = \成绩\

SQLStr = SQLStr + \班级 like \

SQLStr = SQLStr + \课程 like \SQLStr = SQLStr + \学号\

Set exlapp = New Excel.Application

exlapp.Workbooks.Open App.Path + \

Set mydb = Workspaces(0).OpenDatabase(App.Path + \ '打开数据库

Set rs = mydb.OpenRecordset(SQLStr) '打开表

Dim rows As Integer rows = 4

If rs.RecordCount > 0 Then '将数据库信息添加到Excel表中

exlapp.Sheets(1).Cells(2, 2) = rs.Fields(\班级\ exlapp.Sheets(1).Cells(2, 4) = rs.Fields(\课程\ While Not rs.EOF With exlapp.Sheets(1)

.Cells(rows, 1) = rs.Fields(\学号\ .Cells(rows, 2) = rs.Fields(\姓名\ .Cells(rows, 3) = rs.Fields(\总评\ .Cells(rows, 4) = rs.Fields(\学期\ rs.MoveNext rows = rows + 1 End With Wend

exlapp.Visible = True Else

MsgBox \没有数据！\ End If End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & \Data2.DatabaseName = App.Path & \End Sub [5]

2. 班级学期成绩打印

用户输入班级和所要打印的学期信息，点击“打印”按钮，可以通过打印功能打印某一各班级的成绩。以Excel表格的形式打印出来，便于浏览。如图4-14所示：

图4-14 学期班级成绩打印图

3. 补考学生名单打印

这里的主要功能可以以班级为单位将某各班级的不及格学生的信息打印出来，也可以将某一门科目的不及格的学生打印出来。如图4-15所示：

图4-15 补考名单打印图

总结

系统运行时对数据的保密性要求不高,对一般的数据不要求进行加密。此外，对其它软件几乎没有依赖性，程序健壮性较好。