毕业论文—排课系统

毕业论文—排课系统

刘佳欣

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

系统的问题与调试在系统的编写过程中，通常会出现大量的这样或是那样 的错误，处理错误能力的大小也是评价一个程序员优秀与 否的标准。程序中的错误大致分三种：语法错误、逻辑错 误、意外错误。这里面 …… 此处隐藏：1637字，全部文档内容请下载后查看。喜欢就下载吧 ……