vb+SQL排课系统论文报告+算法+源码+答辩PPT 第5页
4教师模块主要用于教师信息的添加,修改,删除。用户登陆系统后,可以通过选择“条件设置”→“教师设置”进入下面的界面。用户可以对教师信息进行添加,修改和删除。单击“保存”按钮可以保存操作信息,单击“取消”按钮可以取消操作。
图4-8 “教师设置”短话框
5时间段模块主要用于每节课的时间安排。用户登陆系统后,可以通过选择“条件设置”→“时间设置”进入下面的界面。用户可以对时间信息进行添加,修改和删除。单击“保存”按钮可以保存操作信息,单击“取消”按钮可以取消操作。用户也可以通过移动按钮来查找所需信息。
图4-9 “时间设置”短话框4.5课表管理模块设计
1课表安排模块主要用于课表的生成。用户登陆系统后,可以通过选择“课表管理”→“课表安排”进入下面的界面。用户可以选择某个班级生成课表。
图4-10 “课表安排”短话框
主要代码:
Private Sub CmdDo_Click()
'生成课表
msg = MsgBox("您确实要进行排课吗?", vbYesNo)
If msg =本文来自辣文论文网原文请找QQ752018766
'1给每个班生成一张空的课程表
Call GenerateEmptyCT
'2开始排课
Call GenerateRealCT
'3如果排课条件设置错误,不进行排课
If M_Flag = False Then
MsgBox ("排课条件设置有问题,请重新设置!")
Exit Sub
End If
Else
Exit Sub
End If
End Sub
Private Sub GenerateEmptyCT()
' 给每个班生成一张空的课程表
Dim rst1 As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Dim strClass As String '定义班级名称变量
Dim strSegment As String '定义节号变量
'1删除排课信息表
SQL = " delete from 排课信息表"
Call ExecuteSQL(SQL, msg)
'2得到班级名称集
SQL = " select 班级名称 from 班级信息表 order by 班级名称"
Set rst1 = SelectSQL(SQL, msg)
'3得到节号集
SQL = " 毕业论文
http://www.751com.cn select 节号 from 时间段信息表 order by 节号"
Set rst2 = SelectSQL(SQL, msg)
M_segmentNum = rst2.RecordCount '得到每天教学节数
'4生成空课表,遍历每一个班级
If rst1.RecordCount > 0 And rst2.RecordCount > 0 Then
Do While Not rst1.EOF
strClass = rst1.Fields("班级名称")
'遍历所有节号,将初始排课信息插入到课表中
Do While Not rst2.EOF
strSegment = rst2.Fields("节号")
SQL = "insert into 排课信息表(班级名称,节号,星期一,星期二,星期三,星期四,星期五,星期辣,星期日) "
SQL = SQL & " values ('" & strClass & "','" & strSegment &
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
vb+SQL排课系统论文报告+算法+源码+答辩PPT 第5页下载如图片无法显示或论文不完整,请联系qq752018766