1、題 目 自動排課系統(tǒng)摘要：制定一個學(xué)校的排課計劃是一項非常耗時且相當(dāng)辛苦的工作，而且它還得由有學(xué)校排課工作經(jīng)驗或者這方面知識的人才能做好。在一所高校時一個課程表的制定是一個難題，因為在有關(guān)課程表的問題上有很多的限制條件得考慮，還有大量的數(shù)據(jù)空間被挖掘，即便你的輸入數(shù)據(jù)量并不是實際意義上的大批量。課程編排系統(tǒng)是一個學(xué)校不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以自動課程編排系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和

2、維護都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認(rèn)識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。本系統(tǒng)經(jīng)過測試，運行穩(wěn)定，可投入使用。關(guān)鍵字：排課管理，VB，數(shù)據(jù)庫Abstract：Formulates a school platoon class plan is an item consumes extremely when also the quite laborious work, moreover it also must by have the school row of class work experience or this

3、 aspect knowledge talented person can complete. When a university a class schedule formulation is a difficult problem, because has the very many limiting condition in the related class schedule question to result in the consideration, but also has the massive data space to excavate, even if your inp

4、ut data quantity is not in the practical significance mass.The curriculum arranges the system is a school essential part, Its content said regarding the school policy-maker and the superintendent all very important, Therefore the automatic curriculum arranges the system to be supposed to be able to

5、provide the sufficient information and the quick inquiry method for the user. But the people have since always used the traditional artificial way management document file, this management way has many shortcomings, For example: The efficiency low, the secrecy is bad, Moreover the time one is long,

6、Will produce the massive documents and the data, This regarding the search, the renewal and the maintenance has all brought many difficulties.Along with science and technology unceasing enhancement, The computer science is mature day after day, Its formidable function had profoundly known for the pe

7、ople, t entered the human society each domain and is playing the more and more vital role.This system after the test, the movement is stable, may put into the use.Key words: Curriculum management, VB, database目 錄摘 要2Abstract3第一章 緒論51.1本課題的研究意義51.2系統(tǒng)可行性分析6第二章 開發(fā)軟件介紹72.1系統(tǒng)的架構(gòu)72.2系統(tǒng)運行環(huán)境操作系統(tǒng)72.3系統(tǒng)開發(fā)環(huán)境72

8、.4開發(fā)工具82.4.1Visual Basic的簡介82.4.2 ACCESS簡介9第三章 需求分析11第四章 系統(tǒng)實現(xiàn)1341 本學(xué)期課程設(shè)置模塊設(shè)計1342教師入庫信息模塊設(shè)計1443 課程安排管理模塊設(shè)計164.4 課程查詢模塊設(shè)計19第五章 系統(tǒng)的問題與調(diào)試21總 結(jié)22致 謝23參考文獻24緒論11 本課題的研究意義數(shù)據(jù)庫是從60年代初發(fā)展起來的計算機技術(shù)。經(jīng)過四十來年的發(fā)展，數(shù)據(jù)庫技術(shù)己經(jīng)趨于成熟。數(shù)據(jù)庫在新的計算機環(huán)境中發(fā)生了很大的變化。就數(shù)據(jù)應(yīng)用而言呈現(xiàn)出多樣化的空間，如數(shù)字圖書館、電子出版物、電子商務(wù)、遠程教育系統(tǒng)等的出現(xiàn)，給數(shù)據(jù)庫技術(shù)提出了更多、更高的要求。自動課程編排系

9、統(tǒng)是一個學(xué)校不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以自動課程編排系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如：效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認(rèn)識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分,使用計算機對選課信息進行管理,有著手工管理所無法比擬的優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等

10、。這些優(yōu)點能夠極大地提高人事勞資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。在高等學(xué)校的教務(wù)管理工作中，課程表的編排是一項十分復(fù)雜、棘手的工作。在排課過程中，除了滿足大量的制約條件以外，還必須解決許多沖突與矛盾，例如：兩位教師不能同一時間在同一班級上課、一位教師不能在同一時間上兩門課等等。利用計算機輔助進行課表編排工作，既提高了排課工作的科學(xué)性，又可大大減輕管理人員的工作強度，提高工作效率，從而使學(xué)校教務(wù)管理現(xiàn)代化邁上了一個新臺階。我國不少高校都實行了學(xué)分制，它的核心是允許學(xué)生自由選課，即把學(xué)習(xí)的自主權(quán)交給學(xué)生。在這里，自動排課時的制約因素比較復(fù)雜，工作量也很大，而且往往需

11、要在較短的時間內(nèi)完成。運用計算機輔助選課，即能實時地對大量選課數(shù)據(jù)進行檢驗和統(tǒng)計，十分方便地輸出選課結(jié)果，同時也避免了人工處理時容易產(chǎn)生的錯誤。從系統(tǒng)開發(fā)的復(fù)雜程度來看，計算機輔助排課與選課是高校教務(wù)系統(tǒng)中的兩個關(guān)鍵子系統(tǒng)，目前不少教務(wù)系統(tǒng)尚未很好地解決排課與選課問題。本文主要對高校教務(wù)管理系統(tǒng)中計算機課表編排與選課子系統(tǒng)的基本功能、設(shè)計思想、需求分析以及實現(xiàn)技術(shù)進行探討。本設(shè)計的系統(tǒng)可以通過登陸界面對學(xué)生老師的功能權(quán)限進行分配，登陸后各自實施各自的功能。1.2系統(tǒng)可行性分析技術(shù)上可行：該系統(tǒng)所需硬件設(shè)備，市場上銷售且價格較低，甚至可以使用原有的設(shè)備，軟件上，操作系統(tǒng)采用Windows系列操作

12、系統(tǒng)，數(shù)據(jù)庫管理系統(tǒng)采用Visual Basic，這些軟件在MIS開發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟。因此在技術(shù)上是可行的。經(jīng)濟上可行：由于學(xué)校急需采用計算機來進行圖書館的管理，因此對開發(fā)圖書管理系統(tǒng)大力支持，開發(fā)經(jīng)費沒有問題。綜上所述，開發(fā)圖書管理系統(tǒng)在技術(shù)上、經(jīng)濟上、都是可行的。第二章 開發(fā)軟件介紹2.1系統(tǒng)的架構(gòu)本系統(tǒng)開發(fā)使用的系統(tǒng)只是普通的PC機，操作系統(tǒng)為Windows 2000 Professional版本。考慮到使用的數(shù)據(jù)量不大，數(shù)據(jù)庫的建立使用的是Office 2000 中的Microdoft Access。數(shù)據(jù)訪問方法為使用ADO(Active數(shù)據(jù)對象ActiveDataO

13、bjects)通過ODBC的方法同數(shù)據(jù)庫借口。使用這種方式訪問數(shù)據(jù)，可以使用任何一種ODBC數(shù)據(jù)源，即不止適合于SQL Server、 Oracle、 Access等數(shù)據(jù)庫應(yīng)用程序，也適合與Excel表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。2.2系統(tǒng)運行環(huán)境操作系統(tǒng)采用的是當(dāng)前流行的主流操作系統(tǒng)微軟公司的WindowsXP。2.3系統(tǒng)開發(fā)環(huán)境系統(tǒng)開發(fā)環(huán)境包括硬件平臺和軟件平臺兩種。硬件平臺是指開發(fā)與運行所需要的硬件環(huán)境，主要包括計算機機型及硬件配置。由于本系統(tǒng)是一個小型的MIS管理系統(tǒng)，因此對計算機硬件的要求不高，比較經(jīng)濟，只要配備有PII300處理器（或以上）、64M內(nèi)存（或以上）、20

14、G硬（或以上）的普通微機即可順利運行。軟件平臺是指系統(tǒng)開發(fā)與運行的軟件環(huán)境。本系統(tǒng)在開發(fā)時選用了穩(wěn)定性較強的Windows XP中文專業(yè)版和Visual Basic6.0作為開發(fā)語言，同時選用了Access數(shù)據(jù)庫，由于這些軟件產(chǎn)品都是Microsoft公司的產(chǎn)品，因此彼此之間的兼容性較好，開發(fā)出的應(yīng)用系統(tǒng)穩(wěn)定性較高。Visual Basic 6.0具有可視化的開發(fā)環(huán)境，可以快速完成系統(tǒng)的開發(fā)，內(nèi)部集成的數(shù)據(jù)庫訪問通道，使得可以輕松方便的對數(shù)據(jù)庫管理。數(shù)據(jù)庫采用MICROSOFT ACCESS，由于我們的系統(tǒng)要求，采用它完全可以適合我們的工作需求，并且它所支持的數(shù)據(jù)類型十分豐富，維護簡便，費用較

15、低，容易升級。2.4 開發(fā)工具在確定了操作系統(tǒng)后，就該選擇開發(fā)工具了。經(jīng)過了綜合的比較而且最重要的是本人在學(xué)校期間自己自學(xué)的就是Visual Basic。這不是一個數(shù)據(jù)庫管理系統(tǒng)軟件，所以我們必須得選一個合適的數(shù)據(jù)庫。考慮到我這個系統(tǒng)針對的用戶，已經(jīng)價格方面的考慮，完全可以使用Access來進行開發(fā)，而且我在使用Visual Basic的時候，操作數(shù)據(jù)庫方面使用的是微軟提供的數(shù)據(jù)訪問接口，先我們來了介紹一下Visual Basic以及微軟提供了哪些數(shù)據(jù)庫訪問方法，并且各自都有什么特點。2.4.1 Visual Basic的簡介首先，我們還從Visual Basic這個名字開始，來認(rèn)識這個軟件。

16、所謂“Visual”指的是開發(fā)圖形用戶界面 (GUI) 的方法。它不需編寫大量的代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對象添加到屏幕上的某一位置即可。如果已使用過諸如 Paint 之類的繪圖程序，則實際上已掌握了創(chuàng)建用戶界面的必要技巧。“Basic”指的是 BASIC (Beginners All-Purpose Symbolist Instruction Code) 語言，一種在計算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的編程語言。Visual Basic 在原有 BASIC 語言的基礎(chǔ)上進一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。專業(yè)人

17、員可以用 Visual Basic 實現(xiàn)其它任何 Windows 編程語言的功能，而初學(xué)者只要掌握幾個關(guān)鍵詞就可以建立實用的應(yīng)用程序。Visual Basic 不僅是 Visual Basic 編程語言。Visual Basic 編程系統(tǒng)和 VBA 都使用這一語言。Visual Basic Scripting Edition (VBScript) 是廣泛使用的腳本語言，它是 Visual Basic 語言的子集。這樣，在學(xué)習(xí) Visual Basic 中得到的經(jīng)驗可應(yīng)用到所有這些領(lǐng)域中。接著，我們再從Visual Basic的發(fā)展歷史來進一步地認(rèn)識一下它。Visual Basic的最初版本是V

18、isual Basic1.0，那時的Visual Basic只是簡單地以對象的屬性為中心來進行編程。到了Visual Basic2.0時，開始正式地采用面向?qū)ο蠹夹g(shù)，其有一個重要的新特性就是可擁有對象變量，并把Variant型變量作為缺省數(shù)據(jù)類型變量。沒過多久Visual Basic的下兩個版本Visual Basic3.0和Visual Basic4.0接踵而至，一種內(nèi)建的新的控件類型數(shù)據(jù)控件，能夠使創(chuàng)建一個與數(shù)據(jù)庫交互作用的應(yīng)用程序變得令人驚訝的容易。在微軟的其它應(yīng)用程序，如WORD字處理軟件、EXCEL電子報表軟件、ACCESS數(shù)據(jù)庫軟件中都做了改變，使得它們可以與Visual Basi

19、c一致工作。這種新技術(shù)被稱作為Visual Basic For Applications，它幫助實現(xiàn)了Visual Basic的最初設(shè)想。理論上，人們總是能夠通過某種叫做動態(tài)數(shù)據(jù)交換（DDE）的技術(shù)使視窗系統(tǒng)應(yīng)用程序彼此交互。但那樣既慢而且又麻煩。Visual Basic的完美之處在于它能使程序員獲得一塊數(shù)據(jù)如報表，并將它看作是Visual Basic的對象。其目的就是要使視窗系統(tǒng)下的每一件事情都支持同樣的易于使用的高級語言。Visual Basic5.0出現(xiàn)以后，在某些方面有了重大的突破。它給予了程序員長期期待的不用離開Visual Basic環(huán)境，就可以創(chuàng)建新的定制控件類型和創(chuàng)建其它項目類

20、型的能力。除了一般應(yīng)用程序外，程序員還能創(chuàng)建文檔DLLs、OLE服務(wù)器和ActiveX控件。當(dāng)Visual Basic逐漸復(fù)雜時，世界已經(jīng)在圍著它轉(zhuǎn)了。項目類型的增加不是用來迷惑程序員，而是提供靈活性的。視窗系統(tǒng)已經(jīng)成為一個特別豐富的環(huán)境，可使應(yīng)用程序彼此交流和共享數(shù)據(jù)。我們現(xiàn)在所使用的Visual Basic6.0被看著是Visual Basic的網(wǎng)絡(luò)版本。可以看出它投入了相當(dāng)一部分的精力去支持微軟日益在Internet和分布式（網(wǎng)絡(luò)）計算方面的重視程度。雖然它沒有象Visual Basic5.0所引起的那樣激動人心，但它還是在某些方面做了一些有用的改進。其最重要的一個改進就是增加了ADO數(shù)

21、據(jù)控件，它可以縮小本地和遠程數(shù)據(jù)控件之間的差別。換句話說，程序員在很大程度上可以與數(shù)據(jù)庫交互作用，而不用擔(dān)心網(wǎng)絡(luò)上由誰來提供服務(wù)。此外，Visual Basic在數(shù)據(jù)開發(fā)方面提供了十分強大的功能。有自帶的數(shù)據(jù)管理器（Data Manager）、數(shù)據(jù)控件（Data Control）及數(shù)據(jù)訪問對象(DAO)等一系列功能強大的工具來協(xié)助管理人員輕松地進行與數(shù)據(jù)庫的連接和管理。2.4.2 ACCESS簡介數(shù)據(jù)庫選用Microsoft公司的Access產(chǎn)品作為數(shù)據(jù)庫應(yīng)用程序。目前的Access 2000是Microsoft強大的桌面數(shù)據(jù)庫平臺的第六代產(chǎn)品，是3 2位Access的第三個版本。Access

22、有以下一些基本定義：（1）數(shù)據(jù)庫是一個包含各種Access “對象”(表、查詢、窗體、報表、宏和模塊)的文件，Access中所有工作都是建立在此基礎(chǔ)之上的。（2）表是存放數(shù)據(jù)的容器，被設(shè)計成行和列的格式，就像電子表中的那樣。每一列叫做一個“字段”，包含特定類型的信息，如姓名或?qū)W歷。每一行稱為一個“記錄”，包含與單個實體有關(guān)的所有信息，如某個員工的姓名、性別、所在部門、學(xué)歷等。對于像Access這樣的關(guān)系數(shù)據(jù)庫管理程序，一個數(shù)據(jù)庫通常包含幾個存放相關(guān)數(shù)據(jù)的不同表。（3）查詢是一個Access對象，它詢問數(shù)據(jù)庫中有關(guān)數(shù)據(jù)的問題。根據(jù)設(shè)計方法的不同，查詢能夠在數(shù)據(jù)庫中檢索并組合來自不同表的數(shù)據(jù)。例如

23、，可以設(shè)計一個查詢來告知在公司中工作超過1年的職員有多少。查詢還可以對一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。（4）窗體是一個窗口，它提供一種很方便的途徑來查看數(shù)據(jù)庫中已有記錄或向數(shù)據(jù)庫中增添新記錄。在Access中，可以創(chuàng)建一個窗體，用來同時查閱單個表或多個表中的數(shù)據(jù)，還可以打印和顯示窗體。（5）報表是一個Access對象，設(shè)計來顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。（6）頁是一種特殊類型的窗體，它使用戶能夠利用Web瀏覽器查看和編輯Access的表。（7）宏用來保存Access中的一系列操作。可自動執(zhí)行一些日常的任務(wù)，以便簡化在Access中的工作。（8）模塊是用

24、Visual Basic for Applications(VBA) 編寫的過程，VBA是Access的基礎(chǔ)程序設(shè)計語言。利用VBA可以編寫程序代碼來完成Access宏所不能完成的特定任務(wù)。 第三章 需求分析自動課程編排系統(tǒng)需要滿足來自三方面的需求，這三個方面分別是學(xué)生、教師和管理員。學(xué)生的需求是查詢院系的課程情況及學(xué)生信息的修改；教師對選課系統(tǒng)自動排課情況進行操作，同時形成自動排課查看確認(rèn)；選課管理員的功能最為復(fù)雜，包括對學(xué)生、教師、選課進行管理和統(tǒng)計，及系統(tǒng)狀態(tài)的查看、維護并生成選課報表。學(xué)生可以直接查看選課情況，學(xué)生可以根據(jù)本人學(xué)號和密碼登錄系統(tǒng)，還可以進行本人信息的查詢和維護部分。一般

25、情況下，學(xué)生只應(yīng)該查詢和維護本人的個人信息，若查詢和維護其他學(xué)生的選課信息，就要知道其他學(xué)生的學(xué)號和密碼。這些是很難得到的，特別是密碼，所以不但滿足了學(xué)生的要求，還保護了學(xué)生的個人隱私。學(xué)校管理人員有修改自動課程編排系統(tǒng)的權(quán)限，所以需對管理人員登陸本模塊進行更多的考慮。在此系統(tǒng)中，學(xué)校管理人員可以記錄學(xué)生登陸日志，并打印生成相應(yīng)的報表給用戶查看和確認(rèn)院系管理人員功能的信息量大，數(shù)據(jù)安全性和保密性要求最高。本功能實現(xiàn)對排課信息、教師信息、總體情況信息的查詢和統(tǒng)計、管理人員信息查看及維護。設(shè)計不同用戶的操作權(quán)限和登陸方法，對所有用戶開放的課程查詢和個人部分信息維護，查看個人情況信息，維護個人密碼。

26、根據(jù)排課情況對數(shù)據(jù)庫進行操作，并生成報表根據(jù)選課情況，維護管理員信息，維護教師信息，維護學(xué)生信息處理信息的完整性。本系統(tǒng)主要實現(xiàn)教師信息管理、學(xué)生信息管理、課程信息管理和系信息管理，其中教師信息管理有教師姓名、教師工號、教師職稱、教師所屬系；學(xué)生信息管理有學(xué)生姓名、學(xué)生學(xué)號和學(xué)生所在系；課程信息管理有課程名稱、學(xué)分、上課地點、已選人數(shù)、課程性質(zhì)、開課系、課程人數(shù)；系信息管理有ID和Password。（1）學(xué)生信息模塊完成學(xué)生的登陸，然后根據(jù)各位同學(xué)所在的系不同，調(diào)出相應(yīng)的課程模塊。其中學(xué)生登錄模塊的功能是驗證登錄人員確實是本院的學(xué)生，學(xué)生啟動本系統(tǒng)后，系統(tǒng)提示輸入學(xué)生學(xué)號碼和密碼，驗證后進入主

27、控操作界面。（2）教師信息模塊完成教師的登陸,然后根據(jù)各位教師所在的系不同,教師所教的課程不同,調(diào)出要排課的課程。其中教師登陸模塊的功能是驗證登錄人員確實是本院的教師，教師啟動本系統(tǒng)后，系統(tǒng)提示輸入教師工號和密碼，驗證后進入主控操作界面。（3）課程信息管理包括必修課程和選修課程,學(xué)生必需先登陸才能進行對課程查詢。管理員可以通過超級用戶身份登錄,對系統(tǒng)進行全面的管理,對新用戶的添加,刪除,對信息進行管理。管理員可以對老師及同學(xué)的帳戶進行管理，老師、學(xué)生不同身份的用戶進入不同的界面，進行不同的操作。教師可以發(fā)布自己本學(xué)期所要教的課程。同學(xué)可以通過查詢本學(xué)期所開設(shè)課程進行了解課程安排。系統(tǒng)結(jié)構(gòu)圖如下

28、所示：排課管理系統(tǒng)教職員入庫信息排課管理教職員帶課查詢本學(xué)期課程設(shè)置第四章 系統(tǒng)實現(xiàn)41 本學(xué)期課程設(shè)置模塊設(shè)計 本系統(tǒng)只提供最多十門的課程設(shè)置，用戶可以根據(jù)自己的實際需要來編排里面的課程內(nèi)容，對于小學(xué)來說，十門應(yīng)該足夠了。 本模塊界面如下所示：主要代碼如下所示：Private Sub cn_Click(Index As Integer)On Error GoTo ex:Dim lcnt As IntegerDim strTxt As StringSelect Case IndexCase 0: CanSave (True) Case 1: con.Execute (delete * from

29、 subject) For lcnt = 0 To 9 strTxt = Trim$(LTrim$(Txt(lcnt).Text) If Len(strTxt) 0 Then rs.AddNew rs!csjname = strTxt rs.Update End If Next lcnt CanSave (False)Case 2: For lcnt = 0 To 9 Txt(lcnt) = str(lcnt) Next lcnt CanSave (False) End Select Exit Subex:MsgBox database error, vbOKOnly + vbExclamat

30、ion, errorEnd Sub4.2 教師入庫信息模塊設(shè)計 本模塊主要對教師信息的錄入，以便清楚知道教師的情況，所以教師管理這個模塊是比不可少的。光對教師的資料了解便清楚知道，某個老師是能勝任的課程。本模塊主要界面如下所示：主要代碼如下所示：Private Sub Command2_Click(Index As Integer)On Error GoTo errDealIf Index = 0 Or Index = 2 Then CanSave (True)Else CanSave (False)End IfSelect Case IndexCase 0: rs.AddNew Call t

31、oNull Case 1: j = MsgBox(你確定要刪除本記錄嗎？, vbYesNo + vbQuestion, 刪除) If j = vbYes Then rs.Delete Call toNull End If Case 2:rs.Deleters.AddNewCase 3: If Len(LTrim$(RTrim$(Text1(0).Text) 0 Then rs.AddNew For i = 0 To 2 If Len(LTrim$(RTrim$(Text1(i).Text) 0 Then rs.Fields(i) = Text1(i).Text End If Next i rs

32、.Update Else MsgBox 姓名不得為空, vbOKOnly + vbExclamation, Error End IfCase 4: For i = 0 To 2 Text1(i).Text = strBak(i) Next i Call Command2_Click(3) End SelectExit SuberrDeal:MsgBox database Error, vbExclamation + vbOKOnly, errorokEnd:End Sub43 課程安排管理模塊設(shè)計 本模塊可以安排一個星期五天的課程，教師可以根據(jù)實際情況制定課程表，并可安排任課老師的安排，課程的

33、安排方便課程查詢時需要。以便及時發(fā)現(xiàn)錯誤能及時修改。下面的年級班數(shù)，可以根據(jù)實際情況而定。 本模塊界面如下圖所示：主要代碼如下所示：Private Sub cb_Click(Index As Integer)Me.MousePointer = 11On Error GoTo errDealSelect Case IndexCase 0: ClassCode = Trim(Combo1(0).Text) & . & Trim(Combo1(1).Text) If Len(Trim(Combo1(0).Text) 0 And Len(ClassCode) 1 Then Call displayIn

34、fo cb(1).Enabled = True End IfCase 1: cb_Click (0) EnableSave (True) cb(1).Enabled = False Case 2: If TrChanged Then strSql = delete * from trclass where cclasscode= & ClassCode & conn.Execute strSql Dim strTrName As String For i = 0 To sjCnt - 1 strTrName = Trim(Combo2(i).Text) If Len(strTrName) 0

35、Then strSql = insert into trclass values( & ClassCode & , + + Trim(Label2(i).Caption) + , + + Trim(Combo2(i).Text) + ) me.caption = strSql conn.Execute strSql End If Next i TrChanged = False rsTrAry.Requery cb(1).Enabled = False End If If ClassChanged Then conn.Execute delete * from classarray where

36、 cclasscode= & ClassCode & Dim X, Y As Integer For i = 0 To 49 Y = i Mod 5 + 1 X = Int(i / 5) + 1 If Len(Trim(Combo3(i).Text) 0 Then strSql = insert into classarray values( & ClassCode & , & Y & , & X & , & Trim(Combo3(i).Text) & ) me.caption = strSql conn.Execute strSql End If Next i ClassChanged =

37、 False rsClassAry.Requery End If EnableSave (False) Case 3: For i = 0 To sjCnt - 1 Combo2(i).Text = Combo2(i).Tag Next i For i = 0 To 49 Combo3(i).Text = Combo3(i).Tag Next i EnableSave (False) cb(1).Enabled = False End Select GoTo okerrDeal:MsgBox Error Unknownok:Me.MousePointer = 0End Sub4.4 課程查詢模

38、塊設(shè)計本模塊主要是方便學(xué)生及教師能很快的查詢，什么時間該上什么課，由哪個老師上等信息。本模塊界面圖如下所示：主要代碼如下所示：Private Sub Command1_Click()On Error GoTo bnEndMe.MousePointer = 11Dim sSql As StringDim dgUse As DataGetSelect Case IndexCase 0: Call ClearCombo strName = LTrim$(RTrim$(Combo1.Text) If Len(strName) 0 Then sSql = strSql & & strName & Set

39、 rs = conn.Execute(sSql) If Not rs.EOF Then While Not rs.EOF dgUse.class = rs.Fields(0) dgUse.Sjname = rs.Fields(1) dgUse.Tw = rs.Fields(2) dgUse.Tn = rs.Fields(3) idx = (dgUse.Tn - 1) * 5 + dgUse.Tw - 1 Combo3(idx).Visible = True Combo3(idx).AddItem (dgUse.class & 班) Combo3(idx).AddItem (dgUse.Sjna

40、me) Combo3(idx).Text = Combo3(idx).List(value) rs.MoveNext Wend Else MsgBox 沒有得到相關(guān)數(shù)據(jù)，請檢查, vbOKOnly + vbInformation, 數(shù)據(jù)捕捉 End If Dim lcnt As Integer For lcnt = 0 To 49 If Combo3(lcnt).ListCount 2 Then Combo3(lcnt).BackColor = RGB(200, 255, 255) Combo3(lcnt).AddItem (注意有重課) End If Next lcnt Else MsgBo

41、x 請輸入或選擇一教職員姓名, vbInformation + vbOKOnly, 查詢輸入 End If End SelectbnEnd:Me.MousePointer = 0 End Sub第五章 系統(tǒng)的問題與調(diào)試在系統(tǒng)的編寫過程中，通常會出現(xiàn)大量的這樣或是那樣的錯誤，處理錯誤能力的大小也是評價一個程序員優(yōu)秀與否的標(biāo)準(zhǔn)。程序中的錯誤大致分三種：語法錯誤、邏輯錯誤、意外錯誤。這里面語法錯誤是最常見的，占了錯誤中的大部分，但也是最容易解決的，通常在程序的編譯時，多半可以發(fā)現(xiàn)這些錯誤并將其解決，邏輯錯誤的解決也不難，只要真正了解程序的流程及內(nèi)部的邏輯關(guān)系，也會迎刃而解。最難處理的是意外錯誤，通常

42、發(fā)生此類錯誤時，還要查找很多與之相關(guān)的程序部分，真正了解錯誤的本質(zhì)，還需要有較全面和扎實的專業(yè)知識。在這次的畢業(yè)設(shè)計過程中，我也遇到了很多問題。例如，當(dāng)在進行查詢時，如果兩條查詢使用的是同一個Recordset 對象。對于一個VB 的初學(xué)者來說，記錄集Recordset 往往使用后不能養(yǎng)成隨手關(guān)閉的習(xí)慣。這樣就會造成上述的情況。在程序設(shè)計的初期，這樣類似的錯誤一直困擾者我。當(dāng)兩個過程使用的是同一個變量的時候，在新打開過程的時候應(yīng)該先關(guān)閉掉原先的內(nèi)容的Recordset。避免這種錯誤的方法就是用Close 屬性關(guān)閉掉先前使用的Recordset 對象，然后再對第二個對象進行操作。從這次畢業(yè)設(shè)計的

43、過程中我學(xué)到了很多有用的東西，上面這些只是在查錯方面的一些技巧。嚴(yán)謹(jǐn)、負責(zé)、求實、進取的精神則是此次畢業(yè)設(shè)計給我的最大啟示。任何一個微小的Bug 都可能導(dǎo)致程序的崩潰。畢業(yè)設(shè)計將對我以后學(xué)習(xí)和工作產(chǎn)生更深遠的影響。總 結(jié)經(jīng)過二個多月的設(shè)計和開發(fā)，排課管理系統(tǒng)基本開發(fā)完畢。在此期間本人閱讀了大量VB及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對DATA及ADOBC控件不熟悉，通過這次畢業(yè)設(shè)計，我能熟練的操作這兩個控件；再比如說在用COMBO控件時不知道如何向其中添加列表項，走了許多彎路，查詢了眾多資料，最后終于找到了一種捷徑的方法，解決了我設(shè)計中的一大難題。因此，在本次的畢業(yè)設(shè)計中，為搞清控件

44、的使用方法、編程的各個難點、掌握面向?qū)ο蟮木幊趟枷耄救瞬檫^相關(guān)的教材、查詢過相關(guān)的網(wǎng)站、請教過指導(dǎo)教師。在摸索中學(xué)習(xí)，在困惑中探索，終于探究了一套較好的學(xué)習(xí)面向?qū)ο蟮某绦蛟O(shè)計的方法。但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。這些都有待進一步改善。致 謝緊張忙碌的畢業(yè)設(shè)計即將結(jié)束了，在這幾個月的課程設(shè)計中，我從項目的規(guī)劃、調(diào)研開始，到編碼、測試，充分體會了一個軟件產(chǎn)品的生產(chǎn)過程，也讓我看到了我自身水平的不足。與此同時，同樣讓我感到了繼續(xù)學(xué)習(xí)、更新自身知識、加強自身能力的必要性。大學(xué)四年的學(xué)習(xí)即將結(jié)束，我也即將

45、走向新的起點。這段畢業(yè)設(shè)計的經(jīng)歷給了我克服困難的決心和解決問題的經(jīng)驗，它將對我今后的生活、學(xué)習(xí)起到很大的幫助。經(jīng)過兩個多月的學(xué)習(xí)，我初步掌握了Visual Basic 6.0 的基本應(yīng)用，基本達到了畢業(yè)設(shè)計的要求。最重要的是，畢業(yè)設(shè)計的經(jīng)歷增強了我自我學(xué)習(xí)的能力，做到了在不用老師手把手教授的情況下，完成了一個較為復(fù)雜的管理系統(tǒng)。同時，在課程設(shè)計的過程中，查閱了大量的資料，也增強了我進行資料收集、查找和對資料進行篩選的能力。在整個畢業(yè)設(shè)計的實習(xí)過程中，我要衷心的感謝我的指導(dǎo)老師。他一直都在為我的畢業(yè)設(shè)計提供耐心的指導(dǎo)，并且?guī)椭医鉀Q了很多疑難問題，這樣才有了我的這份畢業(yè)設(shè)計。我還要感謝我的同學(xué)們，他們也給了我許多支持。最后，也是最重要的，感謝所有這四年中傳授我知識，給予我關(guān)懷和幫助的老師們！參考文獻1 劉萌周學(xué)明郭安源編著Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實例人民郵