VB 排课管理系统

吉林化工学院软件课程设计说明书排课管理系统设计学生学号： 04520630 学生姓名： 胡春东 专业班级： 计算0406 指导教师： 么连福 教师职称： 讲师 起止日期： 2007.06.252006.07.06 吉林化工学院Jilin Institute of Chemical Technology软件课程设计任务书题目名称排课管理系统设计主要技术条件开发软件：VB运行环境：WindowsXP设计内容 条件设置：班级设置，课程设置，教师设置，时间设置。课表管理：课表安排，课表设置，课表打印。系统管理：用户管理，密码维护，重新登陆，初始化。阶段周次计划完成工作量指导教师检查意见第一周选题，查找资料,对此设计进行总体界面设计，之后进行模块详细设计,在上述基础上完成课程设计的大部分编程并书写部分说明书。第二周继续上周的程序编写,并调试程序,修改调试过程中出现的错误,完成课程设计的所有编程和说明书的书写。最备参加答辩。考核评语指导教师：幺连富 年 月 日 答辩成绩教研室主任： 年 月 日 吉林化工学院软件课程设计说明书摘要随着计算机技术的飞速发展，计算机在各行各业中的地位明显提高，利用计算机实现学校排课管理更是势在必行。本项目是根据实际调查，遵循实事求是的原则完成的。本系统采用VB设计结合数据库技术，具体分为三个模块：条件管理；课表管理；系统管理。本系统可方便各个学校进行系统信息管理和维护，并允许普通用户进行部分信息浏览。确保了数据的安全性、正确性、完整性和一致性。关键词：排课系统 ；数据库技术；VB.目 录摘要I引 言1第1章 信息管理系统的认识与开发21. 1管理信息系统的认识21. 2管理信息系统开发的理解21. 3 VB 6.0和 SOL Server2000的简介2第2章 数据库设计42. 1数据库应用系统开发简介42. 2用户数据42. 2. 1 元数据52. 2. 2 索引52. 2. 3 应用元数据52. 3数据库表的生成6第3章 系统设计实施83. 1设计工程框架83. 2登入界面83. 3系统主窗体设计93. 4条件设置103. 5课表管理133. 6系统管理13结 论17参考文献18致谢19- 19 -引 言每学期开学初,学校教务部门都要对全校教职员工进行排课表，随着在校学生的人数增加，排课表也是一件相当麻烦的事，如果采用人工进行排课，不但工作量大，效率低，而且容易出借，如果采用计算机管理将是一件非常容易的事情，而且准确性高。*中学排课管理系统设计的主要任务就是针对教务部门的排课管理而进行设计开发的，它可以实现排课工作的自动化、规范化。根据系统功能分析的要求，*中学排课管理系统主要实现以下6个功能模块：（1）条件设置管理模块，可以添加、删除、修改和保存教职员工和课程，班级，学生管理信息；（2）排课管理模块，可以实现对所有班级的任课表、课程表进行查看、修改和保存；（3）教职员工带课查询模块，通过输入员工姓名，可以查询到员工所教的班级和所教的科目；（4）本学期课程设置模块，可以添加、修改、保存本学期学校所开的课程名称；（5）打印模块，可以打印出课程表、教师代课表。本系统以中文版Visual Basic 6.0为前台开发工具，用中文版SQL 2000作为后台数据库。Visual Basic 6.0，它是由美国微软公司推出的小型数据库开发语言，由于其使用方便，硬件要求不高，易学等特点，它还提供强有力的应用程序开发工具，为将来的维护提供必要的基础。系统的操作对人员的素质的要求不高，只需对他们稍加培训便能胜任。第1章 信息管理系统的认识与开发1. 1管理信息系统的认识管理信息系统就是我们常说的MIS（Management Information System），在强调管理，强调信息的现代社会中它变得越来越普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。1. 2管理信息系统开发的理解管理是出于提高劳动生产率的目的，但为何要提高劳动生产率？是人口爆炸？不是，因为宏观上而言，每个人的能力都足以使其在基本生存上绰绰有余，而地球上的资源也只是相对地匮乏，并未到那种耸人听闻的地步。那么为何要提高劳动生产率呢？其根本还是出于偷懒的目的。人总是想少劳而多得，甚至不劳而获，于是便把维持“体面”生存之外的精力，用来研究如何使效率更高。于是，借助手制的工具，借助驯服的动物，借助物理变化的能量，借助化学变化的能量，借助人工操作的大型机器，乃至于借助自动化的机器这一切，都是为了逃避生存的苦役，为了使身心能有更多的闲暇。然而人类果真借由科学技术而成功达到这一目标、或者说至少在向这一目标不断接近吗？这是很可怀疑的。 1. 3 VB 6.0和 SOL Server2000的简介1. VB 60中文版是Microsoft公司最新推出的跨世纪的产品，适合于Windows9598和Windows NT平台，它简单易用，适用面广，无论是通信、数据库，还是多媒体以及普通的Windows应用程序都可以用VB进行开发，而且方便快捷。2. SQL Server 2000是一个能够同时支持数千个用户的企业级服务器关系数据库管理系统，每天处理上百万种事务，并管理超过200GB的数据库。Microsoft正不断地致力于满足用户对于提高性能和可扩展性的要求，在其70版本的基础上，SQL Server 2000引进了许多重要的新特性，主要包括以下内容。(1)改善了可伸缩性，以及与Windows NT服务器的兼容。(2)对于大型IO有更好的性能。(3)稳定的记录位置允许更多的索引。(4)查询能够被更多的索引速度判断所支持。(5)简化的数据结构提供更好的质量。(6)更好的可扩展性，使今后的版本能够更完善地发展，能够更迅速地利用新的特(7)透明分布式处理，简明管理(simplified administration)。(8)基于对象嵌入与链接技术(OI，E)的程序设计接口。(9)对工业标准的进一步支持及与Internet的紧密集成。利用对于MS SOI。Server 2000和MS Windows 2000 SeIveF的更新和二者之间的紧密集成，使MS SOL Server 2000成为MS Windows 2000 Server平台上最优秀的数据库系统。综上所述，数据库管理系统应具有：完备的数据库管理功能、支持客户服务器方式、支持第三方的开发工具等，又有各自的特点，但均能满足大型管理信息系统的要求，可选用其中的任何一个。考虑到公司网站建设的要求和系统的性能价格比，优先选用MS SQL。Server 2000作为公司网站的后台数据库管理。第2章 数据库设计2. 1数据库应用系统开发简介数据库处理在信息系统的研究中一直是非常重要的主题，然而，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。数据库技术能使Internet应用超越具有早期应用特点的简单的发布。同时，Internet技术提供了一种向用户发布数据库内容的标准化的访问方法。这些技术没有脱离经典数据库技术的要求。它们只是加重了数据库技术的重要性。数据库的设计和开发及包括艺术有包括工程。理解用户的需求，然后，把它们转变为有效的数据库设计是一个艺术过程。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用，是一个工程过程。数据库的目的是帮助人们跟踪事务。经典的数据库应用涉及诸如订单、顾客、工作、员工、学生、电话之类的项，或其它数据量较大、需要密切关注的事务。最近，由于数据库的普及，数据库技术已经被应用到了新的领域，诸如用于Internet的数据库或用于公司内联网的数据库。数据库也被越来越多地应用于生成和维护多媒体应用程序上。2. 2用户数据目前，大多数数据库把用户数据表示为关系。现在把关系看作数据表。表的列包含域或属性，表的行包含对应业务环境中的实体的记录。并非所有的关系都同样符合要求，有些关系比其它关系更结构化一些。第二章描述了一个用以产生良好结构关系的过程，称作规范化。为了对比结构差的关系和结构好的关系之间的差别，以本文所设计的课表管理系统中的课程和任课教员关系为例来说明， 这个关系的问题出在它有关于两个不同主题的数据，就是课程和教员。用这种方式构成的关系在进行修改时，会出现问题。因为一个教员可能教授多门课程，如果某个教员的地址出现变更，它所教授的课程记录（可能多个）也就必须变化，这是不好的。因此数据用两个关系表示更好。现在如果某一个教员改变了它的居住地址，只有关系R3的对应行需要改变。当然，要想产生一个，显示课程名及其任课教员地址的报表，就需要将这两个表的行结合起来。结果表明，将关系分别存储，在生成报表的时候将它们结合起来，比把它们存储在一个合成的表中更好。2. 2. 1 元数据数据库是自描述的，这就意味着它自身包含了它的结构的描述，这种结构的描述称作元数据。因为DBMS产品是用来存储和操纵表的，所以大多数产品把元数据以表的形式存储，有时称作系统表。这些系统表存储了数据库中表的情况，指出每一个表中有多少列，哪一列是关键字，每一列的数据类型的描述，它也存储索引、关键字、规则和数据库结构的其他部分。在表中存储元数据不仅对DBMS是有效的，对用户也是方便的，因为他们可以使用与查询用户数据同样的查询工具来查询元数据。本文第二章所介绍的SQL语言可以同时用于元数据和用户数据。2. 2. 2 索引第三种类型的数据改进了数据库的性能和可访问性，这种数据经常称作开销数据，尽管有时也采用其他类型的数据结构，如链表，但它主要包括索引。索引可以用来排序和快速访问数据。下面以教务管理信息系统中的学生表为例来说明。假定数据在磁盘上是按Teacher Code的递增顺序排列的，用户想打印一个按Teacher Name排序的学生数据报表。为此，所有的数据都需要从源表中提取出来并排序，除非表很小，否则这是一个很费时的过程。或者，可以在Teacher Name字段上创建一个索引，该索引的条目按照Teacher Name排序，这样，该索引的条目可以读出来，并用来按顺序访问学生数据。索引用于快速访问数据。例如，一个用户只想访问dept(专业)值为“计算机科学与技术”的那些教师。如果没有索引，则必须搜索整个源表；但有了索引之后，可以找到索引条目，并使用它来挑选所有合适的行。索引对排序和查找是有帮助的，但要付出代价。Teacher表中的行每次改变时，索引也必须改变，这意味着索引并非随意的，应该在真正需要时保存。2. 2. 3 应用元数据存储在数据库中的第四种数据是应用元数据，它用来存储用户窗体、报表、查询和其他形式的查询组件。并非所有的DBMS都支持应用组件，支持组件的DBMS也不一定把全部组件的结构作为应用元数据存储在数据库中。然而，大多数现代的DBMS产品存储这种数据作为数据库的一部分。一般来说，数据库开发人员和用户都不直接访问应用元数据，相反，他们通过DBMS中的工具来处理这些数据。2. 3数据库表的生成（1）排课信息表如表2.1表2.1 排课信息表名称数据类型大小空排课IDnumeric9否班级名称nvarchar50否节号char6否星期一nvarchar50可星期二nvarchar50可星期三nvarchar50可星期四nvarchar50可星期五nvarchar50可星期六nvarchar50可星期日nvarchar50可（2）教师信息表如表2.2表2.2 教师信息表名称数据类型大小空教师编号char6否教师姓名nvarchar50否所任课程nvarchar50否电话nvarchar50可邮箱nvarchar50可 （3）班级信息表如表2.3表2.3 班级信息表名称数据类型大小空班级名称nvarchar50否班级人数int4可所在教室nvarchar50否班主任nvarchar50可（4）用户信息表如表2.4 表2.4 用户信息表名称数据类型大小空用户IDchar6否用户名称char10否用户类别char10否密码char10可电话nvarchar50可邮箱nvarchar50可第3章 系统设计实施3. 1设计工程框架通过图3.1能够直接的看出此课程设计的全部窗体。图3.1 总体设计3. 2登入界面通过登入界面图3.2可以看出来要想进入系统有不同类型的人物。图3.2 登陆系统3. 3系统主窗体设计通过主窗体图3.3可以直观的看到整个系统的功能，体现整个系统的完整性，也可以看到设计的过程。图3.3 排课系统3. 4条件设置条件设置中的教师设置如图3.4图3.4 教师设置（1）添加按扭代码：Private Sub CmdAdd_Click()添加操作 所有控件重置 Call ControlClear 设置控件Enable值为可用 Call ControlEnable(True) 设置标志flag，表示所进行的操作为添加 flag = Add 添加、修改、删除按钮不可用，取消、保存按钮可用 CmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = False CmdCancel.Enabled = True: CmdSave.Enabled = TrueEnd Sub（2）删除按扭代码：Private Sub CmdDelete_Click ()删除操作On Error Go To ErrMsg 错误处理 If rs.RecordCount 0 Then msg = MsgBox(删除该条记录吗?, vbYesNo) If msg = vbYes Then rs.Delete 删除数据 清空控件 Call ControlClear Call LoadData 重新装载数据 Call ShowData 显示数据 设置控件Enable值为不可用 Call ControlEnable(False) 添加、修改、删除按钮可用，取消、保存按钮不可用 CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = False MsgBox (成功删除的数据!) End If Else MsgBox (没有可删除的数据!) End If Exit SubErrMsg: 报告出错信息 MsgBox Err.Description, vbExclamation, 出错End Sub（3）保存按扭代码：Private Sub CmdSave_Click ()保存操作On Error GoTo ErrMsg 错误处理 If Not CheckData Then Exit Sub 如果数据不合法就退出 If flag = Modify Then 如果是修改数据 msg = MsgBox(您确实要修改这条数据吗?, vbYesNo) If msg = vbYes Then Call setData 设置数据 Else Exit Sub End If ElseIf flag = Add Then 如果是添加新数据 rs.AddNew Call setData 设置数据 End If rs.Update 更新数据 设置控件的可用性 CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = False If flag = Add Then MsgBox (成功添加数据！) Else MsgBox (成功更新数据!) End If Call LoadData 重新装载数据 定位到添加或修改记录 If rs.RecordCount 0 Then rs.MoveFirst rs.Find (教师编号= & Trim(Me.txtId.Text) & ) If Not rs.EOF Then Call ShowData 重新显示数据 End If Exit SubErrMsg: 报告出错信息 MsgBox Err.Description, vbExclamation, 出错End Sub3. 5课表管理课表管理中的课表调节如图3.5 图3.5 课表调整3. 6系统管理系统管理中的密码修改如图3.6图3.6 密码维护代码：Option ExplicitDim SQL as StringDim msg as StringDim rs As ADODB.RecordsetPrivate Sub Form_Load() Dim rst As ADODB.Recordset Dim key As String Dim usertype Dim list As ListItem SQL = select * from 用户信息表 order by 用户ID Set rst = SelectSQL(SQL, msg) If rst.RecordCount = 0 Then MsgBox (请先创建用户信息！) CmdOK.Enabled = False Exit Sub Else rst.MoveFirst Do Until rst.EOF key = rst.Fields(用户ID) & rst.Fields(用户名称) usertype = Trim(rst.Fields(用户类别) If usertype = 管理人员 Then Set list = ListView1.ListItems.Add (, key, 2) Else Set list = ListView1.ListItems.Add(, key, 1) End If rst.MoveNext Loop rst.Close End IfEnd SubPrivate Sub ListView1_Click() If ListView1.ListItems.count 0 Then UserID = Left (Trim(ListView1.SelectedItem), 6) End IfEnd SubPrivate Sub CmdOK_Click () Dim password As String SQL = select * from 用户信息表 where 用户ID= & UserID & Set rs = SelectSQL(SQL, msg) If rs.RecordCount 0 Then password = Trim(rs.Fields(密码) Else MsgBox (数据库操作错误！) Exit Sub End If If password = Trim(txtPassword.Text) Then User_Type = Trim(rs.Fields(用户类别) LoginSucceeded = True 排课系统.Show Call 排课系统.SetRight Unload Me Else MsgBox (密码错误！) txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) LoginSucceeded = False End IfEnd SubPrivate Sub cmdCancel_Click() LoginSucceeded = False Unload MeEnd SubPrivate Sub Form Unload (Cancel as Integer) LoginSucceeded = False Unload MeEnd Sub结 论通过这次的VB课程设计使我对以往所学过的知识有了更深的理解，我深深的感受到理论联系实际的必要性和重要性，在我们以往的学习过程中，我们刻意地去加强理论的基础，只在乎程序运行时的正确性，而不重视实际设计的正确与否，如果无法使软件与硬件实现有机的结合，那么再好的程序也没有什么价值，完成设计成品更是空谈。我在设计过程中明显看到了自己的不足。本次VB课程设计还存在很多问题。功能上本