关 键 词：

毕业设计论文

资源描述：

JSJ06-204@VB学生信息管理系统(论文+源代码),毕业设计论文

内容简介：

Micro M i c r o nts M i c r o - nts E , nts b B . nts山东大学毕业设计（论文）任务书 学院： 软件学院 专业： 计算机科学与技术 年级： 专升本 12 班 学生姓名 马强 指导教师 王 历 设计（论文）题目 学生 信息 管理系统 设计 （论文） 内容 1.支持学生档案规范化的管理 2.能够为用户提供充足的信息和快捷的查询手段 ，为将来上网做好准备 3.可以存储历届的学生档案，安全、高效 。 4.实现学生成绩管理的系统化、规范化和自动化。 5.实现学生课程管理的系统化、规范化和自动化。 开发工具采用： Visual Basic 6.0 数据 库采用： Access2000 设计 （论文） 的主 要技 术指 标 1. 学生各种信息的输入，包括学生基本信息、学历信息、健康状况、学位等 2. 学生各种信息的修改 3. 对于升学、毕业、开除信息的删除 4. 按照某种条件，查询、统计符合条件的学生信息 5. 学生考勤统计信息。包括缺勤时间、缺勤天数、缺勤类别等。 6 学生考勤统计 7 档案 /成绩 /考勤系统的使用帮助 设计 （论文） 的基 本要 求 第一阶段（ 3 月 4 月）熟悉关系型数据库 ,熟悉任务要求，熟悉 Visual Basic语言。 第二阶段（ 4 月 5 月）设 计总体方案，编写程序。 第三阶段（ 5 月 6 月）调试完善 ,撰写毕业设计报告 . 应收集 的资料 及主要 参考文 献 中文 Visual Basic 6。 0 编程基础 出版社：清华大学出版社 作者：孙伟 Visual Basic 程序设计实验知道与习题解答 出版社：电子工业出版社 作者：林伟建 中文 Visual Basic 6。 0 使用教程 出版社：北京希望电子出版社 作者：尹乾 王颖欣等 Access2000 中文版高级编程 出版社：人民邮电出版社 作者： F.Scott Barker Access2000 中文版实用教 程 出版社：人民邮电出版社 作者：康博创作室 填表时间 ： 2006-2-25 nts 1 目 录 摘要 -3 第一章 系统规约说明书 -4 引言 -4 系统功能和数据描述及子系统描述 - 4 第二章 软件项目计划 -5 引 言 -5 可行性分析 -5 系统数据流图 -6 数据字典 -6 结论意见 -6 第三章 软件项目计划 -7 引 言 -7 实 施计划 -7 第四章 需求规格说明书 -8 引言 -8 任务概述 -8 数据 库 -8 各种需求描述 -10 第五章 总体 设计说明书 -11 引言 -11 任务概述 -11 总体 结构图 -11 数据 逻辑 结构设计 -12 运行设计 -13 其他 -13 第六章 详细设计说明书 -14 引言 -14 过程设计 -14 nts 2 第七章 软件实现 -17 引言 -17 编码实现 -17 系统测试 -34 第八章 结束语 -36 致谢 -37 参考 文献 -38 附录 -39 nts 3 摘要 学生档案管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。 经过分析 ,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。 学生信息管理系统主要是完成学生各种信息的管理工作 (包括基本信息、成绩、课程等 )，通过对不同的用户设置不同的权限来完成整个系统的管理，这样不但方便了老师和学生查阅自己所想得到的信息而且还有效的保证了系统数据的安全性 . 关键字：控件、窗体、域。 ABSTRACT The system of managing student file is a typical application of managing information system （ know as MIS） ,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used. By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it. Students information management system mainly finishes students managements of different information, through set up to different user different authority is it finish whole management of system to come, help teacher and student consult but also information oneself want to get have security system security of datum of result like this. Keywords: ActiveX , Form , Field . nts 4 第一章 系统规约说明书 引言 该文档处于软件问题的提出阶段，任务是定义用户要解决的问题，确定系统的目标规模。目的是通过对用户的调查访问，写出关于软件性质的书面报告，经过讨论修改得到用户的确认，为以后的工作确定方向。 随着 教育事业的不断发展 ， 学校规模的扩大，随之而来的是学生数量的急剧增加 ，对学生进行各种信息管理越来越困难， 面对 日益增大 的信息量， 要实现信息的规范管理和快速查询， 就需要有 相应的 学生信息管理系统来提高学生管理工作的效率。 系统功能和数据描述 及子系统描述 (1)系统功能和数据描述 系统开发的总体 任务是实现信息关系的系统化、规范化和 易操作化 。系统的结构关系图是 对 系统总体功能 的 分析，是在系统开发的总体任务的基础上完成的。学生信息 管理 系统需要完成的功能主要 包括对学生基本信息、课程、成绩的输入、查询、修改、统计和维护等操作。并且还设置了专门的用户管理，用于保证系统数据的安全性。 (2)子系统的结构图规约说明 a、 班级子系统应该包括班级设置、年级信息等与之对应的数据 结构。 b、 学生子系统的结构图应该包括学生基本信息、所在班级、所学课程 及 成绩等以及相对应的数据结构 。 c、 课程子系统应该包括 对 课程信息、开课时 间、选课人数等 的管理。 nts 5 第二章 软件项目可行性研究报告 引言 编写目的 可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决，最根本的任务是对以后的设计提出建议。如果问题没有可行的解，分析员应该建议停止这项开发工程，以避免时间、资源、人力和金钱的浪费。如果问题值得解，分析员应该推荐一个较好的解决方案，并且为工程制定一个初步的计划。 项目背景 该项目为学校学生信息管理系统软件 ， 是 为了更好的方便对学生各项信息进行综合的管理。 开发该软件的要求与功能 是实现学生信息数据管理与操作处理 ， 软件的基本数据流动为用户数据的输入 ， 学生信息 ， 课程信息 ， 班级信息的输入 ， 以及用户提出对学生信息等的查询要求所产生的输出 。 数据的输入与输出依靠数据库的支持 。该软件设计 完成后可用于所有的教育单位进行学生信息的管理。 随着 目前社会上信息管理系统 的飞快发展， 各个企事业单位都引入了信息管理软件来管理自己日益增长的各种信息 ， 学生管理系统也是有了很大的发展 ， 商业化的学生信息管理软件也不少 。 但本系统完全独立开发 ，力求功能齐全且易于操作。 缩 略词定 义 经济可行性 -估计开 发费用以及最终从开发成功的系统所获得的收入或利益 ， 衡量比较支出的费用和收到的利益 技术可行性 -分析功能 ,性能以及限制条件 ， 能否是一个技术上可实现的系统 法律可行性 -明确系统开发可能导致的责任 ， 有无违法问题 操作可行性 -系统的操作方式在这个用户组织内是否行的通 可行性分析 (1)新系统在原有系统的基础上加入了新的数据库的支持，使数据的准确性与安全性得到了很大的提高，且在用户操作与用户管理方面也有了极大地改善 ，增加了数据的安全性保护功能，而且在可用性和稳健性方面也有了很大的进步 。就目前使用的开发技术来说 该 系统的功能目标应该能够达到 ， 利用现有的 软件工具 在规定的期限内开发工作基本能够完成。 (2)经济可行性分析中最重要的内容之一是 对 成本效益 问题的 分析。成本效益分析要估计出研制开发的花费并与 具体 收益 进行 衡量比较。 由于该软件较小易于实现，所以经济可行性问题也得到解决。 (3)该项目为独立开发，在技术上没有使用任何现有的软件与方法。所以在法律方面不会存在侵权等问题 。 (4)在现有的条件下，使用 Windows和 Visual Basic 可以完成软件的开发。 nts 6 系统数据流图 图 2.2 系统数据流图 数据字典 数据字典精确严格的定义了每个系统相关的数据元素并以字典式顺序将它们组织起来，使得用户和分析员对所有的输入、输出存储成分和中间计算有共同的理解。本系统的数据字典如下： 学生基本信息学号学生姓名学生性别 年级 班级 专业 年制 出生年月 家庭住址 班级信息班号年级班主任教室 专业 年制 +备注 年级课程信息年级课程名称 课程信息课程编号课程名称课程类型课程描 述 成绩信息考试编号学生学号学生姓名学生班号课程名称分数 用户信息用户名称用户密码用户描 述 学号 =”0000000”9999999999” 出生日期 =年 +月 +日 年 = “1960”2000” 月 =”01”12” 日 =”01”31” 名称 =4字母 20 联系电话 =”0000000000”99999999999” 密码 =”000000”999999” 结论意见 经过一系列的各个不同方面的可行性分析，对需要解决的问题取得基本的一致看法， 该软件的 开发方案 得 到批准，使 得 开 发工程继续进行下去。 登录失败 事务 信息 信息 用户名 密码 信息 信息 事务 查询结果 nts 7 第三章 软件项目计划 引 言 经过可行性分析 阶段的研究 ，得出项目可进一步进行下去的结论，在软件继续进一步的开发之前首先给出此软件项目计划 ， 以使软件 开发者 理解软件开发要求，进行开发。 实 施计划 任务分解 鉴于软件开发工作过于简单，所以整个开发工作可以同时一起完成。 进度 对于该小系统，系统从开发开始到结束为期较短， 分开始准备阶段、系统管理模块设计阶段、班级管理模块设计阶段、课程管理模块设计阶段、系统结束阶段五部分进行。 nts 8 第四章 需求规格说明书 引言 编写目的 需求分析是软件系统生存期中定义阶段的最后一个步骤 ，它的基本任务是准确的回答“系统必须做什么”这个问题。在需求分析阶段结束之前，系统分析员应该写出软件需求规格说明书，以书面形式准确的描述软件需求。 定义 静态数据 固化在系统之内的用于描述系统功能实现的数据 。 动态数据 用于系统要处理和输出的数据。 数据字典 精确严格定义每个与系统相关的数据元素，并以字典式顺序将它们组织起来，使得用户和分析员对其所有的输入输出存储成分和中间计算有共同的理解。 任务概 述 (1)确定对系统的综合要求，包括功能需求，性能需求，可靠性和可用性需求，出错处理需求，接口需求，约束及将来可能提出的要求。 (2)分析系统的数据要求（通常采用建立数据模型的方法）。 (3)导出系统的逻辑模型（通常采用数据流图、实体联系图、状态转换图、数据字典和主要处理算法描述该逻辑模型）。 (4)修正系统开发计划。 数据 库 数据库描述 根据上面的分析就可以设计出能够满足用户需求的各种数据实体以及它们之间的关系 ， 为后面的逻辑结构设计打下基础 。 本系统的实体有 ： :学生实体 ， 班级实体 ， 课程实体 。 各个实体具体 的描述 E-R 图如下 ： 图 4.1 学生实体图 学生 学号 姓名 性别 住址 专业 班级 年龄 nts 9 图 4.2 班级实体图 图 4.3 课程实体图 图 4.3 系统 E-R 图 课程名 开课时间 选课人数 课程 专业 教师编号 教师 课程 学生 学 教 nts 10 各种需求描述 功能需求 由于系统较简单且前面对系统的功能已作了详细的介绍，在此就略过了。 性能需求 在 数据精确度 方面， 由 于对数据精确度的要求不高，所以这点在系统中表现得比较少，用户数据的安全性与正确性 可以 完全保证 。在时间方 面，由于 本系统的数据库较小，所以程序在响应时间，数据更新处理时间上性能比较突出 。 运行需求 本系统采用多文档界面（ MDI），即在单个容器窗体中包含多个窗体的应用程序。这样设计的软件简化了文档之间的信息交换，使系统用户无须掌握专业知识即可方便的进行各种操作且由于软件较小，运行时不易出现严重的影响整个管理系统的故障。 nts 11 第五章 总体 设计说明书 引言 经过需求分析阶段的工作，系统必需“做什么”已经很清楚了，现在是决定“怎么做”的时候了。总体设计 的基本目的就是回答“概括的说，系统应该如何实现”这个问题。 从该阶段开发正式进入软件的实际开发阶段， 总体设计过程通常有两个主要阶段组成，即系统设计阶段和结构设计阶段。总体 设计说明书的目的就是进一步细化软件设计阶段得出的软件总体概貌，把它加工成在程序细节上接近于源程序的软件表示。 任务概述 典型的总体设计过程包括下述 9个步骤： (1)考虑各种可能的实现方案，力求选出最佳的一个，以提高系统的性能 /价格比 (2)综合考虑可行性研究阶段确定的各种方案，选取合理的方案 (3)推荐最佳方案 (4)功能分解 (5)设计 软件结构 (6)设计数据库 (7)制定测试计划 (8)书写文档，包括系统说明、用户手册、测试计划、详细实现计划、数据库设计结果 (9)审查和复审 总体 结构图 图 5.1系统总体 结构图 学生信息管理 成绩信息管理 课程信息管理 班级信息管理 系统管理 课程修改 课程添加 班级查询 教师添加 密码管理 用户管理 权限设置 学生档案管理 信息添加 信息查询 信息删除 成绩添加 成绩查询 成绩删除 课程删除 班级删除 学生交费管理 信息添加 信息删除 信息查询 nts 12 数据 逻辑 结构设计 列名 数据类型 可否为空 说明 Stuent _ID INT(4) NOT NULL 学号（主键） Student _Name CHAR(10) NULL 学生姓名 Student_Gender CHAR(2) NULL 学生性别 Student_age Int(2) NULL 年龄 address VARCHAR(50) NULL 住址 Class_No INT(4) NULL 专业 班 级 Tele_Number INT(10) NULL 联系电话 表 5.1 学生基本信息表 列名 数据类型 可否为空 说明 Course_No INT(4) NOT NULL 课程编号 (主键 ) Course_Name CHAR(10) NULL 姓名 Course_zy CHAR(10) NULL 专业 Tercher-No INT(4) NULL 教师编号 表 5.2 课程基本信息表 列名 数据类型 可否为空 说明 Exam_No CHAR(10) NOT NULL 考试编号 Student_ID INT(4) NOT NULL 学生学号 Course_Name CHAR(10) NULL 课程名称 result FLOAT(8) NULL 分数 表 5.3 学生成绩信息表 列名 数据类型 可否为空 说明 User_ID CHAR(10) NOT NULL 用户名称（主键） User_PWD CHAR(10) NULL 用户密码 User_quanxian Char(10) Null 权限 表 5.4 系统用户表 nts 13 运行设计 具体软件的运行模块组合为程序多窗口的运行环境，各个模块在软件运行过程中 实现信息的交换和数据处理 。软件运行时有较友好的界面，基本能够实现用户的数据处理要求 。 其他 (1)出错输出信息在用户 输入错误或访问超出权限时， 系统 应能 给出 相应的提示。 (2)系统的用户管理保证了 用户对系统数据的操作受其所拥有权限的限制， 系统 数据的 安全保密性较高。 nts 14 第六章 详细设计说明书 引言 详细设计阶段的根本目标是确定应该怎样具体实现所要求的系统，也就是说经过这个阶段的设计工作，应该得出对目标系统的精确描述，详细设计阶段的任务还不是具体的编写程序，而是要设计出程序的“蓝图”。 软件设计是把软件需求变换成为软件的具体设计方案，即模块结构的过程。软件设计一般分为总体设计和详细设计两个阶段。总体设计阶段根据软件需求分析所得到的数据流程或数据结构，使用结构化设计技术，导出软件的模块结构。详细设计阶段是给出软件模块的内部过程描述。内部过程描述是模块内部 的算法设计。该文档是直接给软件开发人员看的。 过程设计 以下逐个模块给出说明 ： 系统用户管理模块 a、 系统管理模块主要实现 用户登录、用户添加和用户的密码修改 功能 。 系统启动后，将首先出现用户登录窗体，用户首先输入用户名，然后输入密码，如果用户 3 次输入密码不正确，将退出程序 。 b、 算法 在本文档中都统一使用 PAD 图 即树形问题分析图 (Problem Analysis Diagram)作为描述程序处理过程的工具 。 学生 管理模块 a、 学生基本 信息管理模块主要实现 查询学生基本信息、添加学生基本信息、修改学生信 息的 功能 。 b、 算法 图 6.2添加功能子模块 PAD图 添加 输入是否完整 学号是否重复 日期格式是否正确 添加记录 更新数据库 输出添加成功信息 出错处理 出错处理 出错处理 nts 15 图 6.3修改功能子模块 PAD图 图 6.4 查询功能子模块 PAD图 修改 日期格式是否正确 出错处理 找到要修改的记录 记录是否完整 出错处理 学号是否重复 出错处理 修改记录 更新数据库 修改成功输出信息 输出记录 姓名有效？ 输出记录 出错处理 查询 按姓名 输出成功信息 按学号 学号是否有效 出错处理 按班号 班号有效？ 出错处理 输出记录 nts 16 班级信息管理模块 a、 班级信息管理模块主要实现 添加和修改班级信息的 功能 。 b、 算法 班级信息管理模块 （添加及修改） 的算法 与 学籍管理 模块 的添加和修改类似，实现方法和前面介绍的一样，这里不再重复。 (4)课程 设置模块 a、 课程设置模块 主要实现 添加课程信息、修改课程信息以及设置年级课程信息的 功能 。 b、 算法 与班级和学籍的添加与修改类似 。 (5)成绩管理模块 a、 成绩管理模块主要实现 添加成绩管理、修改成绩和查询成绩管理的 功能 。 b、 算法 与班级和学 生基本信息 的添加与修改类似。 nts 17 第七章 软件实现 引言 通常把编码和测试统称为实现。所谓编码就是把软件设计结果翻译成用某种程序设计语言书写的程序。 软件测试是为了发现软件的错误 而执行程序的过程 ，该文档的读者对象是软件测试部门，以指导 整个 软件 的 测试过程。 编码 实现 (1) 系统登入窗口 图 7.1 用户登入窗口 系统把用户分成超级用户和普通用户两类，超级用户登入需要用户名和密码，可以对系统进行添加、删除以及查询等操作，而普通用户可直接登入系统进行简单的查询工作。这样设计更好的维护了系统数据的正确性。 nts 18 (2)系统主窗口 用户进入主窗口后，根据自己的系统使用权限选择系统管理、课程管理、班级管理等模块进行操作。 图 7.2 系统主窗口 nts 19 (3)学生档案管理模块 图 7.3 学生信息录入窗 口 代码如下： Dim txtsql1 As String Private Sub Combo1_Click(Index As Integer) Dim mrc As ADODB.Recordset txtsql1 = select 专业 ,年制 from class where 班级 = & Trim(Combo1(1).Text) & Set mrc = ExecuteSQL(txtsql1) mrc.Close End Sub Private Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys TAB End If End Sub Private Sub Command1_Click() For j = 0 To 7 If Text1(j) = Then ss = MsgBox(Label1(j).Caption & 不能为空！ , vbExclamation + vbOKOnly, nts 20 警告 ) Text1(j).SetFocus Text1(j).SelStart = 0 Text1(j).SelLength = Len(Text1(j).Text) Exit Sub End If Next Dim mrc As ADODB.Recordset txtsql1 = select * from xj where 学号 = & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql1) If modi = False Then If mrc.EOF = False Then sss = MsgBox(已经存在该学号的记录 ,学号不能重复！ , vbExclamation + vbOKOnly, 警告 ) Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) mrc.Close Exit Sub End If End If If Not IsDate(Text1(2).Text) Then 判断是否日期格式 ssss = MsgBox(应输入日期 mm-dd-yy, vbInformation + vbOKOnly, 警告) Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = Len(Text1(2).Text) Exit Sub End If If Not IsDate(Text1(6).Text) Then ssss = MsgBox(应输入日期 mm-dd-yy, vbInformation + vbOKOnly, 警告) Text1(6).SetFocus Text1(6).SelStart = 0 Text1(6).SelLength = Len(Text1(6).Text) Exit Sub End If If modi = True Then txtsql1 = update xj set 学号 = & Trim(Text1(0).Text) & ,姓 名 = & Trim(Text1(1).Text) & ,性别 = & Trim(Combo1(0).Text) & ,班级 = & nts 21 Trim(Combo1(1).Text) & ,出生年月 =# & Trim(Text1(2).Text) & # ,家庭住址 = & Trim(Text1(3).Text) & ,邮政编码 = & Trim(Text1(4).Text) & ,联系电话= & Trim(Text1(5).Text) & ,入学时间 =# & Trim(Text1(6).Text) & # ,备注= & Trim(Text1(7).Text) & where 学号 = & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) txtsql1 = update cj set 学号 = & Trim(Text1(0).Text) & where 学号 = & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) txtsql1 = update jf set 学号 = & Trim(Text1(0).Text) & where 学号 = & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) Unload Me Exit Sub End If txtsql1 = select * from xj Set mrc = ExecuteSQL(txtsql1) mrc.AddNew For i = 4 To 9 mrc.Fields(i) = Text1(i - 2).Text Next i mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Fields(2) = Trim(Combo1(0).Text) mrc.Fields(3) = Trim(Combo1(1).Text) mrc.Update Set mrc = Nothing For j = 0 To 7 Text1(j) = Next End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Activate() Text1(0).SetFocus nts 22 Form1.load1 End Sub Public Sub load1() Dim mrc As ADODB.Recordset txtsql1 = select DISTINCT 班级 from class order by 班级 Set mrc = ExecuteSQL(txtsql1) If mrc.EOF Then ddd = MsgBox(请先设置班级部署！ , 警告 ) mrc.Close Exit Sub End If Combo1(1).Clear mrc.MoveFirst Do While Not mrc.EOF Combo1(1).AddItem mrc.Fields(0) mrc.MoveNext Loop Combo1(1).ListIndex = 0 Combo1(0).ListIndex = 0 If modi Then 如果是修改状态 Me.Caption = 修改 txtsql1 = select * from xj where 学号 = & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) mrc.MoveFirst For i = 4 To 9 Text1(i - 2).Text = mrc.Fields(i) Next i Text1(0).Text = mrc.Fields(0) Text1(1).Text = mrc.Fields(1) Combo1(0).Text = mrc.Fields(2) Combo1(1).Text = mrc.Fields(3) mrc.Close Else Me.Caption = 登记 For i = 2 To 7 Text1(i).Text = Next i Text1(6).Text = Date Text1(0).Text = Text1(1).Text = End If End Sub nts 23 Private Sub Text1_GotFocus(Index As Integer) If Index = 6 Then Text1(6).SelStart = 0 Text1(6).SelLength = Len(Text1(6).Text) End If End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys TAB End If End Sub 超级用户对系统拥有添加修改的权限，对学生信息的录入如上图所示，用户可以将新增学生的记录写入数据库，以方便用户查询。课程信息录入同上。 nts 24 图 7.4 学生信息查询 窗口 所有用户都可以进行学生信息查询操作，用户可以根据自己的要求进行查询，也可按姓名关键字查询（如上图所示）。 nts 25 (4)课程管理模块 图 7.5 基本课程设置 课程管理分为基本课程设置和班级课程设置两种操作。 进行基本课程设置时，用户在对新增资料对话框中输入新的课和条目，按回车即可完成。选中列表框中条目点击删除钮即可删除选中条目。超级用户可以对课程进行添加操作和删除操作，将课程所学专业，课程名，开始学习时间及任课教师等信息输入数据库中，删除操作必须在该课程没有 成绩时才能进行。 (5)成绩管理模块 成绩管理分为成绩添加、成绩浏览、成绩查询和考试类型设置几种操作。具体操作同上两个模块一样。 (6)班级管理模块 班级管理分为班级浏览、班级查询、添加班级几种操作。具体操作同上。 (7)学生交费管理模块 学生交费管理分为学生交费浏览，学生交费查询，学生交费添加，基本学费设置。其中基本学费设置又包括学费设置浏览，学费设置查询，学费设置添加。 nts 26 学生交费浏览图如下： 图 7.6 学生交费浏览图 代码如下： Public maxx As String Public classtxt As String Dim num As String Public Sub jfshowtitle() MSF1.Clear Dim i As Integer With MSF1 .Cols = 10 .TextMatrix(0, 1) = 学号 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 班级 .TextMatrix(0, 4) = 学期 .TextMatrix(0, 5) = 本次交费 (元 ) .TextMatrix(0, 6) = 本次欠费 (元 ) .TextMatrix(0, 7) = 累计欠费 (元 ) .TextMatrix(0, 8) = 日期 .TextMatrix(0, 9) = 操作员 .ColWidth(0) = 200 nts 27 .ColWidth(1) = 800 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 2300 .ColWidth(5) = 1200 .ColWidth(6) = 1200 .ColWidth(7) = 1200 .ColWidth(8) = 900 .ColWidth(9) = 900 .FixedRows = 1 For i = 1 To 4 .ColAlignment(i) = 0 Next i For i = 5 To 9 .ColAlignment(i) = 6 靠右 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub xuefeidata() jfshowtitle max Dim mrc As ADODB.Recordset Dim mrc2 As ADODB.Recordset txtsql = select jf.学号 ,xj.姓名 ,xj.班级 ,jf.学期 ,jf.交费 ,jf.欠费 ,jf.日期 ,jf.操作员 from jf inner join xj on jf.学号 =xj.学号 where jf.学期 = & maxx & 年度第二学期 and xj.班级= & Trim(classtxt) & order by jf.学号 ,jf.日期 Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then txtsql = select jf.学号 ,xj.姓名 ,xj.班级 ,jf.学期 ,jf.交费 ,jf.欠费 ,jf.日期 ,jf.操作员 from jf inner join xj on jf.学号 =xj.学号 where jf.学期 = & maxx & 年度第一学期 and xj.班级= & Trim(classtxt) & order by jf.学号 ,jf.日期 Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then nts 28 MSF1.Clear Exit Sub Else maxx = maxx & 年度第一学期 End If Else maxx = maxx & 年度第二学期 End If txtsql = select 学号 ,sum(欠费 ) from jf where 学期 = 0 Then .MergeCells = flexMergeFree .MergeRow(0) = True .MergeCol(7) = True .TextMatrix(.Row, 6) = ￥ & Format(mrc.Fields(5), 0.00) Else .TextMatrix(.Row, 6) = -￥ & Format(-Val(mrc.Fields(5), 0.00) End If .TextMatrix(.Row, 7) = ￥ & Format(mrc2.Fields(1), 0.00) .TextMatrix(.Row, 8) = mrc.Fields(6) .TextMatrix(.Row, 9) = mrc.Fields(7) nts 29 .Row = .Row + 1 mrc.MoveNext num = mrc2.Fields(0) mrc2.MoveNext If mrc.EOF = False Then If Trim(num) = Trim(mrc.Fields(0) Then mrc2.MovePrevious End If End If Loop End With End Sub Private Sub Command1_Click() End Sub Private Sub Form_Activate() jfshowtitle jftree End Sub Private Sub max() Dim mrc As ADODB.Recordset txtsql = select max(学期 ) from jf where 学号 in (select 学号 from class where 班级= & Trim(classtxt) & ) Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then Exit Sub Else If IsNull(mrc.Fields(0) Then Exit Sub End If End If maxx = Left(mrc.Fields(0), 11) g = 1 End Sub Private Sub Form_Load() MSF1.Clear jfshowtitle nts 30 End Sub Private Sub MSF1_DblClick() If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) = Then sssss = MsgBox(无当前选择记录！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If Frmjf3.Show 1 End Sub Public Sub jftree() TreeView1.Nodes.Clear Dim nodex As Node Dim mrc As ADODB.Recordset Dim mrc1 As ADODB.Recordset Dim str As String Dim a As String a = 年级 TreeView1.LineStyle = tvwRootLines str = select distinct 年级 from class order by 年级 Set mrc = ExecuteSQL(str) str = select distinct 年级 ,班级 from class order by 年级 ,班级 Set mrc1 = ExecuteSQL(str) mrc.MoveFirst Do Until mrc.EOF mrc1.MoveFirst Set nodex = TreeView1.Nodes.add(, , a, mrc.Fields(0), 1, 1) Do While Not mrc1.EOF If mrc1.Fields(0) = mrc.Fields(0) Then Set nodex = TreeView1.Nodes.add(a, tvwChild, ,