【導讀】就是給每個班的課程安排時間和地點。排課工作在教學管理中很重要也很繁瑣，計算機智能排課系統(tǒng)，可以降低排課人員的工作量，減少排課中的人為因素[1-2]。但排課問題屬于NP問題，即無法直接得到答案，只能通過猜測獲取可能結果。結果是否正確可行。因此，要做好排課工作，提高排課效率，實現(xiàn)智能排課是必。及報表的自動生成。工具，SQLServer2021作為后臺數(shù)據(jù)庫平臺的管理系統(tǒng)。關鍵詞：智能排課、貪心、分治、VisualStudio2021、SQLServer2021。

　　

【正文】 sqlstr = update lesson_plans set paike=0 UpdateData(sqlstr) 智能排課系統(tǒng)的設計與實現(xiàn) 27 sqlstr = select * from lp_view order by qz desc myds = GetDataFromDB(sqlstr) For i = 0 To (0). 1 39。給出最合適的星期 addkc = 1 myRow = (0).Rows(i) Test = ArrangeWeek(myRow) If Test = False Then Return False End If 39。安排節(jié)次 Test = ArrangeJieci(myRow, week) If Test = False Then Test = AdjustLesson(myRow) If Test = False Then Return False End If End If ArrangeCRoom(myRow, week) If myRow(w_jieci) = 4 Then Test = ArrangeJieci(myRow, week1) If Test = False Then Test = AdjustLesson(myRow, week) If Test = False Then Return False End If End If Test = ArrangeCRoom(myRow, week1) If Test = False Then Return False 智能排課系統(tǒng)的設計與實現(xiàn) 28 End If ElseIf myRow(w_jieci) = 3 Then Test = ArrangeDSZ(myRow) If Test = False Then AdjustLesson(myRow, week1) Test = ArrangeCRoomDSZ(myRow, week1) End If End If sqlstr = update lesson_plans set paike=1 where lesson_id= 39。 amp。 myRow(lesson_id) amp。 39。 UpdateData(sqlstr) Next Return True End Function 以下方法是初始化及預排序，返回資源是否夠分 Public Function InitQZ() As Boolean Dim qz, number As Integer Dim category, c_nature As String Dim Initds As DataSet sqlstr = update LP_view set qz=0 UpdateData(sqlstr) sqlstr = select * from LP_view Initds = GetDataFromDB(sqlstr) 39。初始化權重 For i = 0 To (0). 1 qz = 0 myRow = (0).Rows(i) 39。按周節(jié)次降序 If myRow(w_jieci) = 4 Then qz = qz + 2 智能排課系統(tǒng)的設計與實現(xiàn) 29 ElseIf myRow(w_jieci) = 3 Then qz = qz + 1 End If 39。按所需教室類型降序 category = myRow(category) If = 多媒體 Then qz = qz + 60 ElseIf = 普通教室 Then qz = qz + 50 ElseIf = 運動場 Then qz = qz + 40 ElseIf = 計算機實驗室 Then qz = qz + 30 ElseIf = 語音室 Then qz = qz + 20 ElseIf = 物理實驗室 Then qz = qz + 10 End If 39。按人數(shù)降序 number = myRow(number) If number 60 Then qz = qz + 3000 ElseIf number 120 Then qz = qz + 2021 ElseIf number 140 Then qz = qz + 1000 Else 39。 特大班先排，如體育這些課 qz = qz + 10000 End If 智能排課系統(tǒng)的設計與實現(xiàn) 30 39。按課程性質降序 c_nature = myRow(c_nature) If = 專業(yè)基礎課 Then qz = qz + 500 ElseIf = 專業(yè)公共課 Then qz = qz + 400 ElseIf = 專業(yè)限選課 Then qz = qz + 300 ElseIf = 專業(yè)任選課 Then qz = qz + 200 ElseIf = 公共選修課 Then qz = qz + 100 End If sqlstr = update lesson_plans set qz= amp。 qz amp。 where lesson_id=39。 amp。 myRow(lesson_id) amp。 39。 UpdateData(sqlstr) Next 39。僅檢查多媒體資源 sqlstr = select count(*) from classroom where category=39。多媒體 39。 Initds = GetDataFromDB(sqlstr) For i = 0 To 6 For j = 0 To 4 dmt(i, j) = (0).Rows(0)(0) Next Next sqlstr = select sum(w_jieci) from lp_view where category=39。多媒體 39。 Initds = GetDataFromDB(sqlstr) If (0).Rows(0)(0) dmt(0, 0) * 5 * 5 Then (教室不夠安排 ) Return False 智能排課系統(tǒng)的設計與實現(xiàn) 31 End If Return True End Function 以下方法是給出合適的星期，即老師 和班級的課程最少的一天 ， Public Function ArrangeWeek(ByVal Row As DataRow) As Boolean Dim k As Integer Dim testds, fbds As DataSet Dim mysqlstr As String For k = 0 To 4 weekn(k) = 0 Next 39。分班只加上合班每天的上課數(shù) If Row(hb) = 0 Then 39。計算本班每天上課數(shù) sqlstr = select week,count(*) as count from rl_view where class_id=39。 amp。 Row(class_id) amp。 39。group by week testds = GetDataFromDB(sqlstr) AddWeek(testds) GetHBWeek(Row) Else sqlstr = select class_id from hb where hb_id=39。 amp。 Row(class_id) amp。 39。 testds = GetDataFromDB(sqlstr) mysqlstr = select distinct hb_id from hb where class_id=39。 For k = 0 To (0). 1 sqlstr = select week,count(*) as count from rl_view where class_id=39。 amp。 (0).Rows(k)(class_id) amp。 39。 group by week fbds = GetDataFromDB(sqlstr) AddWeek(fbds) If k (0). 1 Then mysqlstr = mysqlstr amp。 (0).Rows(k)(class_id) amp。 39。or 智能排課系統(tǒng)的設計與實現(xiàn) 32 class_id=39。 Else mysqlstr = mysqlstr amp。 (0).Rows(k)(class_id) amp。 39。 End If Next Dim hbds As DataSet = GetDataFromDB(mysqlstr) For k = 0 To (0). 1 sqlstr = select week,count(*) as count from rl_view where class_id=39。 amp。 (0).Rows(k)(hb_id