毕业论文—排课系统

刘佳欣

摘要制定一个学校的排课计划是一项非常耗时且相当辛苦的工作。在一 所高校时一个课程表的制定是一个难题，因为在有关课程表的问题上有 很多的限制条件得考虑，还有大量的数据空间被挖掘，即便你的输入数 据量并不是实际意义上的大批量。 课程编排系统是一个学校不可缺少的部分,它的内容对于学校的决策 者和管理者来说都至关重要,所以课程编排系统应该能够为老师提供充足 的信息和快捷的查询手段。但一直以来都是用传统人工的方式管理文件 档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一 长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困 难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人 们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 关键字：排课管理，VB,数据库

绪论数据库是从60年代初发展起来的计算机技术。经过四十来年的发展，数据库技术己经趋于成熟。数据 库在新的计算机环境中发生了很大的变化。就数据应用而言呈现出多样化的空间，如数字图书馆、电子 出版物、电子商务、远程教育系统等的出现，给数据库技术提出了更多、更高的要求。 课程编排系统是一个学校不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要, 所以自动课程编排系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人 工的方式管理文件档案，这种管理方式存在着许多缺点,如：效率低、保密性差,另外时间一长,将产生大 量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社 会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对选课信息进行管理,有着手工管理所无法比拟的优点。例如： 检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高 人事劳资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 在高等学校的教务管理工作中，课程表的编排是一项十分复杂、棘手的工作。在排课过程中，除 了满足大量的制约条件以外，还必须解决许多冲突与矛盾，例如：两位教师不能同一时间在同一班级上 课、一位教师不能在同一时间上两门课等等。利用计算机辅助进行课表编排工作，既提高了排课工作的 科学性，又可大大减轻管理人员的工作强度，提高工作效率，从而使学

校教务管理现代化迈上了一个新 台阶。 我国不少高校都实行了学分制，它的核心是允许学生自由选课，即把学习的自主权交给学生。在 这里，排课系统时的制约因素比较复杂，工作量也很大，而且往往需要在较短的时间内完成。运用计算 机辅助选课，即能实时地对大量选课数据进行检验和统计，十分方便地输出选课结果，同时也避免了人 工处理时容易产生的错误。 从系统开发的复杂程度来看，计算机辅助排课与选课是高校教务系统中的两个关键子系统，目前 不少教务系统尚未很好地解决排课与选课问题。本文主要对高校教务管理系统中计算机课表编排与选课 子系统的基本功能、设计思想、需求分析以及实现技术进行探讨。本设计的系统可以通过登陆界面对学 生老师的功能权限进行分配，登陆后各自实施各自的功能。

系统运行环境操作系统

采用的是当前流行的主流操作系统微软公司的WindowsXP。 本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言

系统实现 课程设置模块设计

Private Sub cn_Click(Index As Integer) 'On Error GoTo ex: Dim lcnt As Integer Dim strTxt As String Select Case Index Case 0: CanSave (True)Case 1: con.Execute ("delete * from subject") For lcnt = 0 To 9 strTxt = Trim$(LTrim$(Txt(lcnt).Text)) If Len(strTxt) > 0 Then rs.AddNew

rs!csjname = strTxt rs.Update End If Next lcnt CanSave (False) Case 2: For lcnt = 0 To 9 Txt(lcnt) = str(lcnt) Next lcnt CanSave (False)End Select

教师入库信息模块设计

主要代码如下所示： Private Sub Command2_Click(Index As Integer) On Error GoTo errDeal If Index = 0 Or Index = 2 Then CanSave (True) Else CanSave (False) End If Select Case Index Case 0: rs.AddNew Call toNull Case 1: j = MsgBox("你确定要删除本记录吗？", vbYesNo + vbQuestion, "删除") If j = vbYes Then rs.Delete Call toNull End If

课程安排管理模块设计

主要代码如下所示： Private Sub cb_Click(Index As Integer) Me.MousePointer = 11 On Error GoTo errDeal Select Case Index Case 0: ClassCode = Trim(Combo1(0).Text) & "." & Trim(Combo1(1).Text) If Len(Trim(Combo1(0).Text)) > 0 And Len(ClassCode) > 1 Then Call displayInfo cb(1).Enabled = TrueEnd If

课程查询模块设计

主要代码如下所示： Private Sub Command1_Click() On Error GoTo bnEnd Me.MousePointer = 11 Dim sSql As String Dim dgUse As DataGet 'Select Case Index 'Case 0: Call ClearCombo

系统的问题与调试在系统的编写过程中，通常会出现大量的这样或是那样 的错误，处理错误能力的大小也是评价一个程序员优秀与 否的标准。程序中的错误大致分三种：语法错误、逻辑错 误、意外错误。这里面语法错误是最常见的，占了错误中 的大部分，但也是最容易解决的，通常在程序的编

译时， 多半可以发现这些错误并将其解决，逻辑错误的解决也不 难，只要真正了解程序的流程及内部的逻辑关系，也会迎 刃而解。最难处理的是意外错误，通常发生此类错误时， 还要查找很多与之相关的程序部分，真正了解错误的本质， 还需要有较全面和扎实的专业知识。在这次的毕业设计过 程中，我也遇到了很多问题。

总结在本次的毕业设计中，为搞清控件的使用方法、编程的 各个难点、掌握面向对象的编程思想，本人查过相关的教材、 查询过相关的网站、请教过指导教师。在摸索中学习，在困 惑中探索，终于探究了一套较好的学习面向对象的程序设计 的方法。 但是由于毕业设计时间较短，所以该系统还有许多不尽 如人意的地方，比如联机文档比较少，用户界面不够美观， 出错处理不完善等多方面问题。这些都有待进一步改善。

致 谢紧张忙碌的毕业设计即将结束了，在这几个月的课程设计中，我从 项目的规划、调研开始，到编码、测试，充分体会了一个软件产品的生 产过程，也让我看到了我自身水平的不足。与此同时，同样让我感到了 继续学习、更新自身知识、加强自身能力的必要性。大学四年的学习即 将结束，我也即将走向新的起点。这段毕业设计的经历给了我克服困难 的决心和解决问题的经验，它将对我今后的生活、学习起到很大的帮助。 经过这次，我初步掌握了Visual Basic 6.0 的基本应用，基本达到了 毕业设计的要求。最重要的是，毕业设计的经历增强了我自我学习的能 力，做到了在不用老师手把手教授的情况下，完成了一个较为复杂的管 理系统。同时，在课程设计的过程中，查阅了大量的资料，也增强了我 进行资料收集、查找和对资料进行筛选的能力。 在整个毕业设计的实习过程中，我要衷心的感谢我的指导老师。他 一直都在为我的毕业设计提供耐心的指导，并且帮助我解决了很多疑难 问题，这样才有了我的这份毕业设计。我还要感谢我的同学们，他们也 给了我许多支持。最后，也是最重要的，感谢所有这四年中传授我知识， 给予我关怀和帮助的老师们！