【文章內(nèi)容簡(jiǎn)介】 () = Open .\kcb_done\class_kcb\ amp。 amp。 .dat For Output As 2 For h = 0 To CInt() 1 Write 2, Next h Close 2 Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2 For h = 0 To CInt() 1 Write 2, Next h Close 2 Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2 For h = 0 To CInt() 1 Write 2, Next h Close 2 Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2 Close 2 Open .\kcb_done\class_kcb\ amp。 amp。 For Output As 2 Close 2 SendKeys {home}+{end} Else MsgBox 請(qǐng)輸入一個(gè)班級(jí)名稱 , , 錯(cuò)誤 End If End Sub Private Sub ClassN_click() = 0 Dim 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é) //從文本文件中取出課程時(shí)間 (ee) Next i End Sub 課表設(shè)置功能 對(duì)課表樣式進(jìn)行設(shè)置，從下拉列表中選擇所需要的課表節(jié)數(shù)或者天數(shù)，如下圖 代碼如下： //判斷設(shè)置的天數(shù)或者節(jié)數(shù)是否在預(yù)定的范圍之內(nèi) 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 Sub End If //將課表樣式的相關(guān)數(shù)據(jù)保存在文件 中 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 完成了添加教室，教師，課程，以及設(shè)置好了課表樣式后，要對(duì)課程進(jìn)行跟教師，教師的關(guān)聯(lián)?？梢栽谙吕藛沃羞x擇課程，也可以添加刪除教師和教室。如下圖 實(shí)現(xiàn)此功能的代碼如下 : //從文件中讀出已有課程的名稱， 以下拉列表的形式顯示出來(lái) Private Sub selectedS_Click() Open .\data\lesson_name\ amp。 amp。 .dat For Input As 1 Do Until EOF(1) Input 1, ac If ac Then (ac) Loop Close 1 Open .\data\room_name\ amp。 amp。 For Input As 2 Do Until EOF(2) Input 2, ab If ab Then (ab) Loop Close 2 End Sub //將已關(guān)聯(lián)的教師姓名顯示出來(lái) Private Sub Command1_Click() If Empty Then = //將關(guān)聯(lián)數(shù)據(jù)存入文件中 Private Sub selectedS_Click() Open .\data\lesson_name\ amp。 amp。 .dat For Input As 1 Do Until EOF(1) Input 1, ac If ac Then (ac) Loop Close 1 Open .\data\room_name\ amp。 amp。 For Input As 2 Do Until EOF(2) Input 2, ab If ab Then (ab) Loop Close 2 End Sub 對(duì)老師與他所要教的班級(jí)進(jìn)行關(guān)聯(lián)，如下圖 部分代碼如下： Private Sub Form_Load() //設(shè)置主界面為可用狀態(tài) = True //打開存儲(chǔ)班級(jí)的 dat 文件 Open .\data\ For Input As 1 Do Until EOF(1) Input 1, addc_one If addc_one Then (addc_one) Loop Close 1 //打開存儲(chǔ)教師的 dat 文件 Open .\data\room_name\ amp。 amp。 For Input As 2 Dim RN As String Dim roomtype(99) As Integer Dim roomname(99) As String roomcount = 0 //教師與之關(guān)聯(lián)的班級(jí)的信息進(jì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 當(dāng)進(jìn)行完教師與班級(jí)的關(guān)聯(lián)之后，就可以選擇菜單排列下拉菜單排列此教師選項(xiàng)。 排列可以將該教師加入課表中去。下一步就可以進(jìn)行生成課表。 生成課表 點(diǎn)擊主界面的查詢菜單，再下拉菜單中選擇所有課表，可以看到課表，課表左側(cè)的有 3個(gè)選項(xiàng)，班級(jí)，教師教室。選中其中一選項(xiàng)后，在具體選擇一班級(jí)或者教室后者教師后，可以看到此班級(jí)，教師，或者教室的具體課表。如下 3 張圖，分別以班級(jí)，教室，教師排列的課表。 以班級(jí)進(jìn)行排列的課表 以教師進(jìn)行排列的課表 以教室進(jìn)行排列的課表 當(dāng)選擇班級(jí)時(shí)，顯示對(duì)應(yīng)的課表的代 碼如下： If = 班級(jí) Then Dim i As Integer Dim k As Integer Dim o As Integer o = 0 k = 0 Open .\kcb_done\class_kcb\ amp。 amp。 .dat For Input As 1 //從文件讀出現(xiàn)有班級(jí) Dim class_lesson As String Do Until EOF(1) Input 1, class_lesson kkk(k) = class_lesson k = k + 1 Loop Close 1 //用循環(huán)實(shí)現(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 k k = 0 o = 0 Open .\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 Loop Close 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 k k = 0 o = 0 Open .\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 Loop Close 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 k End If //當(dāng)選擇不同時(shí)，清除之前選項(xiàng)并顯示當(dāng)前選項(xiàng) Private Sub SSTab1_Click(PreviousTab As Integer) If = 班級(jí) Then Open .\data\ For Input As 1 Dim Read As String Do Until EOF(1) Input 1, Read If Read Then (Read) Loop Close 1 fg1_init_class End If If = 教師 Then Open .\data\ For Input As 3 Do Until EOF(3) Input 3, Read If Read Then (Read) Loop Close 3 fg1_init_teacher End If If = 教室 Then Open .\data\ For Input As 3 Do Until EOF(3) Input 3, Read If Read Then (Read) Loop Close 3 fg1_init_room End If End Sub 第五章 開發(fā)總結(jié) 經(jīng)過(guò) 1 個(gè)多月的學(xué)習(xí)和實(shí)踐，基本上完成了排課系統(tǒng)的整體設(shè)計(jì)和開