【文章內(nèi)容簡(jiǎn)介】 的就是要使視窗系統(tǒng)下的每一件事 情都支持同樣的易于使用的高級(jí)語言。 Visual 出現(xiàn)以后，在某些方面有了重大的突破。它給予了程序員長(zhǎng)期期待的不用離開 Visual Basic 環(huán)境，就可以創(chuàng)建新的定制控件類型和創(chuàng)建其它項(xiàng)目類型的能力。除了一般應(yīng)用程序外，程序員還能創(chuàng)建文檔 DLLs、 OLE服務(wù)器和 ActiveX控件。當(dāng) Visual Basic 逐漸復(fù)雜時(shí)，世界已經(jīng)在圍著它轉(zhuǎn)了。項(xiàng)目類型的增加不是用來迷惑程序員，而是提供靈活性的。視窗系統(tǒng)已經(jīng)成為一個(gè)特別豐富的環(huán)境，可使應(yīng)用程序彼此交流和共享數(shù)據(jù)。我們現(xiàn)在所使用的 Visual 被看著是 Visual Basic 的網(wǎng)絡(luò)版本?？梢钥闯鏊度肓讼喈?dāng)一部分的精力去支持微軟日益在Inter 和分布式（網(wǎng)絡(luò)）計(jì)算方面的重視程度。雖然它沒有象 Visual 所引起的那樣激動(dòng)人心，但它還是在某些方面做了一些有用的改進(jìn)。其最重要的一個(gè)改進(jìn)就是增加了 ADO 數(shù)據(jù)控件，它可以縮小本地和遠(yuǎn)程數(shù)據(jù)控件之間的差別。換句話說，程序員在很大程度上可以與數(shù)據(jù)庫交互作用，而不用擔(dān)心網(wǎng)絡(luò)上由誰來提供服務(wù)。 此外， Visual Basic 在數(shù)據(jù)開發(fā)方面提供了十分強(qiáng)大的功能。有自帶的數(shù)據(jù)管理器（ Data Manager）、數(shù)據(jù)控件（ Data Control）及數(shù)據(jù)訪問對(duì)象 (DAO)等一系列功能強(qiáng)大的工具來協(xié)助管理人員輕松地進(jìn)行與數(shù)據(jù)庫的連接和管理。 ACCESS 簡(jiǎn)介 數(shù)據(jù)庫選用 Microsoft 公司的 Access 產(chǎn)品作為數(shù)據(jù)庫應(yīng)用程序。目前的Access 2021是 Microsoft強(qiáng)大的桌面數(shù)據(jù)庫平臺(tái)的第六代產(chǎn)品，是 3 2位 Access自動(dòng)排課系統(tǒng) 9 的第三個(gè)版本。 Access 有以下一些基本定義： （ 1）數(shù)據(jù)庫是一個(gè)包含各種 Access “對(duì)象” (表、查詢、窗體、報(bào)表、宏和模塊 )的文件， Access 中 所有工作都是建立在此基礎(chǔ)之上的。 （ 2）表是存放數(shù)據(jù)的容器，被設(shè)計(jì)成行和列的格式，就像電子表中的那樣。每一列叫做一個(gè)“字段”，包含特定類型的信息，如姓名或?qū)W歷。每一行稱為一個(gè)“記錄 ”， 包含與單個(gè)實(shí)體有關(guān)的所有信息，如某個(gè)員工的姓名、性別、所在部門、學(xué)歷等。對(duì)于像 Access 這樣的關(guān)系數(shù)據(jù)庫管理程序，一個(gè)數(shù)據(jù)庫通常包含幾個(gè)存放相關(guān)數(shù)據(jù)的不同表。 （ 3）查詢是一個(gè) Access 對(duì)象，它詢問數(shù)據(jù)庫中有關(guān)數(shù)據(jù)的問題。根據(jù)設(shè)計(jì)方法的不同，查詢能夠在數(shù)據(jù)庫中檢索并組合來自不同表的數(shù)據(jù)。例如，可以設(shè)計(jì)一個(gè)查詢來告知在公司中 工作超過 1年的職員有多少。查詢還可以對(duì)一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。 （ 4）窗體是一個(gè)窗口，它提供一種很方便的途徑來查看數(shù)據(jù)庫中已有記錄或向數(shù)據(jù)庫中增添新記錄。在 Access 中，可以創(chuàng)建一個(gè)窗體，用來同時(shí)查閱單個(gè)表或多個(gè)表中的數(shù)據(jù)，還可以打印和顯示窗體。 （ 5）報(bào)表是一個(gè) Access 對(duì)象，設(shè)計(jì)來顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。 （ 6）頁是一種特殊類型的窗體，它使用戶能夠利用 Web 瀏覽器查看和編輯Access 的表。 （ 7）宏用來保存 Access 中的一系列操作。可自動(dòng)執(zhí) 行一些日常的任務(wù)，以便簡(jiǎn)化在 Access 中的工作。 （ 8）模塊是用 Visual Basic for Applications(VBA) 編寫的過程， VBA是Access 的基礎(chǔ)程序設(shè)計(jì)語言。利用 VBA 可以編寫程序代碼來完成 Access 宏所不能完成的特定任務(wù)。 自動(dòng)排課系統(tǒng) 10 第三章 需求分析 自動(dòng)課程編排系統(tǒng)需要滿足來自三方面的需求，這三個(gè)方面分別是學(xué)生、教師和管理員。學(xué)生的需求是查詢?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)行本人信息的查詢和維護(hù)部分。一般情況下，學(xué)生只應(yīng)該查詢和維護(hù)本人的個(gè)人信息，若查詢和維護(hù)其他學(xué)生的選課信息，就要知道其他學(xué)生的學(xué)號(hào)和密碼。這些是很難得到的，特別是密碼，所以不但滿足了學(xué)生的要求，還保護(hù)了學(xué)生的個(gè)人隱私。 學(xué)校管理人員有修改自動(dòng)課程編排系統(tǒng)的權(quán)限，所以需對(duì)管理人員登陸本模塊進(jìn)行更多的考慮。在此系統(tǒng)中，學(xué)校管理人員可以記錄學(xué)生登陸日志，并打印生成相 應(yīng)的報(bào)表給用戶查看和確認(rèn)院系管理人員功能的信息量大，數(shù)據(jù)安全性和保密性要求最高。本功能實(shí)現(xiàn)對(duì)排課信息、教師信息、總體情況信息的查詢和統(tǒng)計(jì)、管理人員信息查看及維護(hù)。設(shè)計(jì)不同用戶的操作權(quán)限和登陸方法，對(duì)所有用戶開放的課程查詢和個(gè)人部分信息維護(hù)，查看個(gè)人情況信息，維護(hù)個(gè)人密碼。根據(jù)排課情況對(duì)數(shù)據(jù)庫進(jìn)行操作，并生成報(bào)表根據(jù)選課情況，維護(hù)管理員信息，維護(hù)教師信息，維護(hù)學(xué)生信息處理信息的完整性。 本系統(tǒng)主要實(shí)現(xiàn)教師信息管理、學(xué)生信息管理、課程信息管理和系信息管理，其中教師信息管理有教師姓名、教師工號(hào)、教師職稱、教師所屬 系；學(xué)生信息管理有學(xué)生姓名、學(xué)生學(xué)號(hào)和學(xué)生所在系；課程信息管理有課程名稱、學(xué)分、上課地點(diǎn)、已選人數(shù)、課程性質(zhì)、開課系、課程人數(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)入主控操作界面。 （ 2）教師信息模塊完成教師的登陸 ,然后根據(jù)各位教師所在的系不同 ,教師所教的課程不同 ,調(diào)出要排課的課程 。 其中教師登陸模塊的功能是驗(yàn)證登錄人員確實(shí)是本院的教師，教師啟動(dòng)本系統(tǒng)后，系統(tǒng)提示輸入教師工號(hào)和密碼，驗(yàn)證后進(jìn)入主控操作界面。 自動(dòng)排課系統(tǒng) 11 （ 3）課程信息管理包括必修課程和選修課程 ,學(xué)生必需先登陸才能進(jìn)行對(duì)課程查詢。 管理員可以通過超級(jí)用戶身份登錄 ,對(duì)系統(tǒng)進(jìn)行全面的管理 ,對(duì)新用戶的添加 ,刪除 ,對(duì)信息進(jìn)行管理。管理員可以對(duì)老師及同學(xué)的帳戶進(jìn)行管理，老師、學(xué)生不同身份的用戶進(jìn)入不同的界面，進(jìn)行不同的操作。教師可以發(fā)布自己本學(xué)期所要教的課程。同學(xué)可以通過查詢本學(xué)期所開設(shè)課程進(jìn)行了解課程安排。 系統(tǒng)結(jié)構(gòu)圖如下所示： 排課管理系統(tǒng) 教職員入庫信息 排課管理 教職員帶課查詢 本學(xué)期課程設(shè)置 自動(dòng)排課系統(tǒng) 12 第四章 系統(tǒng)實(shí)現(xiàn) 4． 1 本學(xué)期課程設(shè)置模塊設(shè)計(jì) 本系統(tǒng)只提供最多十門的課程設(shè)置，用戶可以根據(jù)自己的實(shí)際需要來編排里面的課程內(nèi)容，對(duì)于小學(xué)來說，十門應(yīng)該足夠了。 本模塊界面如下所示： 主要代碼如下所示： Private Sub _Click(Index As Integer) 39。On Error GoTo ex: Dim lt As Integer Dim strTxt As String Select Case Index Case 0: CanSave (True) Case 1: (delete * from subject) For lt = 0 To 9 strTxt = Trim$(LTrim$(Txt(lt).Text)) If Len(strTxt) 0 Then rs!csjname = strTxt 自動(dòng)排課系統(tǒng) 13 End If Next lt CanSave (False) Case 2: For lt = 0 To 9 Txt(lt) = str(lt) Next lt CanSave (Fals