【正文】 For Append As 1 //Dim M As StringM = Write 1, MClose 1Dim h As Integer () = Open .\kcb_done\class_kcb\ amp。 amp。 .dat For Output As 2For h = 0 To CInt() 1Write 2, Next hClose 2Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2For h = 0 To CInt() 1Write 2, Next hClose 2Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2For h = 0 To CInt() 1Write 2, Next hClose 2Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2 Close 2 Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2 Close 2SendKeys {home}+{end}ElseMsgBox 請輸入一個班級名稱, , 錯誤End IfEnd SubPrivate Sub ClassN_click() = 0Dim qq As String Open .\kcb_done\class_kcb\ amp。 amp。 For Input As 1 Do Until EOF(1) Input 1, qq (qq) Loop Close 1 Open .\kcb_done\class_kcb\ amp。 amp。 For Input As 1 Do Until EOF(1) Input 1, qq (qq) Loop Close 1 For i = 0 To 1 = i = i ee = 星期 amp。 amp。 ,第 amp。 amp。 節(jié) //從文本文件中取出課程時間 (ee) Next i End Sub對課表樣式進行設置，從下拉列表中選擇所需要的課表節(jié)數(shù)或者天數(shù)，如下圖代碼如下：//判斷設置的天數(shù)或者節(jié)數(shù)是否在預定的范圍之內Private Sub Command1_Click()If CInt() 0 Or CInt() 7 Or CInt() 0 Or CInt() 9 Or CInt() 0 Or CInt() 9 Or CInt() 0 Or CInt() 9 Then MsgBox (數(shù)據(jù)溢出!!) Exit SubEnd If//Open .\data\ For Output As 1 Dim w1 As String Dim w2 As String Dim w3 As String Dim w4 As String Dim w5 As String Dim w6 As String w1 = w2 = w3 = w4 = w5 = w6 = Write 1, w1 Write 1, w2 Write 1, w3 Write 1, w4 Write 1, w5 Write 1, w6 Close 1完成了添加教室，教師，課程，以及設置好了課表樣式后，要對課程進行跟教師，教師的關聯(lián)?？梢栽谙吕藛沃羞x擇課程，也可以添加刪除教師和教室。如下圖實現(xiàn)此功能的代碼如下://從文件中讀出已有課程的名稱，以下拉列表的形式顯示出來Private Sub selectedS_Click()Open .\data\lesson_name\ amp。 amp。 .dat For Input As 1Do Until EOF(1)Input 1, acIf ac Then (ac)LoopClose 1Open .\data\room_name\ amp。 amp。 For Input As 2Do Until EOF(2)Input 2, abIf ab Then (ab)LoopClose 2End Sub//將已關聯(lián)的教師姓名顯示出來Private Sub Command1_Click()If Empty Then = //將關聯(lián)數(shù)據(jù)存入文件中Private Sub selectedS_Click()Open .\data\lesson_name\ amp。 amp。 .dat For Input As 1Do Until EOF(1)Input 1, acIf ac Then (ac)LoopClose 1Open .\data\room_name\ amp。 amp。 For Input As 2Do Until EOF(2)Input 2, abIf ab Then (ab)LoopClose 2End Sub對老師與他所要教的班級進行關聯(lián)，如下圖部分代碼如下：Private Sub Form_Load()//設置主界面為可用狀態(tài) = True//打開存儲班級的dat文件Open .\data\ For Input As 1 Do Until EOF(1) Input 1, addc_one If addc_one Then (addc_one) LoopClose 1//打開存儲教師的dat文件Open .\data\room_name\ amp。 amp。 For Input As 2Dim RN As StringDim roomtype(99) As IntegerDim roomname(99) As Stringroomcount = 0//教師與之關聯(lián)的班級的信息進行保存Private Sub save_Click() Open .\data\teacher_name\ amp。 amp。 class amp。 .dat For Output As 1 Dim TeacherClassCount As String For h = 0 To 47 TeacherClassCount = (h).Text Write 1, TeacherClassCount Next h Close 1 Open .\data\teacher_name\ amp。 amp。 xueshi amp。 .dat For Output As 1 Dim TeacherXueshi As String For h = 0 To 11 TeacherXueshi = Text_xueshi(h).Text Write 1, TeacherXueshi Next h Close 1 End Sub當進行完教師與班級的關聯(lián)之后，就可以選擇菜單排列下拉菜單排列此教師選項。排列可以將該教師加入課表中去。下一步就可以進行生成課表。點擊主界面的查詢菜單，再下拉菜單中選擇所有課表，可以看到課表，課表左側的有3個選項，班級，教師教室。選中其中一選項后，在具體選擇一班級或者教室后者教師后，可以看到此班級，教師，或者教室的具體課表。如下3張圖，分別以班級，教室，教師排列的課表。以班級進行排列的課表以教師進行排列的課表以教室進行排列的課表當選擇班級時，顯示對應的課表的代碼如下：If = 班級 ThenDim i As IntegerDim k As IntegerDim o As Integero = 0k = 0Open .\kcb_done\class_kcb\ amp。 amp。 .dat For Input As 1 //從文件讀出現(xiàn)有班級Dim class_lesson As StringDo Until EOF(1) Input 1, class_lesson kkk(k) = class_lesson k = k + 1 LoopClose 1//用循環(huán)實現(xiàn)課表排列 For k = (heng + 2 + 2) To (((shu) * 3)) * (heng + 2) + 2 Step (heng + 2) * 2 + (heng 1) + 3 For i = k To k + (heng 1) (i) = kkk(o) o = o + 1 Next i Next kk = 0o = 0Open .\kcb_done\class_kcb\ amp。 amp。 For Input As 1 Dim class_teacher As String Do Until EOF(1) Input 1, class_teacher kkk(k) = class_teacher k = k + 1 LoopClose 1 For k = (2 * (heng + 2) + 2) To (((shu) * 3 + 1)) * (heng + 2) + 2 Step (heng + 2) * 2 + (heng 1) + 3 For i = k To k + (heng 1) (i) = kkk(o) o = o + 1 Next i Next kk = 0o = 0Open .\kcb_done\class_kcb\ amp。 amp。 For Input As 1 Dim class_room As String Do Until EOF(1) Input 1, class_room kkk(k) = class_room k = k + 1 LoopClose 1 For k = (3 * (heng + 2) + 2) To (((shu) * 3 + 2)) * (heng + 2) + 2 Step (heng + 2) * 2 + (heng 1) + 3 For i = k To k + (heng 1) (i) = kkk(o) o = o + 1 Next i Next kEnd If//當選擇不同時，清除之前選項并顯示當前選項Private Sub SSTab1_Click(PreviousTab As Integer)If = 班級 ThenOpen .\data\ For Input As 1Dim Read As StringDo Until EOF(1)Input 1, ReadIf Read Then (Read)LoopClose 1 fg1_init_classEnd IfIf = 教師 ThenOpen .\data\ For Input As 3Do Until EOF(3)Input 3, ReadIf Read Then (Read)LoopClose 3fg1_init_teacherEnd IfIf = 教室 ThenOpen .\data\ For Input As 3Do Until EOF(3)Input 3, ReadIf Read Then (Read)LoopClose 3fg1_init_roomEnd IfEnd Sub第五章 開發(fā)總結經過1個多月的學習和實踐，基本上完成了排課系統(tǒng)的整體設計和開發(fā)，并具備一定的使用價值。但是由于時間、技術等各方面因素，本系統(tǒng)仍不完善，有很多問題需要解決。4） 系統(tǒng)總體規(guī)劃欠缺：系統(tǒng)在開發(fā)過程中就感到總體規(guī)劃存在一定問題，如操作安排的不合理，可能導致用戶不知道怎么使用該系統(tǒng)。5） 系統(tǒng)界面美觀欠缺：界面單調，整體布局不太合理，這個問題時由于開發(fā)過程中著重關注技術的原因，導致界面不象商業(yè)軟件一樣美觀。6） 該系統(tǒng)功能還不夠完善，排課功能使用操作比較麻煩。該系統(tǒng)的不盡如人意的地方和功能上的缺陷，這些我都會進一步的改善。