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

VB+SQL Server智能排课系统 第8页

更新时间:2008-6-19:  来源:毕业论文

VB+SQL Server智能排课系统 第8页

Private Sub Command1_Click()

    Dim strCourseID As String

    Dim strClassRoomID As String

    Dim i As Integer, j As Integer

    If Combo1.Text = "" Then

        MsgBox "请输入要查询的班级编号!"

        Exit Sub

    End If

    strSQL = "SELECT * FROM bTempTableA where classid= " & Combo1.Text & " order by ttime"

    strtempsql = "SELECT courseID,courseName FROM bCourse"

    strclassroomsql = "SELECT ClassRoomID,ClassRoomName FROM bclassroom"

    ConenctToDatabase

    rst.Open strSQL, db, adOpenKeyset, adLockOptimistic

    temp.Open strtempsql, db, adOpenKeyset, adLockReadOnly

    classtemp.Open strclassroomsql, db, adOpenKeyset, adLockReadOnly

    If rst.RecordCount() <> 0 Then

        i = rst.RecordCount()

    Else

        MsgBox "无此信息,请重新输入!"

        rst.Close

        temp.Close

        classtemp.Close

        Exit Sub

    End If

    Set xlapp = New Excel.Application

Set xlbook = xlapp.Workbooks.Open(App.Path & "\课程表模板.xlt")

    xlapp.Visible = True

    Set xlsheet = xlbook.Worksheets("班级课程表")

    xlsheet.Activate

    xlsheet.Cells(5, 1) = Combo1.Text & ""

    xlsheet.Cells(5, 6) = Date

    While i <> 0

                strCourseID = rst.Fields("courseID")

                temp.Filter = "courseID = '" & strCourseID & "'"

                strClassRoomID = rst.Fields("classroomID")

                classtemp.Filter = "classroomID = '" & strClassRoomID & "'"

            Select Case rst.Fields("Ttime")

            Case Is = 1

                xlsheet.Cells(9, 3) = temp.Fields("coursename")

                xlsheet.Cells(11, 3) = classtemp.Fields("classroomName")

            Case Is = 2

                xlsheet.Cells(13, 3) = temp.Fields("coursename")

                xlsheet.Cells(15, 3) = classtemp.Fields("classroomName")

            Case Is = 3

                xlsheet.Cells(17, 3) = temp.Fields("coursename")

                xlsheet.Cells(19, 3) = classtemp.Fields("classroomName")

            Case Is = 4

                xlsheet.Cells(21, 3) = temp.Fields("coursename")

                xlsheet.Cells(23, 3) = classtemp.Fields("classroomName")

            Case Is = 5

                xlsheet.Cells(9, 4) = temp.Fields("coursename")

                xlsheet.Cells(11, 4) = classtemp.Fields("classroomName")

            Case Is = 6

                xlsheet.Cells(13, 4) = temp.Fields("coursename")

                xlsheet.Cells(15, 4) = classtemp.Fields("classroomName")

            Case Is = 7

                xlsheet.Cells(17, 4) = temp.Fields("coursename")

                xlsheet.Cells(19, 4) = classtemp.Fields("classroomName")

            Case Is = 8

                xlsheet.Cells(21, 4) = temp.Fields("coursename")

                xlsheet.Cells(23, 4) = classtemp.Fields("classroomName")

            Case Is = 9

                xlsheet.Cells(9, 5) = temp.Fields("coursename")

                xlsheet.Cells(11, 5) = classtemp.Fields("classroomName")

            Case Is = 10

                xlsheet.Cells(13, 5) = temp.Fields("coursename")

                xlsheet.Cells(15, 5) = classtemp.Fields("classroomName")

            Case Is = 11

                xlsheet.Cells(17, 5) = temp.Fields("coursename")

                xlsheet.Cells(19, 5) = classtemp.Fields("classroomName")

            Case Is = 12

                xlsheet.Cells(21, 5) = temp.Fields("coursename")

                xlsheet.Cells(23, 5) = classtemp.Fields("classroomName")

            Case Is = 13

                xlsheet.Cells(9, 6) = temp.Fields("coursename")

                xlsheet.Cells(11, 6) = classtemp.Fields("classroomName")

            Case Is = 14

                xlsheet.Cells(13, 6) = temp.Fields("coursename")

                xlsheet.Cells(15, 6) = classtemp.Fields("classroomName")

            Case Is = 15

                xlsheet.Cells(17, 6) = temp.Fields("coursename")

                xlsheet.Cells(19, 6) = classtemp.Fields("classroomName")

            Case Is = 16

                xlsheet.Cells(21, 6) = temp.Fields("coursename")

                xlsheet.Cells(23, 6) = classtemp.Fields("classroomName")

            Case Is = 17

                xlsheet.Cells(9, 7) = temp.Fields("coursename")

                xlsheet.Cells(11, 7) = classtemp.Fields("classroomName")

            Case Is = 18

                xlsheet.Cells(13, 7) = temp.Fields("coursename")

                xlsheet.Cells(15, 7) = classtemp.Fields("classroomName")

            Case Is = 19

                xlsheet.Cells(17, 7) = temp.Fields("coursename")

                xlsheet.Cells(19, 7) = classtemp.Fields("classroomName")

            Case Is = 20

                xlsheet.Cells(21, 7) = temp.Fields("coursename")

                xlsheet.Cells(23, 7) = classtemp.Fields("classroomName")

            Case Is = 21

                xlsheet.Cells(9, 8) = temp.Fields("coursename")

                xlsheet.Cells(11, 8) = classtemp.Fields("classroomName")

            Case Is = 22

                xlsheet.Cells(13, 8) = temp.Fields("coursename")

                xlsheet.Cells(15, 8) = classtemp.Fields("classroomName")

            Case Is = 23

                xlsheet.Cells(17, 8) = temp.Fields("coursename")

                xlsheet.Cells(19, 8) = classtemp.Fields("classroomName")

            Case Is = 24

                xlsheet.Cells(21, 8) = temp.Fields("coursename")

                xlsheet.Cells(23, 8) = classtemp.Fields("classroomName")

            Case Is = 25

                xlsheet.Cells(9, 9) = temp.Fields("coursename")

                xlsheet.Cells(11, 9) = classtemp.Fields("classroomName")

            Case Is = 26

                xlsheet.Cells(13, 9) = temp.Fields("coursename")

                xlsheet.Cells(15, 9) = classtemp.Fields("classroomName")

            Case Is = 27

                xlsheet.Cells(17, 9) = temp.Fields("coursename")

                xlsheet.Cells(19, 9) = classtemp.Fields("classroomName")

            Case Is = 28

                xlsheet.Cells(21, 9) = temp.Fields("coursename")

                xlsheet.Cells(23, 9) = classtemp.Fields("classroomName")

           Case Else

                MsgBox "数据溢出,请检查系统!"

            End Select

        i = i - 1

        rst.MoveNext

        Wend

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VB+SQL Server智能排课系统 第8页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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