VB+SQL Server智能排课系统 第11页
Case Is = 18
xlsheet.Cells(13, 7) = temp.Fields("classname")
Case Is = 19
xlsheet.Cells(17, 7) = temp.Fields("classname")
Case Is = 20
xlsheet.Cells(21, 7) = temp.Fields("classname")
Case Is = 21
xlsheet.Cells(9, 8) = temp.Fields("classname")
Case Is = 22
xlsheet.Cells(13, 8) = temp.Fields("classname")
Case Is = 23
xlsheet.Cells(17, 8) = temp.Fields("classname")
Case Is = 24
xlsheet.Cells(21, 8) = temp.Fields("classname")
Case Is = 25
xlsheet.Cells(9, 9) = temp.Fields("classname")
Case Is = 26
xlsheet.Cells(13, 9) = temp.Fields("classname")
Case Is = 27
xlsheet.Cells(17, 9) = temp.Fields("classname")
Case Is = 28
xlsheet.Cells(21, 9) = temp.Fields("classname")
Case Else
MsgBox "数据溢出,请检查系统!"
End Select
i = i - 1
rst.MoveNext
Wend
本软件的主要功能是能够查询到教师、教室、班级的相关信息,从而了解到各个部分不用的资源以及现状。利用自动排课来完成本系统的核心内容,进行计算机的自动排课,接下来发生冲突的部分,运用手工排课来调整局部的资源冲突问题。最后,是按照各部分的不同需求,分别按班级、教师、教师来打印出他们满意的课程表,以方便不同群体的工作和学习。
通过对该系统的运行,均能完成预期的功能,对于功能的测试基本成功。
对于课程表的设计,本软件是将课程导入到Microsoft Office 提供的EXCEL中。因为EXECL 已经为我们提供了标准的Windows 特有的界面和相关功能,所以应该充分利用现有的、最有效的资源。导入到EXCEL中是生成报表的一种方法。可根据用户的不同需求来打印出不同的班级,不同的教室和具体的某一位教师的上课时间安排,地点安排,以及具体上课的课程名称。
通过对该软件的运行,可以方便轻松地打印出具体班级、教师、教室的一学期的课程安排情况。
该系统的不足之处在于,由于数据信息的缺乏,不能对输入的任意一学期的课程进行现场排课,只能进行的是指定某一确定学期,通过该学期的教学计划来进行排课。对于一些高校有多个校区,本系统还不能对所有的校区进行资源和数据上的分离来进行完美的毫无冲突的排课,这是需要改进的地方之一。还有,本系统个别地方缺乏人性化的设计,例如,对于高年龄的老教师来说,尽量不要安排他们去高层进行授课,授课的地点不能有太大的跨越。
改进的方案其实是多种多样的,对于一些人性化的设计,我们可以通过手工排课来调整。对于跨校区的排课,是我们以后修改和文护本系统的一个方向,通过尝试别的排课算法来实现,或者通过后续的文护来实现。
<< 上一页 [11] [12] [13] [14] [15] [16] 下一页