学生成绩管理系统 毕业论文.doc

商丘职业技术学院 毕业论毕业论文（文（设计设计） ） 题题目：目：学生成学生成绩绩管理系管理系统统 姓姓 名：名： 系系 别别： ： 计计算机系算机系 专专 业业： ： 计计算机算机应应用技用技术术 学学 号：号： 1101010126 指指导导教教师师： ： XXXX 年年 XX 月月 XX 日日 目 录 第第 1 1 章章 引言引言 1 1 1.11.1 项目开发的背景项目开发的背景.1 1.21.2 项目开发的目标项目开发的目标.1 1.31.3 项目开发的意义项目开发的意义.1 第第 2 2 章章 可行性研究与需求分析可行性研究与需求分析 2 2 2.12.1 可行性研究可行性研究2 2.22.2 需求分析需求分析.2 2.2.12.2.1 概述概述2 2.2.22.2.2系统需求系统需求2 2.2.32.2.3数据词典数据词典3 2.2.42.2.4数据流程图数据流程图3 第第 3 3 章章 系统的总体设计系统的总体设计 5 5 3.13.1 系统结构设计系统结构设计.5 3.23.2 数据库结构设计数据库结构设计7 INTINT 8 8 CHARCHAR 8 8 3.3 系统 E-R 图.8 第第 4 4 章章 系统详细设计系统详细设计 1212 4.14.1 系统开发工具及运行环境系统开发工具及运行环境.12 4.24.2 系统各功能模块的设计及实现系统各功能模块的设计及实现.12 4.2.14.2.1 系统管理模块设计系统管理模块设计.15 4.2.24.2.2 信息录入信息录入模块设计模块设计16 4.2.34.2.3 信息查询模块设计信息查询模块设计.26 4.2.44.2.4 信息打印模块设计信息打印模块设计.28 总结总结 3131 致谢致谢 3232 参考文献参考文献 3333 I 摘摘 要要 学生成绩是教育单位不可或缺的一部分,应该能够为用户提供充足的信息和快捷的 查询方式。传统的人工方式来管理学生的成绩存在着许多缺点,如:保密性差而且效率 低,产生大量的文件和数据,对数据的查找、更新和维护带来困难。 随着计算机科学逐步成熟以及完善,其渗透到人类社会的各个领域并发挥着重要的 作用。运用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅 速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够 极大地提高管理者对学生成绩管理的效率,使学校的管理科学化、正规化。 关键词关键词 学生成绩管理系统；数据库；access；数据词典。 0 第第 1 1 章章 引言引言 1.11.1 项目开发的背景项目开发的背景 几年前，各个学校对于学生成绩的管理还是停留在运用手工操作，随着各个学校 的规模不断壮大，学生人数逐年增加。关于学生成绩管理工作所涉及的数据量越来越 大，有的学校不得不靠增加人力、物力来进行学生成绩管理。但人工管理又有着许多 缺陷，比如：效率底、易出错、检索信息慢、对学校的管理提供决策信息较为困难等。 学校不能完全掌握每一个学生的学习情况，这样对学校的教学工作及其不利，使学校 的教学质量一直停滞不前，所以我想借本次毕业设计之际，开发一个不仅适用于各校 的通用高校学生成绩管理系统，使学校能够充分掌握学生的学习情况，便于学校教学 工作的进行和改革。 1.21.2 项目开发的目标项目开发的目标 建立学生成绩管理系统，采用计算机对学生成绩进行管理，进一步提高办学效率 和现代化水平。使学校对学生的成绩能够快速并准确的录入、修改和查询，更好地掌 握每个学生的各科成绩，便于教师的管理。使学生对个人的学习成绩进行更快的查询。 让老师能够更好、更快的了解学生的学习情况，使学校的教学质量进一步的提高。 1.31.3 项目开发的意义项目开发的意义 现在我国的一些院校的学生成绩管理水平普遍不高，有的还停留在纸介质基础上， 这种管理手段已不能适应时代的进展，因为它浪费了太多的人力和物力。在当今的信 息时代，这种传统的管理方法必然被计算机为基础的信息管理系统所取代。如果本系 统能被学校所采用，将会改变以往靠手工管理学生成绩的状况，可以树立良好的办学 形象，提高工作效率，节省人力和物力。 1 第第 2 2 章章 可行性研究与需求分析可行性研究与需求分析 2.12.1 可行性研究可行性研究 随着学校规模的不断扩大，学生人数逐年增加，学校对学生成绩管理的工作量也 越来越大。学生成绩管理涉及大量的数据处理，如果用手工来完成庞大的数据处理， 将费时费力，还容易出错，为了满足学校对学生成绩管理的需要，急需要一套学生成 绩管理系统来完成这项工作。作为计算机应用的一部分,使用计算机对学生成绩信息加 以管理,将拥有着手工管理所无法比拟的优点.例如:输入迅速、查找方便、可靠性高、存 储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生成绩管理的效 率,也是学生成绩的科学化、正规化管理的重要条件。同时还要注意下列几点： 1 由于各方面的限制，如人员不够、技术缺乏等原因，开发时应本着循序渐进，逐步 完善的原则，不能贪大求全，盲目开发。 2要注意信息的准确、及时、适用、经济，只有及时、准确的信息才能保证系统开发 的质量和效率。 3 从全局出发注意系统开发的整体优化性，同时还要注意系统的可扩展性和可延伸性。 4 尽量采用学校现有的软硬件环境,及先进的管理系统开发方案,从而达到充分利用学 校现有资源、提高系统开发水平和应用效果的以及减少开发成本的目的。 5 系统应符合学校对学生成绩管理的规定,满足学生成绩管理的工作需要,并达到操作 过程中的直观、方便、实用、安全等要求。 2.22.2 需求分析需求分析 2.2.12.2.1 概述概述 1、系统分析的原则 分析高校成绩管理的要求，确定管理系统的逻辑功能，以满足高校成绩的要求。 第一阶段完成后，该系统应具备较高的可扩充性，便于在此基础上完成第二阶段。 2、分析方法 采用结构化分析方法，建立新系统的逻辑模型，这个逻辑模型尽可能避免计算机的 专业术语。 2.2.22.2.2系统需求系统需求 经过一段时间对学校学生成绩管理的调研与分析，以及认真研究了几位老师 的意见，所开发的学生成绩管理系统应分成以下几个阶段开发： 第一阶段建立的成绩管理系统由以下 5 个子系统组成： 2 1系统信息的管理，能添加用户、修改用户信息、删除用户。 2学生基本信息的管理，能对学生基本信息进行添加、删除、修改。 3班级信息的管理，能对班级基本信息进行添加、删除、修改。 4学生成绩信息的管理，能对学生成绩基本信息进行添加、删除、修改。 5对数据的备份、恢复，对学生数据的及时备份。 第二阶段建立的成绩管理系统主要在上次基础上对其功能进行修改以及扩充。 在功能扩充上应该使系统更具实用性。 2.2.32.2.3数据词典数据词典 经过分析，所开发的学生成绩管理系统应有五个数据表，分别是： 1系统用户数据：高校老师以及管理人员使用成绩管理系统的身份数据，包含的数 据项有用户编号、登录口令、权限代码。 2学生基本信息数据：学生基本信息数据，包含的数据项有学号、姓名、性别、出 生日期、文化程度、籍贯、民族、入学日期、身份证号等。 3课程数据：课程信息数据。 4班级数据：用于班级信息记录数据。 5学生成绩数据：学生的成绩数据，包含的数据项考试编号、选择班号、选择学号 姓名、选择课程以及输入分数等。 2.2.42.2.4数据流程图数据流程图 学生成绩管理系统数据流程图如下： 3 用户主界面欢迎界面 用户登陆 管理系统 系统管理 信息打印 信息录入 信息查询 用户登陆 退出 管理系统 打印信息 表 查询信息 录入信息 图 2-1 系统数据流程图 4 第第 3 3 章章 系统的总体设计系统的总体设计 3.13.1 系统结构设计系统结构设计 1系统设计目标 本系统既要满足用户的设计目标，也要满足设计员的设计目标。 (1) 用户的观点看，要求系统能够达到以下目标 1) 对信息的收集和保存信息。例如：输入学生的成绩信息,学生的基本信息等. 2）速的传递信息，对那些共享的数据进行快速的传递。 3）供准确的信息，要求比手工作业提供的更加准确和细致的数据，例如学生的各 科分数. 4）现有的报表自动生成。 5）共享现有的数据 (2) 设计员从技术观点看，要求系统能达到以下的目标： 1) 用户使用，具有较高的用户友好性。 2）有较高的可靠性，将系统发生故障的概率控制在 2.0以下，并具有快速恢 复的能力 3) 具有较高的运行效率，应比人工作业提高效率 10 倍以上。 4）具有较强的可维护性和扩充性，能够适应用户的业务要求变化。 (3)设计策略 本系统的结构是自顶向下扩展的，层次化的暗盒模块结构。 对高层模块，将运用以事务为中心的设计策略，将一个复杂的系统逐步分解成为 几个较小的相对简单的暗合模块；对低层模块，采用以变换为中心的设计策略。 此外，为了提高模块的内聚性，降低模块间的偶合程度，数据库 的设计原则是把 他作为模块间的邮政信箱，从而既实现数据共享有提高模块的独立性，使系统具有很 高的可修改性。1 2系统总体功能 本说明主要是为了对学生成绩管理系统进行使用和维护。 该系统充分利用计算机的现有的功能来实现对系统管理、信息录入、信息查询， 信息打印等的自动化控制，将会使学生成绩管理工作大大减轻，方便友好的信息管理 用户界面，简便的操作，完善的数据库管理，将会使得信息管理系统极大限度地应用 于现代化学生成绩管理，成为管理人员的得力助手。 对系统信息的修改、添加、删除 对学生基本信息的修改、添加、删除、查询 对班级信息的添加、修改、查询 5 对学籍信息的添加、修改、查询 对学生成绩信息的添加，修改，查询 对数据的备份、恢复 3系统结构图 学生成绩管理系统结构图，以下所示，这些结构图是根据系统分析说明书的数据 流程图画出的。实际上它有 四个模块组成。 学生成绩管理系统 系统管理信息录入 信息查询信息打印 图 3-1 学生成绩管理系统 系统管理 用户权限设置数据备份 图 3-2 系统管理 信息录入 班级信息 录入 学生信息 录入 课程信息 录入 成绩录入补考信 息录入 图 3-3 信息录入 6 信息查询 按学号查询学生成 绩 班级课程成绩查 询 班级学期成绩 查询 补考学生查 询 图 3-4 信息查询 信息打印 学生成绩打印班级课程成绩 打印 班级学期成绩 打印 补考学生 名单打印 图 3-5 信息打印 3.23.2 数据库结构设计数据库结构设计 1、数据库总体结构 本系统采用关系型数据库 Acess 实现,数据库由、若干个二维表构成。本系统的表 分为两类。一类是目录，即索引。另一类是实际数据。其中数据表包括：学生信息表、 班级信息表、课程信息表、成绩信息表和用户信息表。2 2数据库表 表 3-1 学生信息表 数据字段名数据类型数据长度是否允许为空 学号 int4 否 姓名 Char 10 否 性别 char2 是 生日 datetime8 是 本人成分 Int 4 是 文化程度 char10 是 籍贯 Varchar8 是 民族 varchar50 是 入学注册 varchar200 是 7 身份证号 Varchar200 是 邮政编码 varchar18 是 工作单位及地址 Varchar200 是 单位电话 Varchar200 是 家庭住址 Varchar200 是 家庭电话 Varchar20 是 毕业时间 Datatime5 是 成绩毕业 Int4 是 表 3-2 班级信息表 数据字段名数据类型数据长度是否允许为空 班号 Int 4 否 年级 char10 是 班主任 Char 10 是 教室 char10 是 表 3-3 课程信息表 数据字段名数据类型数据长度是否允许为空 课程编号 Int 10 否 课程名称 char10 是 课程类型 Char 10 是 课程描述 char50 是 表 3-4 成绩信息表 数据字段名数据类型数据长度是否允许为空 考试编号 Char 10 否 选择班号 Int 4 否 选择学号 Int 4 是 姓名 Char 10 是 选择课程 char10 是 输入分数 float8 是 表 3-5 用户信息表 数据字段名数据类型数据长度是否允许为空 输入用户名 Char 10 否 输入密码 Char 10 是 确认密码 Char 10 是 3.3 系统 E-R 图 1、局部 E-R 图 课程实体 课程 8 图 3-6 课程 E-R 图 班级实体 图 3-7 班级 E-R 图 成绩实体 学期 考勤成绩 随堂成绩 期末成绩 总评成绩平时成绩 课程 班级 姓名 学号 图 3-8 成绩 E-R 图 学生信息实体 姓名学号学制 性别 出生年月 文化程度 籍贯民族 入学时间 身份证号 邮编 工作单位 单位电话 家庭住址 家庭电话 成绩 记录编号 答辩日期 指导教 师 设计题目 毕业证编号 毕业时间 家庭成员学习工作经历 答辩评语 班级 9 图 3-9 学生信息 E-R 图 2.系统全局 E-R 图 班级 班级 就读 学号 学生信息 选课 课程 课程 总评 总评 成绩 1 1 n 1 1 姓名 学期 平时 随堂 期末 考勤 性 别 籍贯 入学时间 指导老师 身份证 民族家庭住址 姓名 设计题目 图 3-10 系统全局 E-R 图 10 第第 4 4 章章 系统详细设计系统详细设计 4.14.1 系统开发工具及运行环境系统开发工具及运行环境 1. 系统开发工具 本系统利用 VB6.0 全套开发工具做程序开发，利用 Acess 数据库作为学生成绩管 理系统的后台数据库。VB6.0 在数据库开发方面功能很强大，大量使用可视化的界面操 作工具，支持面向对象的程序设计，其以简便、灵活、高效等优点著称。而 Acess 数 据库以功能比较强大，由于 VB6.0 中无需另外安装其支持环境也能正常打开数据库， 具有很强的适应性，更重要的是利用 Acess 做数据库开发，在数据备份方面很优势， 方法简单，可靠。3 2 系统运行环境 软件环境：系统环境 win2000 及以上 + Acess数据库 硬件环境：CPU P4 2.4G、256MB 内存、80G 硬盘 4.24.2 系统各功能模块的设计及实现系统各功能模块的设计及实现 执行程序后，首先进入的是学生成绩管理系统的登录界面,用户通过输入正确的信 息后,就进入系统主界面。 如图 4-1 所示 图 4-1 登陆界面 以下是登陆模块的代码： Private Sub Command1_Click() Text1.Text = DBCombo1.Text Data1.Recordset.FindFirst “name=“ & “'“ & Text1.Text & “'“ 11 If Data1.Recordset.NoMatch Then MsgBox (“没有此用户“) DBCombo1.Text = “ Text2.Text = “ Exit Sub End If If Text4.Text = Text2.Text Then main.Show Unload denglu Exit Sub End If If Not (Text4.Text = Text2.Text) Then MsgBox (“密码错误“) Text2.Text = “ Exit Sub End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & “DATABASEUSER1.mdb“ End Sub4 进入主界面后，用户可以进行学生信息添加、删除、修改、查询和打印以及对数 据库的备份等操作。如图 4-2 所示 12 图 4-2 系统主界面 下面是主界面模块的代码： Private Sub bklr_Click() bukao.Show End Sub Private Sub bkxshchx_Click() chaxun_bukao.Show End Sub Private Sub bkxshmddy_Click() dayin_bukao.Show End Sub Private Sub chjlr_Click() chengji.Show End Sub Private Sub gyrj_Click() frmAbout.Show End Sub Private Sub kchxxlr_Click() kecheng.Show End Sub Private Sub MDIForm_Load() 13 End Sub Private Sub shjbf_Click() beifen.Show End Sub Private Sub tch_Click() End End Sub Private Sub xshxxlr_Click() xuesheng.Show End Sub Private Sub yhqx_Click() quanxian.Show End Sub 4.2.14.2.1 系统管理模块设计系统管理模块设计 在这里管理员可以进行添加用户、修改用户和删除用户等操作。如图 4-3 所示 图 4-3 用户权限设置 用户权限设置代码如下： Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True 14 Command4.Enabled = True End Sub Private Sub Command2_Click() Data1.Recordset.Edit Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True End Sub Private Sub Command3_Click() Data1.Recordset.Update Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command4_Click() Data1.UpdateControls Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click() answer = MsgBox(“确定删除数据吗？“, 305, “核对框“) If answer = 1 Then Data1.Recordset.Delete Data1.Refresh 15 End If End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & “DATABASEuser1.mdb“ End Sub 4.2.24.2.2 信息录入信息录入模块设计模块设计 包括对班级信息、学生基本信息、课程信息、学生成绩信息、学生补考信息的录 入、修改和删除 1.班级信息录入 用户在班级输入框中输入要添加的班级信息，点击添加按钮，如果班级信息出现 在右侧的表格中就说明信息添加成功。用户也可以对已经添加的信息进行修改和删除， 具体操作是选中要修改或者删除的班级信息点击修改或者删除按钮执行相应的操作， 如果已经添加的班级信息很多，你可以通过模糊查找来帮你找出比较匹配的班级信息 并将查询结果显示在右侧的表格中，便于用户进行修改或删除。如图 4-4 所示 图 4-4 班级信息 班级信息录入的代码： Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True 16 End Sub Private Sub Command2_Click() Data1.Recordset.Edit Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True End Sub Private Sub Command3_Click() Data1.Recordset.Update Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command4_Click() Data1.UpdateControls Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click() answer = MsgBox(“确定删除数据吗？“, 305, “核对框“) If answer = 1 Then Data1.Recordset.Delete Data1.Refresh End If 17 End Sub Private Sub Command6_Click() Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst “班级 Like “ & “'*“ & Text2.Text & “*'“ If Data1.Recordset.NoMatch Then MsgBox (“没有符合条件的记录“) Data1.Recordset.Bookmark = bm End If End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & “DATABASEstu1.mdb“ End Sub 2. 学生基本信息录入 在此输入学生的基本信息包含班级学号、姓名、性别、出生日期、文化程度、籍 贯、民族、入学日期、身份证号等，主要是对学生信息的登记。 管理员还可以在右侧表格中对已经选中的学生信息进行修改或者删除，如果学生 信息比较多，而你要进行操作的学生的信息没有显示出来，你可以通过查找进行快速 定位，查找分为按学号查找和按姓名查找。如图 4-5 所示： 图 4-5 学生信息 学生信息模块的代码： 18 Private Sub Command1_Click() Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst “学号 Like “ & “'*“ & Text27.Text & “*'“ If Data1.Recordset.NoMatch Then MsgBox (“没有符合条件的记录“) Data1.Recordset.Bookmark = bm End If End Sub Private Sub Command2_Click() Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst “姓名 Like “ & “'*“ & Text28.Text & “*'“ If Data1.Recordset.NoMatch Then MsgBox (“没有符合条件的记录“) Data1.Recordset.Bookmark = bm End If End Sub Private Sub Command3_Click() Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindNext “姓名 Like “ & “'*“ & Text28.Text & “*'“ If Data1.Recordset.NoMatch Then MsgBox (“没有符合条件的记录“) Data1.Recordset.Bookmark = bm End If End Sub Private Sub Command4_Click() Data1.Recordset.AddNew Command4.Enabled = False Command5.Enabled = False 19 Command6.Enabled = True Command7.Enabled = True End Sub Private Sub Command5_Click() Data1.Recordset.Edit Command4.Enabled = False Command5.Enabled = False Command6.Enabled = True Command7.Enabled = True End Sub Private Sub Command6_Click() Data1.Recordset.Update Data1.Refresh Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = False End Sub Private Sub Command7_Click() Data1.UpdateControls Data1.Refresh Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = False End Sub Private Sub Command8_Click() answer = MsgBox(“确定删除数据吗？“, 305, “核对框“) If answer = 1 Then Data1.Recordset.Delete 20 Data1.Refresh End If End Sub Private Sub DBGrid1_Click() End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & “DATABASEstu1.mdb“ Data2.DatabaseName = App.Path & “DATABASEstu1.mdb“ End Sub 3.课程信息录入. 主要是对学生所学课程信息进行添加、修改和删除。管理员在课程名输入框中 输入要添加的课程名称，点击添加按钮，如果课程信息出现在右侧的表格中，就说 明信息添加成功。在这里也可以选中右侧表格中的信息对课程信息进行修改或者删 除，管理员也可以通过利用查找功能快速定位你想要操作的课程信息，便于管理。 如图 4-6 所示： 图 4-6 课程设置 4.成绩信息录入 管理员在此窗口输入要输入学生所属班级，学生所学的课程和学期后，点击“确 定”按钮，在下面的表格中就会列出班级所有学生的学号和姓名，如果某位学生这门 学科已经输入成绩则显示该学生的成绩情况。选中要进行成绩录入的学生，在窗口下 面就会显示选中学生的“学号”和“姓名” ，在后面的输入框中输入相应的信息，点击 “确定并输入下一成绩”按钮，该学生的成绩就添加成功了。如果点击“对已输入成 绩进行删除”按钮，则将已经输入的成绩信息删除。如图 4-7 所示 21 图 4-7 成绩信息录入 成绩录入代码如下： Private Sub Command1_Click() MsgBox (“注意，学期一定要输入正确“) SQLStr = “SELECT 学号,姓名 FROM 学生“ SQLStr = SQLStr + “ WHERE 班级 like “ & “'“ & DBCombo1.Text & “'“ SQLStr = SQLStr + “order by 学号“ Data3.RecordSource = SQLStr Data3.Refresh Text1.DataField = “学号“ Text2.DataField = “姓名“ sSQLStr = “SELECT 学号,姓名,随堂,平时,考勤,期末,总评,学期 from 成绩“ sSQLStr = sSQLStr + “ where 班级 like “ & “'“ & DBCombo1.Text & “'“ sSQLStr = sSQLStr + “ and 课程 like “ & “'“ & DBCombo2.Text & “'“ sSQLStr = sSQLStr + “order by 学号“ Data5.RecordSource = sSQLStr Data5.Refresh Label10.Caption = Str$(Data3.Recordset.RecordCount) Label11.Caption = Str$(Data5.Recordset.RecordCount) End Sub Private Sub Command2_Click() If Data3.Recordset.EOF Then 22 MsgBox (“已输入完成！“) Exit Sub End If If Text3.Text = “ Or Text4.Text = “ Or Text5.Text = “ Or Text6.Text = “ Then MsgBox (“数据有误“) Exit Sub End If sui = Val(Text3.Text) ping = Val(Text4.Text) kaoqin = Val(Text5.Text) qimo = Val(Text6.Text) zongping = sui * 0.05 + ping * 0.1 + kaoqin * 0.05 + qimo * 0.8 Text7.Text = Str$(Int(zongping + 0.5) Data4.Recordset.AddNew Text8.Text = Text1.Text Text9.Text = Text2.Text Text10.Text = DBCombo1.Text Text11.Text = DBCombo2.Text Text12.Text = Combo1.Text Text13.Text = Text3.Text Text14.Text = Text4.Text Text15.Text = Text5.Text Text16.Text = Text6.Text Text17.Text = Text7.Text Data4.Recordset.Update Data3.Recordset.MoveNext Data5.Refresh Data5.Recordset.MoveLast Label11.Caption = Str$(Data5.Recordset.RecordCount) Text3.Text = “ Text4.Text = “ Text5.Text = “ Text6.Text = “ End Sub 23 Private Sub Command3_Click() SQLStr = “SELECT * FROM 成绩“ SQLStr = SQLStr + “ WHERE 学号 like “ & “'“ & Text1.Text & “'“ SQLStr = SQLStr + “ and 课程 like “ & “'“ & DBCombo2.Text & “'“ Data6.RecordSource = SQLStr Data6.Refresh answer = MsgBox(“确定删除数据吗？“, 305, “核对框“) If answer = 1 Then Data6.Recordset.Delete Data6.Refresh Data5.Refresh Data4.Refresh Label11.Caption = Str$(Data5.Recordset.RecordCount) End If End Sub Private Sub Command4_Click() Command3.Enabled = True Command4.Enabled = False DBGrid2.AllowUpdate = False End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & “DATABASEstu1.mdb“ Data2.DatabaseName = App.Path & “DATABASEstu1.mdb“ Data3.DatabaseName = App.Path & “DATABASEstu1.mdb“ Data4.DatabaseName = App.Path & “DATABASEstu1.mdb“ Data5.DatabaseName = App.Path & “DATABASEstu1.mdb“ Data6.DatabaseName = App.Path & “DATABASEstu1.mdb“ End Sub 5.补考信息的录入 管理员在此主要是对参加补考的学生的补考成绩进行录入，主要操作步骤是：在 学号一栏输入要添加补考成绩的的学生的学号，选择其补考的科目，点击“确定”按 24 钮，在窗口表格中就会显示学生的成绩信息，点击“修改成绩”按钮，对成绩进行修 改，点击“确定”按钮，补考成绩就添加成功。(如图 4-8 所示) 图 4-8 补考成绩重录 4.2.34.2.3 信息查询模块设计信息查询模块设计 1. 学生成绩查询 用户在“输入学号”框中输入要查询的学生的学号，点击“确定” 按钮，下面表 格中会显示该学生的各科目成绩。如图 4-9 所示 图 4-9 学生成绩查询 2. 班级课程成绩查询 用户输入班级和课程信息，点击“确定”按钮，查询的结果就会显示自 下面的表格中。如图 4-10 所示 25 图 4-10 班级课程成绩查询图 3.班级学期成绩查询 用户输入班级和学期信息，点击“确定”按钮，查询的结果就会显示自 阿下面的表格中。如图 4-11 所示： 图 4-11 班级学期成绩查询图 4. 补考学生查询 用户输入学号，点击“确定”按钮，查询的结果就会显示自阿下面的表格中， 通过此功能，用户可以查询某一个学生的不及格科目。 如图 4-12 所示： 图 4-12 补考名单查询图 26 4.2.44.2.4 信息打印模块设计信息打印模块设计 1.班级课程成绩打印 用户输入班级和所要打印的课程，点击“打印”按钮，可以通过打印功能打印 某一各班级的成绩。以 Excel 表格的形式打印出来，便于浏览。如图 4-13 所示： 图 4-13 班级课程成绩打印图 班级课程成绩打印模块代码如下： Dim exlapp As New Excel.Application