【導讀】安排時間和地點，使整個教學能夠有計劃有秩序地進行。隨著我國教育體制改革的深入，學生人數(shù)的不斷上升，課程設(shè)置不斷向深度和廣度發(fā)展，手工排課的缺點就越來越突出。由于計算機具有運算速度快，處理能力強等特點，很自然地。進入這一應(yīng)用領(lǐng)域中。用計算機進行排課能夠快速地得到滿足約束條件的可行結(jié)束，具有排。對于推動教學的發(fā)展也起到非常重要的作用。教學環(huán)節(jié)制訂全校各班級的課表。息，如果手工進行排課，不可避免地出現(xiàn)教室資源沖突或教師資源沖突的情況。所以排課管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。課題目的在于開發(fā)一個“排課管理系統(tǒng)”，將學校行政辦公人員從繁重的排課管理工作中解脫出來，通過Inter的遍及全球的分布式應(yīng)用程序，都可在VisualBasic提供的工具中各取所需。已完成的應(yīng)用程序是使用VisualBasic虛擬機的真正.exe文件，可以自由發(fā)布。

　　

【正文】 learCombo strSql = select , + _ from teacher,trclass,classarray + _ where = and = + _ and = and = 39。select , 39。From teacher, trclass, classarray 39。Where = And = 39。and = 39。and =39。陳 39。 39。strSql = select , + _ from teacher join trclass on = join classarray + _ on = where = value = 0 GoTo ok KKa: MsgBox Error Unknown ok: = 0 36 End Sub Private Sub Form_Unload(Cancel As Integer) On Error GoTo KK: Set rs = Nothing Set rsTr = Nothing Set conn = Nothing KK: End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Opn_Click(Index As Integer) value = Index Call Command1_Click End Sub Form4: Option Explicit Dim con As Dim rs As Dim str(9) As String 39。Dim strSql As String Private Sub _Click(Index As Integer) 39。On Error GoTo ex: Dim lt As Integer Dim strTxt As String Select Case Index Case 0: CanSave (True) Case 1: 37 (delete * from subject) For lt = 0 To 9 strTxt = Trim$(LTrim$(Txt(lt).Text)) If Len(strTxt) 0 Then rs!csjname = strTxt End If Next lt CanSave (False) Case 2: For lt = 0 To 9 Txt(lt) = str(lt) Next lt CanSave (False) End Select Exit Sub ex: MsgBox database error, vbOKOnly + vbExclamation, error End Sub Private Sub Form_Load() 39。strSql = insert into subject values( 39。 Set con = New Set rs = New Call clearTxt CanSave (False) provider=。 data source= amp。 amp。 \ select * from subject, con, adOpenStatic, adLockOptimistic Call displayInfo End Sub Private Sub CanSave(bSave As Boolean) 38 = bSave (1).Enabled = bSave (2).Enabled = bSave (0).Enabled = Not bSave End Sub Private Sub displayInfo() Dim lt As Integer lt = 0 While (Not And lt 10) Txt(lt).Text = rs!csjname str(lt) = Txt(lt).Text lt = lt + 1 Wend End Sub Private Sub clearTxt() Dim lt As Integer For lt = 0 To 9 Txt(lt).Text = Next lt End Sub Private Sub Form_Unload(Cancel As Integer) Set rs = Nothing Set con = Nothing End Sub Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) End Sub Form5: 39 39。臨時課表 Dim ctCon As Dim ctrs As 39。classArray 表 Dim cacon As Dim cars As Dim sqlStr As String Dim ClassCode As String Dim wStr(5) As String Private Sub clearStr() For i = 1 To 5 wStr(i) = Next i End Sub Private Sub Update_ct() 39。刪除所有以前的記錄 (delete * from tempCT) 39。更新表 sqlStr = select * from classArray where cclasscode=39。 amp。 ClassCode amp。 39。 amp。 order by iTimeN sqlStr sqlStr, cacon, adOpenStatic, adLockOptimistic Dim i As Integer i = 1 clearStr While (Not ) While cars!iTimeN i 39。添加一條課程記錄 strSql = insert into tempCT values( amp。 i amp。 , + 39。 + wStr(1) + 39。 , + 39。 + wStr(2) + 39。 , + 39。 + wStr(3) + 39。 , + 39。 + wStr(4) + 39。 , + 39。 + wStr(5) + 39。 ) 40 strSql clearStr i = i + 1 Wend wStr(cars!iTimeW) = cars!csjname Wend 39。添加一條課程記錄 strSql = insert into tempCT values( amp。 i amp。 , + 39。 + wStr(1) + 39。 , + 39。 + wStr(2) + 39。 , + 39。 + wStr(3) + 39。 , + 39。 + wStr(4) + 39。 , + 39。 + wStr(5) + 39。 ) strSql clearStr While i 10 39。添加一條課程記錄 strSql = insert into tempCT values( amp。 i amp。 , + 39。 + wStr(1) + 39。 , + 39。 + wStr(2) + 39。 , + 39。 + wStr(3) + 39。 , + 39。 + wStr(4) + 39。 , + 39。 + wStr(5) + 39。 ) strSql i = i + 1 Wend End Sub Private Sub Command1_Click() ClassCode = Trim() amp。 . amp。 Trim() Call Update_ct Unload Me End Sub Private Sub Form_Load() For i = 1 To 12 (i) Next i For i = 1 To 20 41 (i) Next i Set cacon = New Set cars = New provider=。 data source= amp。 amp。 \ Set ctCon = New Set ctrs = New provider=。 data source= amp。 amp。 \ End Sub Private Sub Form_Unload(Cancel As Integer) Set cars = Nothing Set cacon = Nothing Set ctrs = Nothing Set ctCon = Nothing End Sub Form6: 39。臨時教師代課表 Dim ttCon As Dim ttrs As 39。trClass 表 Dim trcon As Dim trrs As Dim sqlStr As String Dim trname As String Dim wStr(5) As String Dim clStr(5) As String Private Sub clearStr() For i = 1 To 5 42 wStr(i) = clStr(i) = Next i End Sub Private Sub Update_tt() delete * from tempTT strSql = select , + _ from teacher,trclass,classarray + _ where = and = + _ and = and = + 39。 + trname + 39。 _ + order by iTimeN strSql strSql, trcon, adOpenStatic, adLockOptimistic Dim i As Integer i = 1 clearStr While Not While trrs!iTimeN i strSql = insert into tempTT values( amp。 i amp。 , + 39。 + wStr(1) + 39。 , + 39。 + wStr(2) + 39。 , + 39。 + wStr(3) + 39。 , + 39。 + wStr(4) + 39。 , + 39。 + wStr(5) + _ 39。 ,39。 + clStr(1) + 39。 , + 39。 + clStr(2) + 39。 , + 39。 + clStr(3) + 39。 , + 39。 + clStr(4) + 39。 , + 39。 + clStr(5) + 39。 ) strSql clearStr i = i + 1 Wend wStr(trrs!iTimeW) = trrs!csubject clStr(trrs!iTimeW) = trrs!cClassCode 43 Wend strSql = insert into tempTT values( amp。 i amp。 , + 39。 + wStr(1) + 39。 , + 39。 + wStr(2) + 39。 , + 39。 + wStr(3) + 39。 , + 39。 + wStr(4) + 39。 , + 39。 + wStr(5) + _ 39。 ,39。 + clStr(1) + 39。 , + 39。 + clStr(2) + 39。 , + 39。 + clStr(3) + 39。 , + 39。 + clStr(4) + 39。 , + 39。 + c