毕业设计排课管理系统论文

1、毕 业 设 计（论文）题 目 排课管理系统 姓 名 学 号 专 业 指导教师 学 院 日 期 排课管理系统摘要排课管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 microsoft公司的 visual basic开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关

2、键字：控件、窗体、域。abstractthe 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

3、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 syst

4、em application. the prototype could be modified and developed till users are satisfied with it.keywords: activex , form , field .目录1、 前言32、 为什么要开发一个排课管理系统33、 怎样开发一个排课管理系统44、 windows下的visualvisual basic应用程序45、 使用access2000 实现关系型数据库66、 系统总体规划107、 系统具体实现158、 vb中调用带参数存储过程的实现209、 结束语2710、 致谢2811、 参考文献291

5、2、 源代码30前言排课管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以排课管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件排课，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对排课信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储

6、量大、保密性好、寿命长、成本低等。这些优点能够极大地提高排课管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套排课管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。第一章为什么要开发一个排课管理系统？计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文

7、档更加安全，等等。 在中小学中用计算机管理排课的意义现在我国的中小学校中排课的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用的大专生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过科学技术是第一生产力，我希望能用我四年的所学编制出一个实用的程序来帮助中小学进行更有效的课程管理。 归纳起来，好处大约有以下几点：1 可以存储历届的排课，安全、高效；2 只需一到二名排课录入员即可操作系统，节省大量人力；3 可以迅速查到所需信息。 为将来学校上网做好准备跟据199

8、9年中国电信的调查报告显示我国的上网人数已达到890万，互联网已经十分普及，学校往界的毕业生希望能在世界的任何一个角落查到自己校友的信息，本系统为学校将来的上网作了先期工作，比如数据库的建立。 排课的设计分析根据实际情况，我们使用原型法（rapid prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。第二章怎样开发一个排课管理系统？编程环境的选择微软公司的visual basic 6.0是windows

9、应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。visual basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统vb是一个相对较好的选择。 关系型数据库的实现access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 excel 的电子表格，可以使数据库一目了然。另外，access 允许创建自定义报表用于打印或输出数据库中的信息。acce

10、ss也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 二者的结合（dba）微软的jet数据库引擎提供了与数据库打交道的途径，我们是通过它以及visual basic 来访问数据库并对其进行各种操作。visual basic、access以及其他微软的软件产品都是通过共用jet数据库引擎，从而给用户提供了丰富的数据类型。data 控件在数据库中的信

11、息与将信息显示给用户看的visual basic程序之间架起了一座桥梁。我们可以设置data控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，data控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。data控件还提供了用来浏览不同记录的各种跳转按钮。将data控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。第三章windows下的visualvisual basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有

12、一些特性和行为（属性、事件和 方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。visual basic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，visual basic也提供了强大的创建菜单功能是程序更加标准。您可以使用visual basic的application wizard也可以使用visual basic 的菜单

13、编辑器建立菜单或者修改已经存在的菜单。 实现工具栏coolbar控件与office97种看到的coolbar是类似的。coolbar就是一个可以在窗体上浮动的工具，同时也是其他activex的容器。通过在coolbar中迁入其他空间你局可以向用户提供更好的灵活性和义用性。toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。toolbar也是一个控件容器且具有style属性，并可以为其增加下拉按钮和平滑按钮等。选择工程下拉菜单中的部件选项，显示部件对话框。在控件选项卡列表中选择microsoft w

14、indows common controls 6.0后工具相中增加改控件。其属性及对象如下： 1 align属性定义工具条在窗体中的位置2 tooltiptext属性是字符串类型，定义控件的提示字符3 style属性定义按钮外观。4 imagelist属性定义与数据条对应的imagelist控件名，该控件定义工具条按钮显示的图像。5 hotimangelist属性设置一个imagelist控件名，该控件定义按钮获得热点时显示的图像。6 disabledimagelist属性定义工具条按钮无效时显示的图像。创建工具条包括imagelist和toolbar控件imagelist用于为其他控件提供图

15、像库，将imagelist控件加入到工具箱的操作于前述toolbar控件相同。 帮助专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的help workshop4.0 是一套独立于visual basic 的用来协助我们创建、运行于32位windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。 关于版本为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。visual

16、basic允许你使用app对象来保存这些信息，app对象是一个预定义对象，不需要在程序中创建它。app对象的大多数属性被应用程序用来提供常规的信息，通过使用这些app提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。第四章使用access2000 实现关系型数据库数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新

17、建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。 修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由visual basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立

18、的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。系统结构图 图一2、支持环境microsoft window98/2000/xp3.系统流程图 系统流程图 系 统主 界 面登录系统登录界面 输入操作员及密码检查密码错出错信 息正确数据库出错信息功能界 面系 统主 界 面功能处 理 图 二4、系统功能流程图 系统功能流程图系统管理员登录数据

19、库access功能界面教职员入库信息带课查询课程设置排课管理打印表 课程安排教员入库添加修改删除 全删查询退出图三5、系统管理流程图 系统管理流程图功能界面系统管理员登录数据库access系统管理密码修改删除用户增加用户第五章 系统总体规划系统功能1 可以进行文本操作；2 添加一个数据库项目；3 删除一个数据库项目；4 修改一个数据库项目；5 查询信息；6 察看课程表。 流程图 第六章 系统具体实现用户界面的实现封面具体实现见主界面 具体实现见.主界面包含三方面的内容,以下一一介绍:1.记录操作打开记录操作,进入记录操作菜单项分别由文件、视图及帮助三个选项。1.1文件包括：新建打开打开写字板-

20、保存另存打印退出视图包括：状态条工具栏背景颜色显示课程表-2记录操作打开记录操作进入记录操作选项页分别由浏览记录、查找等三个选项组成。21浏览记录：教师课程库课程库排课库22查找记录23备注3系统信息打开系统信息进入选项页分别由系统信息、信息采集等组成。帮助系统 课程模块：该模块主要完成教师基本信息的录入、删除 、更新等功能。在此模块中定义了八个域名来进行教师的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进行教师记录的编辑，此窗口使用数据窗口的freedom风格（典型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新教师纪录。622排课数据库排课数据库里存储了教师的排

21、课包括：编号、排课、等如表列名（中文）列名（英文）数据类型宽度小数点位数是否为空姓名name date8no编号codeinteger6no排课scoredate10no备注recorddate15no 表排课模块：该模块主要完成教师排课的基本信息的录入、删除 、更新等功能。在此模块中定义了四个域名来进行教师的信息存储。课程数据库课程数据库利存储了课程的信息：课程名、作者、出版社等如表列名（中文）列名（英文）数据类型宽度小数点位数是否为空课程idcoursedate8no课程名namedate15no出版社publisherdate20no作者scoredate18no备注recorddate

22、15no 表课程模块：该模块主要完成存储课程的所有信息及录入、删除 、更新等功能 与vb的连接visual basic提供了与底层数据库系统紧密的连接。visual basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，visual basic连接数据库的方式有两种：通过使用visual basic的 data控件。 通过使用由visual basic提供的专用的直接与数据库相连的接口.第七章 vb中调用带参数存储过程的实现vb做为快速应用开发（rad）工具越来越得到开发人员的认可和接受。它对许多api（如odbc api、sock

23、et api等等）的封装使得编程变得简单起来。同时，它支持集成开发环境下的可视化、事件驱动、面向对象等编程特点。下面，我们谈谈在vb中调用存储过程的实现方法及其注意事项。 - 我们知道，vb的数据库编程有许多种方法，比如直接用odbc api编程，这种方法灵活、高效，程序员可以实现对数据库复杂的控制；也可以用vb中的数据对象，如rdo（远程数据对象）、dao（数据访问对象）、ado（activex 数据对象），这种方法实现起来方便、快捷，但灵活性较差一些。由于存储过程在实现数据封装、隐藏以及代码的预编译、减少网络负载、维护方便等优点，所以被许多rdbms和编程工具做支持。vb中的各类数据对象也

24、提供对存储过程的支持。 - 我们以ado为例来说明其实现的步骤 - 1 创建、调试存储过程。你可以在数据库中也可以在其他外挂程序的支持下进行存储过程的创建和调试工作。本例中的存储过程代码如下（使用pubs的ms sql中的例子库 ）： create procedure myprocedurejob_id smallint,job_lvl tinyintasselect *from employeewhere job_id job_lvl- 2 在vb中生成一个新的工程，工程有一窗体，一个command（name：command1） 按钮，一个 msflexgrid（name：msflexgri

25、d1）控件。 - 3 创建连接ado connection； - 4 创建命令ado command; - 5 创建参数并设置各个参数的属性； - 6 执行ado command; - 7 对数据进行处理；msflexgrid显示查询到的数据 - 8 释放连接，退出程序。 - 其中代码如下： 在窗体中声明以下变量：dim cnn1 as adodb.connection 连接dim mycommand as adodb.command 命令dim parm_jobid as adodb.parameter 参数1dim parm_joblvl as adodb.parameter 参数2dim

26、 rstbyquery as adodb.recordset 结果集dim strcnn as string 连接字符串在窗体的load事件中加入如下代码：set cnn1 = new adodb.connection 生成一个连接strcnn = dsn=mydsn;uid=sa;pwd=创建的系统数据源mydsn指向pubs数据库cnn1.open strcnn 打开连接在窗体的unload中的加入代码如下：cnn1.close 关闭连接set cnn1 = nothing 释放连接在按钮中的代码如下： dim i as integer dim j as integer set parm_

27、jobid = new adodb.parameterset mycommand = new adodb.command parm_jobid.name = name1this line can be ommitedparm_jobid.type = adinteger 参数类型parm_jobid.size = 3 参数长度parm_jobid.direction = adparaminput参数方向，输入或输出parm_jobid.value = 100 参数的值mycommand.parameters.appendparm_jobid 加入参数set parm_joblvl = new

28、adodb.parameterparm_joblvl.name = name2parm_joblvl.type = adintegerparm_joblvl.size = 3parm_joblvl.direction = adparaminputmycommand.value = 100mycommand.parameters.append parm_joblvlmycommand.activeconnection = cnn1 指定该command 的当前活动连接mycommand.commandtext = myprocedure myprocedure 是你要调用的存储过程名称mycom

29、mand.commandtype = adcmdstoredproc 表明command 为存储过程set rstbyquery = new adodb.recordsetset rstbyquery = mycommand.execute()i = 0do while not rstbyquery.eofi = i + 1 i 中保存记录个数rstbyquery.movenextloopmsflexgrid1.rows = i + 1 动态设置msflexgrid的行和列msflexgrid1.cols = rstbyquery.fields.count + 1msflexgrid1.row

30、 = 0for i = 0 to rstbyquery.fields.count - 1msflexgrid1.col = i + 1msflexgrid1.text = rstbyquery.fields.item(i).namenext 设置第一行的标题，用域名填充i = 0set rstbyquery = mycommand.execute()do while not rstbyquery.eof i = i + 1 msflexgrid1.row = i 确定行 for j = 0 to rstbyquery.fields.count - 1 msflexgrid1.col = j +

31、 1 msflexgrid1.text = rstbyquery (j)添充所有的列 nextrstbyquery.movenext loop 这个循环用来填充msflexgrid的内容- 特殊说明 - 1 set recordset = command.execute( recordsaffected, parameters, options ) command.execute recordsaffected, parameters, options 这是command的两种用法，一种有返回结果集，一种没有返回结果集。 - recordsaffected：是指用update、delete操作

32、时所影响的结果，对select的查询，其值为-1；这和在ms sql server 中的query analyzer中的不一样。query analyzer中，select、update、delete的结果显示的是实际查、改、删的记录数。 - options：指明command的类型，有adcmdtext、adcmdtable、adcmdstoredproc等等，用户可见msdn。 - 2.在参数的类型中，用户可以用varchar来代替integer,系统会帮你自动实施转化； - 3本例中仅为带输入参数的存储过程，如果要有输出参数，根据msdn的材料，用ado不行。你可以用rdo数据对象，ms

33、dn中有一个例子，此处不做过多赘述； - 4可以不用ado command对象，也可直接调用ado connection的execute方法,结果很类似。第八章 结束语经过三个多月的设计和开发，中小学排课管理系统基本开发完毕。其功能基本符合用户需求，能够完成教师课程的存储和排课的查询以及各类相关报表的打印。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。 致谢：在这次毕业设计中，我

34、从指导老师朱静老师身上学到了很多东西。朱老师的工作态度，严谨的治学精神和深厚的理论水平都使我非常的感动。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢她细心而又耐心的辅导，我会永远铭记心中的。参考文献：1、软件系统开发技术 潘锦平西安电子科技大学出版社 2、软件工程导论 清华大学出版社 3、visual basic 6.0数据库实用程序设计100例段兴人民邮电出版社4、visual basic 6.0编程方法详解李鸿吉科学教育出版社5、数据库系统概论萨师煊高等教育出版社6、visual basic 程序设计教程刘炳文清华大学出

35、版社源代码:进入界面option explicitdim strrun as stringdim itp as integerprivate sub command1_click()me.mousepointer = 11timer1.enabled = truestrrun = ltrim$(rtrim$(combo1.text)select case strruncase combo1.list(0): form1.showcase combo1.list(1): form2.showcase combo1.list(2): form3.showcase combo1.list(3): f

36、orm4.showcase combo1.list(4): form5.showcase combo1.list(5): form6.show case else: msgbox 请选择一正确的操作项, vbinformation + vbokonly, 操作end selectend subprivate sub command2_click()frmabout.showend subprivate sub form_load()combo1.additem 教职员入库信息combo1.additem 排课管理combo1.additem 教职员带课查询combo1.additem 本学期课

37、程设置combo1.additem 打印课程表combo1.additem 打印教师代课表end subprivate sub form_unload(cancel as integer)itp = msgbox(你确定要退出本系统, vbyesno + vbquestion, 退出)if itp = vbno then cancel = 1end ifif cancel = 0 then endend ifend subprivate sub frame1_dragdrop(source as control, x as single, y as single)end subprivate

38、sub timer1_timer()timer1.enabled = falseme.mousepointer = 0end sub进启动界面option explicitprivate sub form_load()me.mousepointer = 11dim x, y as integerimgbg.picture = loadpicture(app.path + back.jpg)imgbg.width = form1.widthimgbg.height = form1.heightx = (screen.width - form1.width) / 2y = (screen.heig

39、ht - form1.height) / 2form1.left = xform1.top = ytimer1.enabled = trueend subprivate sub imgbg_click()end subprivate sub timer1_timer()unload mefmstart.showbeepend sub教员入库dim con as adodb.connectiondim rs as adodb.recordsetdim qrs as adodb.recordsetdim slsql as stringdim i, j as integerdim strbak(2)

40、 as stringdim sqlstr as stringprivate sub command1_click(index as integer)on error goto err:dim cn as integerfor cn = 0 to 2 text1(cn).text = next cnif rs.recordcount 0 then select case index case 0: rs.movefirst case 1: rs.moveprevious command1(2).enabled = true command1(3).enabled = true case 2: r

41、s.movenext command1(0).enabled = true command1(1).enabled = true case 3: rs.movelast end select displayinfoend ifgoto ok:err:call dataoverok:end subprivate sub dataover()if rs.bof then command1(0).enabled = false command1(1).enabled = false command1(2).enabled = true command1(3).enabled = true rs.mo

42、vefirst else if rs.eof then rs.movelast command1(0).enabled = true command1(1).enabled = true command1(2).enabled = false command1(3).enabled = false else msgbox database error, vbexclamation + vbokonly, error unknown end ifend ifend subprivate sub command2_click(index as integer)on error goto errde

43、alif index = 0 or index = 2 then cansave (true)else cansave (false)end ifselect case indexcase 0: rs.addnew call tonull case 1: j = msgbox(你确定要删除本记录吗？, vbyesno + vbquestion, 删除) if j = vbyes then rs.delete call tonull end if case 2:rs.deleters.addnewcase 3: if len(ltrim$(rtrim$(text1(0).text) 0 then

44、 rs.addnew for i = 0 to 2 if len(ltrim$(rtrim$(text1(i).text) 0 then rs.fields(i) = text1(i).text end if next i rs.update else msgbox 姓名不得为空, vbokonly + vbexclamation, error end ifcase 4: for i = 0 to 2 text1(i).text = strbak(i) next i call command2_click(3) end selectexit suberrdeal:msgbox database

45、 error, vbexclamation + vbokonly, errorokend:end subprivate sub cansave(ok as boolean)frame1.enabled = not okframe3.enabled = ok for i = 0 to 4 if i 0 then rs.movefirst displayinfo cansave (false) else new data cansave (true) call command2_click(0) end ifend subprivate sub displayinfo() i = j = 0 fo

46、r i = 0 to 2 text1(i).text = if len(rs.fields(i) 0 then text1(i).text = rs.fields(i) strbak(i) = text1(i).text end if next i end subprivate sub tonull() for i = 0 to 2 text1(i).text = strbak(i) = next i end subprivate sub form_unload(cancel as integer)on error goto kkrs.closeset rs = nothingqrs.clos

47、eset qrs = notingcon.closeset con = nothingkk:end subprivate sub querycomm_click() slsql = select * from teacher where ctrname = + text1(3).text + qrs.open slsql, con, adopenstatic if not qrs.eof then qrs.movefirst i = j = 0 for i = 0 to 2 text1(i).text = if len(qrs.fields(i) 0 then text1(i).text = qrs.fields(i) strbak(i) = text1(i).text end if next i e