【正文】 k() If Empty Then = //將關(guān)聯(lián)數(shù)據(jù)存入文件中 Private Sub selectedS_Click() Open .\data\lesson_name\ 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。 For Input As 2 Do Until EOF(2) Input 2, ab If ab Then (ab) Loop Close 2 End Sub 對老師與他所要教的班級進(jìn)行關(guān)聯(lián)，如下圖 部分代碼如下： Private Sub Form_Load() //設(shè)置主界面為可用狀態(tài) = True //打開存儲班級的 dat 文件 Open .\data\ For Input As 1 Do Until EOF(1) Input 1, addc_one If addc_one Then (addc_one) Loop Close 1 //打開存儲教師的 dat 文件 Open .\data\room_name\ 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ìn)行保存 Private Sub save_Click() Open .\data\teacher_name\ amp。 class amp。 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)行完教師與班級的關(guān)聯(lián)之后，就可以選擇菜單排列下拉菜單排列此教師選項(xiàng)。下一步就可以進(jìn)行生成課表。選中其中一選項(xiàng)后，在具體選擇一班級或者教室后者教師后，可以看到此班級，教師，或者教室的具體課表。 以班級進(jìn)行排列的課表 以教師進(jìn)行排列的課表 以教室進(jìn)行排列的課表 當(dāng)選擇班級時，顯示對應(yīng)的課表的代 碼如下： If = 班級 Then Dim i As Integer Dim k As Integer Dim o As Integer o = 0 k = 0 Open .\kcb_done\class_kcb\ amp。 .dat For Input As 1 //從文件讀出現(xiàn)有班級 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。 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。 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)選擇不同時，清除之前選項(xiàng)并顯示當(dāng)前選項(xiàng) Private Sub SSTab1_Click(PreviousTab As Integer) If = 班級 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)過 1 個多月的學(xué)習(xí)和實(shí)踐，基本上完成了排課系統(tǒng)的整體設(shè)計(jì)和開發(fā)，并具備一定的使用價值。 1） 系統(tǒng)總體規(guī)劃欠缺：系統(tǒng)在開發(fā)過程中就感到總體規(guī) 劃存在一定問題，如操作安排的不合理，可能導(dǎo)致用戶不知道怎么使用該系統(tǒng)。 3） 該系統(tǒng)功能還不夠完善，排課功能使用操作比較麻煩。 參考文獻(xiàn)： [1] 漢清計(jì)算機(jī)工作室 ,《 Visual Basic 開發(fā)實(shí)例 》 ,機(jī)械工業(yè)出版社 [2] 何旭洪 ,《 Visual Basic 數(shù)據(jù)庫開發(fā)實(shí)例導(dǎo)航》 ,人民郵電出版社 2021 [3] 孫健鵬 ,《 VB數(shù)據(jù)庫開發(fā)實(shí)例解析》 ,機(jī)械工業(yè)出版社 [4] 王漢新 ,《 Visual Basic 程序設(shè)計(jì)》 ,科學(xué)出版社 2021 [5] 陳惟斌 ,《 Visual Basic 開發(fā)指南》 ,清華大學(xué)出版社 智能排課管理系統(tǒng) 目 錄 目 錄 .............................................................................................................................. 1 摘 要 .............................................................................................................................. 2 Abstract .......................................................................................................................... 3 第一章 前言 .................................................................................................................. 4 第二章 關(guān)于 Visual Basic............................................................................................. 4 Visual Basic 的歷史 .......................................................................................... 4 Visual Basic 常用術(shù)語解釋 .............................................................................. 4 Visual Basic 的特點(diǎn) .......................................................................................... 5 第三章 Visual Basic 技術(shù) ............................................................................................. 5 Basic 常用函數(shù)介紹 ............................................................................... 5 編寫高質(zhì)量的 vb.............................................................................................. 7 第四章 使用 Visual Basic 開發(fā)排課系統(tǒng) .................................................................... 8 開發(fā)使用的過程模型 ....................................................................................... 8 系統(tǒng)的基本組成及使用 ................................................................................... 8 系統(tǒng)功能的實(shí)現(xiàn) ............................................................................................... 9 儲存數(shù)據(jù)形式 ......................................................................................... 9 添加刪除數(shù)據(jù) ....................................................................................... 10 課表設(shè)置功能 ....................................................................................... 13 生成課表 .............