【文章內(nèi)容簡(jiǎn)介】 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í) 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)有班級(jí)Dim class_lesson As StringDo Until EOF(1) Input 1, class_lesson kkk(k) = class_lesson k = k + 1 LoopClose 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 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//當(dāng)選擇不同時(shí)，清除之前選項(xiàng)并顯示當(dāng)前選項(xiàng)Private Sub SSTab1_Click(PreviousTab As Integer)If = 班級(jí) 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ā)總結(jié)經(jīng)過1個(gè)多月的學(xué)習(xí)和實(shí)踐，基本上完成了排課系統(tǒng)的整體設(shè)計(jì)和開發(fā)，并具備一定的使用價(jià)值。但是由于時(shí)間、技術(shù)等各方面因素，本系統(tǒng)仍不完善，有很多問題需要解決。1） 系統(tǒng)總體規(guī)劃欠缺：系統(tǒng)在開發(fā)過程中就感到總體規(guī)劃存在一定問題，如操作安排的不合理，可能導(dǎo)致用戶不知道怎么使用該系統(tǒng)。2） 系統(tǒng)界面美觀欠缺：界面單調(diào)，整體布局不太合理，這個(gè)問題時(shí)由于開發(fā)過程中著重關(guān)注技術(shù)的原因，導(dǎo)致界面不象商業(yè)軟件一樣美觀。3） 該系統(tǒng)功能還不夠完善，排課功能使用操作比較麻煩。該系統(tǒng)的不盡如人意的地方和功能上的缺陷，這些我都會(huì)進(jìn)一步的改善。參考文獻(xiàn)：[1] 漢清計(jì)算機(jī)工作室,《 Visual Basic 》,機(jī)械工業(yè)出版社 [2] 何旭洪,《Visual Basic 數(shù)據(jù)庫(kù)開發(fā)實(shí)例導(dǎo)航》,人民郵電出版社 2002[3] 孫健鵬,《VB數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析》,機(jī)械工業(yè)出版社[4] 王漢新,《Visual Basic程序設(shè)計(jì)》,科學(xué)出版社 2002[5] 陳惟斌,《Visual Basic 》,清華大學(xué)出版社 智能排課管理系統(tǒng)目 錄目 錄 1摘 要 1Abstract 2第一章 前言 3第二章 關(guān)于Visual Basic 3 Visual Basic的歷史 3 Visual Basic常用術(shù)語(yǔ)解釋 4 Visual Basic的特點(diǎn) 4第三章 Visual Basic技術(shù) 5 Basic常用函數(shù)介紹 5 6第四章 使用Visual Basic開發(fā)排課系統(tǒng) 7 7 8 8 8 9 13 17第五章 開發(fā)總結(jié) 20參考文獻(xiàn)： 21摘 要隨著現(xiàn)代計(jì)算機(jī)科學(xué)的發(fā)展，計(jì)算機(jī)信息系統(tǒng)越來越受到重視，在學(xué)校管理中的許多工作都由計(jì)算機(jī)完成。由于對(duì)課程的排列時(shí)一項(xiàng)繁瑣的工作，所以它已經(jīng)逐漸改為由計(jì)算機(jī)完成。本文就是講解基于Visual Basic的排課系統(tǒng)。首先介紹開發(fā)工具Visual Basic，接著介紹了Visual Basic的常用函數(shù)和怎樣編寫高質(zhì)量的Visual Basic，最后詳細(xì)講解了用Visual Basic開發(fā)排課系統(tǒng)，這一部分主要講解系統(tǒng)功能的實(shí)現(xiàn)，在最后做了開發(fā)總結(jié)。關(guān)鍵詞：排課系統(tǒng)，Visual BasicAbstractWith the development of modern puter science, puter information systems take more attention, in school many administration works worked by the puter. Because curriculum arrangement time is a tedious work, therefore it already gradually changed by the puter pletes. This article is the explanation based on the Visual Basic Arrangement curriculum system. First introduced development kit Visual Basic, then introduced how to use the Visual Basic function and how to pile high grade Visual Basic, finally in detail explained with Visual the Basic development the arrangement curriculum system, this part of main explanations system function realization, finally has been making the development summary.Keywords: Arrangement curriculum system, Visual Basic第一章 前言學(xué)校的課程安排工作是每一個(gè)學(xué)校必須完成的工作,它是一項(xiàng)繁瑣的工作，涉及到老師，教師，時(shí)間，班級(jí)的安排工作，以前都由人工來完成，隨著計(jì)算機(jī)科學(xué)技術(shù)的飛速發(fā)展，計(jì)算機(jī)的應(yīng)用在全球范圍內(nèi)日益普及，安排課程已經(jīng)由人工管轉(zhuǎn)變?yōu)樽詣?dòng)化，機(jī)器化。由計(jì)算機(jī)進(jìn)行排課的方式于傳統(tǒng)的方式相比較，優(yōu)勢(shì)是顯而易見的，首先，可以省去大量人工，加速現(xiàn)代化的進(jìn)程；其次，避免了人工排課出錯(cuò)，使排課過程可以輕松進(jìn)行。第三，可以充分發(fā)揮計(jì)算機(jī)在信息處理方面的優(yōu)勢(shì)，可以讓繁瑣的工作由計(jì)算機(jī)處理。因此，開發(fā)一個(gè)排課系統(tǒng)是很有必要的。本文意在說明用微軟的Visual Basic和Access數(shù)據(jù)庫(kù)技術(shù)如何進(jìn)行排課系統(tǒng)的開發(fā)。第二章 關(guān)于Visual Basic Visual Basic的歷史Visual Basic是由BASIC演化而來的，BASIC是Beginner39。s Allpurpose symbolic instruction Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，是國(guó)際上廣泛使用的一種計(jì)算機(jī)高級(jí)語(yǔ)言。BASIC簡(jiǎn)單、易學(xué)，目前仍是計(jì)算機(jī)入門的主要學(xué)習(xí)語(yǔ)言之一。 BASIC語(yǔ)言的問世及發(fā)展到Visual Basic經(jīng)歷了以下四個(gè)階段：　　第一階段：（1964年～70年代初） 1964年BASIC語(yǔ)言問世。 　　第二階段：（1975年～80年代中） 微機(jī)上固化的BASIC　　第三階段：（80年代中～90年代初） 結(jié)構(gòu)化BASIC語(yǔ)言?！　〉谒碾A段：（1991年以來） Visual BASIC 　　自從1991年，微軟推出了Visual 。這在當(dāng)時(shí)引起了很大的轟動(dòng)。許多專家把VB的出現(xiàn)當(dāng)作是軟件開發(fā)史上的一個(gè)具有劃時(shí)代意義的事件。其實(shí)，以我們現(xiàn)在的目光來看，VB10的功能實(shí)在是太弱了。但在當(dāng)時(shí)，它是第一個(gè)“可視”的編程軟件。這使得程序員欣喜之極，都嘗試在VB的平臺(tái)上進(jìn)行軟件創(chuàng)作。微軟也不失時(shí)機(jī)地在四年內(nèi)接連推出VB20，VB30，40，三個(gè)版本。并且從VB3開始，微軟將ACCESS的數(shù)據(jù)庫(kù)驅(qū)動(dòng)集成到了VB中，這使得VB的數(shù)據(jù)庫(kù)編程能力大大提高。從VB4開始，VB也引入了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。VB功能強(qiáng)大，學(xué)習(xí)簡(jiǎn)單。而且，VB還引入了“控件：的概念，使得大量已經(jīng)編好的VB程序可以被我們直接拿來使用，如今，也就是此教師評(píng)測(cè)系統(tǒng)開發(fā)使用的版本?！　⊥ㄟ^幾年的發(fā)展，它已成為一種真正的專業(yè)化的開發(fā)語(yǔ)言和環(huán)境。用戶認(rèn)為可用Visual Basic快速創(chuàng)建Windows程序，在現(xiàn)在還可以編寫企業(yè)水平的客戶／服務(wù)器程序及強(qiáng)大的數(shù)據(jù)庫(kù)應(yīng)用程序，Visual Basic新版中還有更多可用新功能。 Visual Basic常用術(shù)語(yǔ)解釋在以下討論Visual Basic時(shí)，經(jīng)?？梢月牭竭@些術(shù)語(yǔ)，因此首先對(duì)這些術(shù)語(yǔ)進(jìn)行理解，以下是Visual Basic中最常用到的幾個(gè)術(shù)語(yǔ)：　　控件—提供程序可見界面的可重用對(duì)象?？丶氖纠形谋究?、標(biāo)簽和命令按鈕?！　∈录捎脩艋虿僮飨到y(tǒng)引發(fā)的動(dòng)作。事件的示例有擊鍵、單擊鼠標(biāo)、一段時(shí)間的限制，或從端口接收數(shù)據(jù)?！　》椒ā度朐趯?duì)象定義中的程序代碼，它定義對(duì)象怎樣處理信息并響應(yīng)某事件。例如，數(shù)據(jù)庫(kù)對(duì)象有打開紀(jì)錄集并從一個(gè)記錄移動(dòng)到另一個(gè)記錄的方法。 　　對(duì)象—程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識(shí)別它可以響應(yīng)的事件的方法。