教务管理系统设计课案

1、探 2014 级 高级语言程序设计 探 石家庄铁道大学四方学院 集中实践报告书 课题名称教务管理系统 姓 名 学 号 系、部土木工程专业 专业班级 指导教师刘仁芬 2015年6月25日 一、 设计任务及要求： 设计任务：教务管理系统的开发 要 求： 建立一个工程，将完成本题目创建的所有文件添加到工程中； 根据题目的要求建立数据库，库中建立所需的表。 数据表之间根据需要建立必要的联系。 用窗体设计一个漂亮的系统封面。 要求用窗体设计功能丰富的信息查询界面和查询结果的统计界面。 用主窗体上的菜单实现输入、查询、退出等功能项的选择。 将完成的全部内容生成一个.exe文件. 、指导教师评语: 二、成绩

2、 指导教师签名： 教务管理系统的开发 1 选题的意义 现今学校生源量大大增加，为方便管理，可采用计算机管理，更方便，快捷 本系统根据教务管理的现状及未来的发展方向， 结合有学校管理当中的管理学实 践，设计了教务管理系统。 本系统适用于教务处学生管理系统。 系统数据的管理采用了操作系统的最新管理 方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立 运行。使用本系统，可以大幅度提教务管理的工作效率。 2 系统功能需求分析 2.1 系统概述 该系统是以教务管理为基础开发的教务管理系统， 适合大部分学校使用， 该系统具 有较高可靠性，教务管理系统包括教学管理，成绩管理，教材管理

3、，学生查询等多项 功能，方便教师学生快速的查询更改信息。 2.2 系统的组成及各模块的功能 教务管理系统的组成主要包括以下几点功能 : 1. 系统登录模块：用户名和密码 2. 用户注册模块：用户注册 3. 教学管理模块：学生名单、学生课程和教学任务 4. 成绩管理模块：成绩查询和成绩录入 5. 教材管理模块：教材入库和教材信息查询 2.3 系统的运行环境 1. 系统使用环境 操作系统 : Windows 2000/XP 系统支持： Visual basic 6.0 及以上版本支持库 数据库： Access。 硬件环境： 处理器 ; Intel Pentium 166MX 或者更高。 硬盘：剩余

4、使用空间 1GB 以上。 内存： 32MB 以上。 显卡： SVGA 显示适配器。 2.系统开发环境 操作系统：Win dows 2000/XP。 系统支持：Visual Basic 6.0 3系统设计 3.1总体结构设计 图1总体模块图 3.2数据库实现 表1教材领用 字段名称 数据类型 字段大小 教材名称 文本 255 领用数量 文本 255 表2成绩录入数据表 字段名称 数据类型 姓名 文本 255 学号 文本 255 成绩 数字 255 表3教材管理数据表 字段名称 数据类型 字段大小 名称 文本 255 数量 数字 255 价格 数字 255 编号 数字 255 4系统实现 4.1教

5、材领用模块的设计与实现 图2教材领用 Private Sub Comma nd1_Click() Dim f% f = Text2.Text Adodc1.Recordset.Fields(” 数量 ”).Value = Str(Val(Adodc1.Recordset.Fields(” 数量 ”).Value) - f) Adodc1.Recordset.Update MsgBox 领用成功！ , vbExclamation + vbOKOnly End Sub Private Sub Comma nd2_Click() Form11.Show Form12.Hide End Sub 4.2

6、其他模块的设计与实现 图3成绩录入 Private Sub Comma nd1_Click() AdodcI.Recordset.AddNew End Sub Private Sub Comma nd2_Click() Adodc1.Recordset.Update End Sub Private Sub Comma nd3_Click() Form2.Show Form5.Hide End Sub Private Sub Comma nd4_Click() Adodc1.RecordSource = select * from 成绩录入where 班级=+ Text2 + Adodcl.Re

7、fresh End Sub 图4成绩查询 Private Sub Comma nd1_Click() Adodcl.Co nn ectio nStri ng = Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db2.accdb;Persist Security In fo=False Adodcl.Comma ndType = adCmdText Adodcl.RecordSource = select * from 成绩录入 where 学号=+ Textl.Text + Adodcl.Refresh End Sub Private Sub Co

8、mma nd2_Click() Form2.Show Form6.Hide End Sub Private Sub Form_Load() End Sub 图5教材入库 Private Sub Comma nd1_Click() Adodc1.Recordset.AddNew End Sub Private Sub Comma nd2_Click() Adodc1.Recordset.Update End Sub Private Sub Comma nd3_Click() Form2.Show Form7.Hide End Sub 图6登陆主界面 Private Sub Form_Load()

9、 If Forml.s 管理员Then xueshe ng.E nabled = False ruku.E nabled = False jiaoshi.E nabled = False End If If Form1.s 老师Then luru.E nabled = False End If End Sub End Sub Private Sub jin g_Click() Form10.Show Form2.Hide End Sub Private Sub jiaoshi_Click() Form4.Show Form2.Hide End Sub Private Sub keche ng_

10、Click() Form14.Show Form2.Hide 5设计体会 5.1总结 首先感指导老师刘仁芬，没有您的帮助，我不可能做出合格的系统 同时，我也要感谢我的同学，课下，在我不会的时候是他们帮助了我，没有他们 我同样也完成不了这次设计。 同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重 的一些细节问题，为我们无论是在设计上还是在论文中，您们的劳动都是我的毕业设 计能够完成不可缺少的因素。 5.2存在的主要问题 由于所学知识有限，所做出来的设计还有很多漏洞，许多功能还无法实现，希望 老师提出宝贵意见。 参考文献 2004-5-1 1 郑砚周青李华杰visual basic 8.0基础教程，北京：清华大学出版社, 2 刘怀亮.V