VB高校自動(dòng)排課系統(tǒng)設(shè)計(jì)

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

2、維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。本系統(tǒng)經(jīng)過(guò)測(cè)試，運(yùn)行穩(wěn)定，可投入使用。關(guān)鍵字：排課管理，VB，數(shù)據(jù)庫(kù)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第二章 開(kāi)發(fā)軟件介紹72.1系統(tǒng)的架構(gòu)72.2系統(tǒng)運(yùn)行環(huán)境操作系統(tǒng)72.3系統(tǒng)開(kāi)發(fā)環(huán)境72

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

28、所示：排課管理系統(tǒng)教職員入庫(kù)信息排課管理教職員帶課查詢(xún)本學(xué)期課程設(shè)置第四章 系統(tǒng)實(shí)現(xiàn)41 本學(xué)期課程設(shè)置模塊設(shè)計(jì) 本系統(tǒng)只提供最多十門(mén)的課程設(shè)置，用戶(hù)可以根據(jù)自己的實(shí)際需要來(lái)編排里面的課程內(nèi)容，對(duì)于小學(xué)來(lái)說(shuō)，十門(mén)應(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 教師入庫(kù)信息模塊設(shè)計(jì) 本模塊主要對(duì)教師信息的錄入，以便清楚知道教師的情況，所以教師管理這個(gè)模塊是比不可少的。光對(duì)教師的資料了解便清楚知道，某個(gè)老師是能勝任的課程。本模塊主要界面如下所示：主要代碼如下所示：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(你確定要?jiǎng)h除本記錄嗎？, 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ì) 本模塊可以安排一個(gè)星期五天的課程，教師可以根據(jù)實(shí)際情況制定課程表，并可安排任課老師的安排，課程的

33、安排方便課程查詢(xún)時(shí)需要。以便及時(shí)發(fā)現(xiàn)錯(cuò)誤能及時(shí)修改。下面的年級(jí)班數(shù)，可以根據(jù)實(shí)際情況而定。 本模塊界面如下圖所示：主要代碼如下所示：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 課程查詢(xún)模

38、塊設(shè)計(jì)本模塊主要是方便學(xué)生及教師能很快的查詢(xún)，什么時(shí)間該上什么課，由哪個(gè)老師上等信息。本模塊界面圖如下所示：主要代碼如下所示：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 沒(méi)有得到相關(guān)數(shù)據(jù)，請(qǐng)檢查, 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 請(qǐng)輸入或選擇一教職員姓名, vbInformation + vbOKOnly, 查詢(xún)輸入 End If End SelectbnEnd:Me.MousePointer = 0 End Sub第五章 系統(tǒng)的問(wèn)題與調(diào)試在系統(tǒng)的編寫(xiě)過(guò)程中，通常會(huì)出現(xiàn)大量的這樣或是那樣的錯(cuò)誤，處理錯(cuò)誤能力的大小也是評(píng)價(jià)一個(gè)程序員優(yōu)秀與否的標(biāo)準(zhǔn)。程序中的錯(cuò)誤大致分三種：語(yǔ)法錯(cuò)誤、邏輯錯(cuò)誤、意外錯(cuò)誤。這里面語(yǔ)法錯(cuò)誤是最常見(jiàn)的，占了錯(cuò)誤中的大部分，但也是最容易解決的，通常在程序的編譯時(shí)，多半可以發(fā)現(xiàn)這些錯(cuò)誤并將其解決，邏輯錯(cuò)誤的解決也不難，只要真正了解程序的流程及內(nèi)部的邏輯關(guān)系，也會(huì)迎刃而解。最難處理的是意外錯(cuò)誤，通常

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

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

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

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