毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

vb+SQL排课系统论文报告+算法+源码+答辩PPT 第5页

更新时间:2010-7-10:  来源:毕业论文
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
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。