學生選課管理系統(tǒng)畢業(yè)論文

1、 畢業(yè)設計（論文）題 目 學生選課管理系統(tǒng)英文題目 Student enrollment management system學生姓名 劉小亮班 級1140302專 業(yè)201140030226東華理工大學高職學院 2014年 5 月15日目 錄第一章 開發(fā)背景及開發(fā)環(huán)境介紹111開發(fā)背景112開發(fā)的意義113開發(fā)環(huán)境及開發(fā)工具介紹1第二章 需求分析321需求概述322 系統(tǒng)設計總體目標323 系統(tǒng)設計的需求概況功能分析324 性能需求425 用戶特點4第三章 概要設計531 功能模塊詳解532 系統(tǒng)流程圖633系統(tǒng)功能程序介紹7第四章 詳細設計841 創(chuàng)建空數據庫及數據表 8 42實現數據庫連接

2、模塊 943實現系統(tǒng)登陸功能模塊1244實現用戶管理功能1445實現基本信息維護模塊19451實現教師基本信息維護模塊 19 452實現學生基本信息維護模塊19 453實現課程基本信息維護模塊2046 實現教學管理模塊2047實現考試管理模塊21 471實現考試計劃安排模塊21 472實現考試成績修改模塊22 473實現考試成績輸入模塊2248實現信息查詢模23第五章 設計總結25主要參考文獻26 前 言課背景和意義 數據庫是從60年代初發(fā)展起來的計算機技術。經過四十來年的發(fā)展，數據庫技術己經趨于成熟。Web數據庫在新的Internet環(huán)境中發(fā)生了很大的變化。就數據應用而言呈現出多樣化的空間，

3、如數字圖書館、電子出版物、電子商務、遠程教育系統(tǒng)等的出現，給web數據庫技術提出了更多、更高的要求。同時，隨著國內高校校園網的建設，基于互聯網的應用系統(tǒng)的開發(fā)正在蓬勃發(fā)展并發(fā)揮著較大的作用。例如，我國許多高校的網上招生系統(tǒng)，學校的各種管理信息系統(tǒng)，學校選課系統(tǒng)，還有一些醫(yī)學院校開發(fā)出的網上診所、遠程診斷系統(tǒng)等等，都是基于校園網的應用系統(tǒng)。國外的教學科研軟件與國內相比開發(fā)的早而且比較成熟。早在七十年代末，美國就建成了NSFNET(國家科學基金網)，其課題的申報及課題的進展情況匯報都在網上進行。其網上教學教務管理系統(tǒng)也十分完善，世界各地的學生可以坐在家里通過互聯網完成入學報名、選課、考試、畢業(yè)論文

4、、取得學位這一學習生活的全過程。目前，國際上已具規(guī)模的遠程教育學校就有數百所之多，網上教育正在各地發(fā)揮著巨大的作用，為世界各國培養(yǎng)出大批人才。所有這些都表明，基于Internet的校園網的應用已深入到校園內的各個方面。在高等學校的教務管理工作中，課程表的編排是一項十分復雜、棘手的工作。在排課過程中，除了滿足大量的制約條件以外，還必須解決許多沖突與矛盾，例如：兩位教師不能同一時間在同一班級上課、一位教師不能在同一時間上兩門課等等。利用計算機輔助進行課表編排工作，既提高了排課工作的科學性，又可大大減輕管理人員的工作強度，提高工作效率，從而使學校教務管理現代化邁上了一個新臺階。我國不少高校都實行了學

5、分制，它的核心是允許學生自由選課，即把學習的自主權交給學生。在這里，學生選課時的制約因素比較復雜，工作量也很大，而且往往需要在較短的時間內完成。運用計算機輔助選課，即能實時地對大量選課數據進行檢驗和統(tǒng)計，十分方便地輸出選課結果，同時也避免了人工處理時容易產生的錯誤。從系統(tǒng)開發(fā)的復雜程度來看，計算機輔助排課與選課是高校教務系統(tǒng)中的兩個關鍵子系統(tǒng)，目前不少教務系統(tǒng)尚未很好地解決排課與選課問題。本文主要對高校教務管理系統(tǒng)中計算機課表編排與選課子系統(tǒng)的基本功能、設計思想、需求分析以及實現技術進行探討。學生選課系統(tǒng)是一個學校不可缺少的部分,它的內容對于學校的決策者和管理者來說都至關重要,所以學生選課系統(tǒng)

6、應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難。摘 要本文通過用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,Microsoft Access進行后臺數據庫的開發(fā)，使用ADO（ActiveX Data Objects）控件進行數據庫的連接。開發(fā)主要包括后臺數據庫的建立和維護以及前端應用程序的開發(fā)兩個方面，實現了學生基本信息的維護、教師基本信息的維護、課程信息的維護、學生選課、課表查詢、成績輸入、成績查詢等功

7、能。本系統(tǒng)的用戶界面十分簡潔、實用，系統(tǒng)編制過程中充分考慮了計算機的優(yōu)越性，對于不是計算機專業(yè)的人員來說，也可以很方便的進入系統(tǒng)和使用本系統(tǒng)提供的功能。AbstractIn this paper, by using MICROSOFT's VISUAL BASIC development tools, Microsoft Access database, using the ADO (ActiveX Data Objects) connection control database.Development mainly includes two aspects: the backgro

8、und of the establishment and maintenance of database and front-end application development, the students realize the basic information maintenance,teachers' basic information maintenance, curriculum information maintenance, students, curriculum inquiry,score input, query results and other functi

9、ons. The system's user interface is very simple, practical,systematic process had fully considered the computer superiority, for whose major is not computer, also can easily enter the system and use the function of this system provide.關鍵詞：教務管理，軟件工程，VB，ADO 控件，Microsoft Access第一章 開發(fā)背景及開發(fā)環(huán)境介紹11開發(fā)背景

10、隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分,使用計算機進行教務管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提教務管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套教務管理系統(tǒng)為例,談談其開發(fā)過程和所涉及到的問題及解決方法. 教務管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數據庫的建立和維護以及前端應用程序的開

11、發(fā)兩個方面。12 開發(fā)的意義畢業(yè)設計是大學學習的總結，同時也是自己綜合運用所學知識解決實際問題的一次鍛煉。教務管理系統(tǒng)的主要目的是為了方便學校對教師信息、學生基本信息、課程信息、考試安排、學生成績錄入、修改、查詢，提高學校的工作效率。這一系統(tǒng)的開發(fā)成功，解決了手寫速度慢、容易出錯的現狀。無論是在學籍管理、成績管理、課程管理等方面都可以幫助學校最迅速最準確的完成所需的工作。無論是在適用性、靈活性和易操作性方面都顯示出了它的強大功能。 131 系統(tǒng)的運行環(huán)境在操作系統(tǒng)方面，雖然現在Linux的發(fā)展速度非常的快，但是對于大多數的使用者來說，操作顯然沒有微軟的WINDOWS那么的流行和簡單化。所以我決

12、定該教務管理系統(tǒng)將運行在Windows系統(tǒng)下面。 132 開發(fā)工具1、 Visual Basic的簡介 Visual Basic是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅動編程語言。從任何標準來說，VB都是世界上使用人數最多的語言不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數據庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序?？偟目磥鞻isual Basic有以下主要特點： 可視化編程 面向對象的程序設計 結構

13、化程序設計語言 事件驅動編程機制 訪問數據庫2、 ADO控件的簡介 ADO Data 控件使用 Microsoft ActiveX 數據對象(ADO) 來快速建立數據綁定的控件和數據提供者之間的連接。數據綁定控件是任何具有“數據源”屬性的控件。數據提供者可以是任何符合 OLEDB 規(guī)范的數據源。使用 Visual Basic 的類模塊也可以很方便地創(chuàng)建子集的數據提供者。盡管可以在應用程序中直接使用 ActiveX 數據對象，但 ADO Data 控件有作為一個圖形控件的優(yōu)勢（具有“向前”和“向后”按鈕），以及一個易于使用的界面，使您可以用最少的代碼創(chuàng)建數據庫應用程序。 ADO （ActiveX

14、 Data Objects）Active數據對象。ADO設計為一種極為簡單的格式，通過ODBC的方法同數據庫接口?？梢杂萌魏我环NODBC數據源，如：SQL Server、Oracle、Access、Excel、文本文件、圖形文件和無格式的數據文件。在VB中使用ADO：在一個打開的Visual basic 6.0的工程中，選擇菜單【工程】【部件】命令，出現“部件”對話框，在“控件”選項卡的列表中選擇“Microsoft ADO Data Control 6.0 (OLEDB)”選項，單擊【確定】按鈕。這樣在程序中便加入了對ADO的引用。3、 Micrsoft Access 簡介 Microsof

15、t Office Access是由微軟發(fā)布的關聯式數據庫管理系統(tǒng)。它結合了 Microsoft Jet Database Engine 和 圖形用戶界面兩項特點，是 Microsoft Office 的系統(tǒng)程式之一。在這個系統(tǒng)中我們使用Micrsoft Access進行后臺數據庫的開發(fā)。Micrsoft Access是Micrsoft Office系列中數據處理軟件， Access2003是關系數據庫開發(fā)工具，1992年，Microsoft Access作為第一個面向Windows操作平臺的桌面數據庫管理系統(tǒng)而誕生，它不但充分體現了面向對象的思想，提供可視化的編程手段，而且充分利用了Windo

16、ws操作平臺的優(yōu)越性，采用與Windows完全一致的界面風格，使界面非常友好。在Access中，用戶不需要編寫復雜的程序就可以建立一個完整的數據庫應用系統(tǒng)，是一個典型的開放式數據庫系統(tǒng)，它可以和Windows下的其他應用程序共享數據庫資源。第二章需求分析21需求概述由于現今的教務管理非常繁瑣，行政人員付出大量的工作時間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負擔，決定開發(fā)教務管理系統(tǒng)軟件。 開發(fā)此教務管理系統(tǒng)軟件，以供教學人員及操作者進行教務管理，方便操作者隨時添加、查詢、修改等。為了我們提高軟件開發(fā)的能力，學習漢語編程的技巧，提高工作設計思想，通過本次的工程開發(fā)，開發(fā)小組成員

17、與輔助老師，公司的技師交流，能從中學習知識吸取經驗，在技術和軟件思想上同時得到鍛煉和提高，從而使總體水升到一個新的高度。22 系統(tǒng)設計總體目標（1）本系統(tǒng)具有很強的可靠行，可以學生、教師、課程等信息進行效驗，對數據進行修改、刪除，規(guī)定各類人員的權限。（2）本系統(tǒng)中的模塊具有很強的可續(xù)性，可以方教務管理人員的修改與維護。（3）本系統(tǒng)操作方便、靈活、簡單。操作人員只需錄入教務相關的基本信息和數據就可以在以后的工作中方便的調用。（4）本系統(tǒng)可高效、快速的查詢到考試的基本信息和成績，便于各個學院和學生查詢和比對成績。23 系統(tǒng)設計的需求概況功能分析對于學生選課信息系統(tǒng)的設計本組通過閱讀了大量相關文獻，

18、了解了管理信息系統(tǒng)的發(fā)展、相關技術和開發(fā)方法，以及軟件工程學的相關理論?；趯σ陨锨闆r的了解和對閱讀參考文獻的體會。總結了本系統(tǒng)的相關需求。包括學生信息的輸入，包括學生的基本信息、課程基本信息，教師基本信息，選課表基本信息等。各種信息的查詢，包括學生基本信息、課程基本信息，教師基本信息，選課信息的查詢等。最后設計如下的數據項和數據結構：學生：學號，姓名，性別，年齡，年級，班級，專業(yè)，地址。 教師：教師號，姓名，性別，年齡，電話號碼。課程：課程號，課程名稱，課時，開課狀態(tài)，已選人數，限選人數，選課期限。選課：學號，課程號，分數。界面設計，系統(tǒng)應使用較淺的顏色最好用淺藍色。突出標明部分最好用紅色，

19、界面友好，操作應該簡單。數據庫概念結構設計 根據前面的設計規(guī)劃出的實體有：學生實體、課程實體、教師實體等學生實體包括的數據項有：學號，性別，姓名，年齡，年級，班級，系別名，專業(yè)名。教師信息包括項有：教師號，姓名，性別，系別號，電話號。課程信息項：課程號，課程名，學分，學時，開課狀態(tài)，已選人數，限選人數。依據高校數據庫管理系統(tǒng)的需求，對應數據表的設計及功能如下：（1）課程表：存儲課程的基本信息。（2）學生信息表：存儲學生的基本信息。（3）教師表：存儲教師的基本信息。（4）系別/專業(yè)表：存儲系別/專業(yè)的基本信息。（5）選課結果表：存儲與學生選課情況相關的具體條目信息。（6）授課表：存儲教師授課情況

20、相關的具體條目信息。（7）管理員表：存儲管理員的信息。24 性能需求（1）安全性在高系統(tǒng)配置、高網絡帶寬和容易得到保證的情況下，我們最需要考慮的性能需求就是系統(tǒng)安全性問題。在開發(fā)系統(tǒng)的每個階段，均需要考慮彼此間的認證與授權。尤其要注意認證，簡單地說就是確定誰是特定用戶，并針對安全源驗證該用戶的身份。在處理完識別用戶的方法之后，必須利用一種方法以向用戶授權，從而能夠使用系統(tǒng)的特定功能。（2）數據錄入和處理的準確性和實時性數據的輸入是否準確是數據處理的前提，錯誤的輸入會導致系統(tǒng)輸出的不正確和不可用，從而使系統(tǒng)的工作失去意義。數據的輸入來源是手工輸入。手工輸入要通過系統(tǒng)界面上的安排系統(tǒng)具有容錯性，并

21、且對操作人員要進行系統(tǒng)的培訓。（3）數據的一致性與完整性由于系統(tǒng)的數據是共享的，所以如何保證這些數據的一致性，是系統(tǒng)必須解決的問題。要解決這一問題要有一定的人員維護數據的一致性，在數據錄入處控制數據的去向，要求對數據庫的數據完整性進行嚴格的約束。（4）易用性界面應采用圖形化操作方式，便于各類人員操作。適用于Windows 2000/xp及以上操作系統(tǒng)。25 用戶的特點由于使用本系統(tǒng)的人員是學校教務管理人員和本院校的學生，所以本系統(tǒng)的操作界面應滿足適應不同操作人員對應不同的操作管理界面。 第三章概要設計概要分析 學生選課管理系統(tǒng)，主要是針對學生的選課進行需求分析的。首先，學生選課的前提是課程已經

22、由教務，或者教師進行科學的，無沖突的排課后才可以進行的。因此，在選課功能之前，排課成為了選課功能的前提。而這兩個功能所涉及的用戶為：學生，教師，管理員。而他們的信息也應該被合理的管理，這也決定了本系統(tǒng)中必然的三個功能：登陸管理，即用戶信息管理；排課控制；選課控制。通過對各個高?，F存選課需求，確定了本系統(tǒng)中用戶應該含有的三類用戶：管理員，教師，學生。各類用戶描述如下：（1） 管理員描述：管理員主要是對整個系統(tǒng)進行維護，包括設置選課時段，選課規(guī)則，如選課前，學生不可登陸，而選課后，學生不可更改，只能查看。管理員可以對選課結果進行統(tǒng)計；查詢選課情況，對學生的選課申請進行審查；進行用戶管理；排課，發(fā)布

23、選課信息等。（2） 教師描述：教師主要是查詢課程基本情況，備選情況，以及選課學生的基本情況。（3） 學生描述：在選課系統(tǒng)中的主要功能是查詢課程，教室信息，提交選課申請或刪除選課申請，查詢選課情況，登陸系統(tǒng)，進行個人信息修改等于選課有關的活動。根據上面的敘述，對本系統(tǒng)進行了劃分，主要分為三個功能模塊：登陸控制，排課控制和選課控制，相應的對應三個之系統(tǒng)，登陸系統(tǒng)，排課系統(tǒng)與選課系統(tǒng)。其中，登陸系統(tǒng)是整個系統(tǒng)的前提，主要是區(qū)分登陸者（管理員，教師或是學生）不同身份，并給予不通的權限，在頁面中根據部通身份判斷其相應的權限，進行不同的操作。排課系統(tǒng)是本系統(tǒng)的基礎，主要提供給管理員使用，主要功能是合理的對

24、課程進行編排，在本系統(tǒng)中主要是：設定選課時間段，進行排課并檢測排課沖突，發(fā)布選課信息。選課子系統(tǒng)是本系統(tǒng)最終要實現的功能，主要供學生使用，包括課程瀏覽，選課，退課等于選課有關的一切操作。31 功能模塊詳解本文通過用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向對象的編程環(huán)境編寫教務管理系統(tǒng)，全面部析教務管理的內容，由此得出教務管理系統(tǒng)的需求分析和數據建模，利用軟件工程原理，用模塊化設計方式將系統(tǒng)的各個功能模塊層層分解，設計出系統(tǒng)的模塊化結構，并根據系統(tǒng)的具體要求和需要實現的功能，詳細地定義了各個模塊的具體功能。本系統(tǒng)的功能模塊圖如下： 圖3.1 功能模塊圖3

25、2 系統(tǒng)流程圖系統(tǒng)流程圖如圖 3.2 所示：學生返回課程選課成績查詢查詢,更改選課學生信息教師登陸驗證申請課程課程信息教師信息判分管理員(最高權限)批準課程與否管理員信息登陸驗證返回33系統(tǒng)功能程序介紹本應用程序系統(tǒng)采用的是多文檔窗體程序，每一功能模塊對應一個窗體?，F在將逐個介紹各個模塊的功能。1系統(tǒng)管理模塊該模塊的主要任務是維護系統(tǒng)的正常運行和安全性設置,包括添加用戶、修改密碼、刪除用戶，這三個功能模塊各自獨立，完成該系統(tǒng)的用戶管理。2教師信息維護模塊：該模塊的功能是實現對全校教師信息的管理工作，包括：教師基本信息、聯系方式、入職時間、職稱等教師信息的維護。3學生信息維護模塊：該模塊的主要功

26、能是實現對學生的個人信息的管理工作，包括學生信息增加、學生信息查詢等功能，從而方便學校教務部門對學校的基本情況的快速查詢和了解。4課程信息維護模塊：該模塊對各個課程信息進行設置，包括對課程信息記錄的添加、修改、刪除、保存和搜索等功能，以便教務部門可以快速的查詢和修改課程信息，完善高校專業(yè)建設。此外，還設置了學生選課模塊，學生可以根據提供的課程信息選擇本學期的課程。同時，學生還可以查看自已的課程表，包括上課時間、上課地點。5成績管理模塊：學校的成績管理工作是檢驗學生學習情況的一個主要手段，設置了成績輸入、成績查詢等功能模塊。6考試安排模塊：該模塊可實現各班考試時間、考試科目的輸入，同時可以按系別

27、進行各科目考試時間的查詢。本系統(tǒng)的設計是在Windows XP中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開發(fā)成功的。數據庫是MIS中的重要支持技術，在MIS開發(fā)過程中，如何選擇數據庫管理是一個重要的問題，目前，數據庫產品較多，每種產品都具有各自的特點和適用范圍，因此，在選擇數據庫時，應考慮數據庫應用的特點及適用范圍，本系統(tǒng)選用的編程軟件Visual Basic 6.0中文版以及數據庫軟件Microsoft Access2003。數據庫的修改分為；添加、編輯和刪除記錄。 第四章詳細設計41 創(chuàng)建空數據庫及數據表本系統(tǒng)是使用Microsoft Access2003 創(chuàng)建后臺數

28、據庫的，因此下我們就介紹一下在Microsoft Access2003 創(chuàng)建數據庫文件。本根系統(tǒng)的需求，首先要創(chuàng)建一個“教務管理系統(tǒng).mdb”空數據庫并建立下面的表：Ø 教師信息 保存教師的基礎信息Ø 學生信息 保存學生的基本信息Ø 課程信息 保存課程的基本信息Ø 選課表 保存學生根據課程表進行選課的結果Ø 成績表 保存學生的課程成績Ø 考試安排表 保存各科考試安排信息 Ø 用戶表 保存能夠使用系統(tǒng)的各類用戶的信息如圖 4.1所示圖4.1 創(chuàng)建的數據庫下面分別對各表的結構進行介紹?！敖處熜畔ⅰ北淼慕Y構如表4.1 所示。表4.

29、1 “教師信息”表結構字段名稱字段類型允許為空備注教師職工號文本否關鍵字段教師姓名文本是入職時間日期/時間是長日期職稱文本是聯系方式數字是默認值：0教研室文本是 “學生信息”表的結構如表4.2 所示。表4.2 “學生信息”表結構字段名稱字段類型允許為空備注學號文本否關鍵字段姓名文本是性別文本是入學時間日期/時間是長日期政治面貌文本是民族文本是籍貫文本是身份證號文本是所屬系文本是索引：有（有重復）專業(yè)文本是索引：有（有重復） “課程信息”表的結構如表4.3 所示。表4.3 “課程信息”表結構 字段名稱字段類型允許為空備注課程編號文本否關鍵字段課程名稱文本否授課教師文本是索引：有（有重復）開課系別

30、文本是索引：有（有重復）學分數字是上課時間日期否短時間上課地點文本否“選課表”表的結構如表4.4 所示。表4.4“選課表”表結構字段名稱字段類型允許為空備注學號文本否索引：有（有重復）課程編號文本否索引：有（有重復）課程名稱文本否“考試計劃表”表的結構如表4.5 所示。表4.5“考試計劃表”表結構字段名稱字段類型允許為空備注課程名稱文本否考試計劃時間日期否開課系文本否“成績表”表的結構如表4.6 所示。表4.6“成績表”表結構字段名稱字段類型允許為空備注學號文本是課程名稱文本是考試日期日期/時間是常規(guī)日期成績數字是別外還有一個關于系統(tǒng)用戶的數據庫，該數據庫中有一個 “用戶信息”表。該表的表結構

31、如表 4.7 所示。表4.7 “用戶信息”表結構字段名稱字段類型允許為空備注用戶名文本否關鍵字段密碼文本否用戶類型文本否42實現數據庫連接模塊對于系統(tǒng)前端應用程序和后臺Access數據庫的鏈接則采用編寫全局模塊的方式，實現的代碼如下：Public Sub Main() Dim strAccess As String strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:教務管理系統(tǒng)ACCESS學生選課.mdb" If ADOcn Is Nothing Then Set ADOcn = New Connecti

32、on ADOcn.Open strAccess End If logon.ShowEnd Sub以后各模塊中實現對數據庫的鏈接都是通過本模塊中定義的數據庫連接數據連接對象ADOcn來實現與后臺數據庫的各種操作，后面將不再詳細紹介。43實現系統(tǒng)登錄功能模塊對于數據庫管理系統(tǒng)，安全的重要性是不言而喻的。一個設計良好的安全機制能確保用戶的合法操作的簡單、容易，同時可以盡量避免非法操作和意外破壞。數據庫的安全性以被訪問的數據庫的對象和訪問者為主要管理對象，用戶只有具有對某個對象的訪問權限才可以對該對象進行訪問。本系統(tǒng)【用戶登陸】窗體的運行結果如圖4.2 所示。圖4.3.1【用戶登陸】窗體在該窗本中輸入

33、用戶名、密碼后，如果是合法的用戶則可以進入該系統(tǒng)，系統(tǒng)可以通過用戶名來判斷用戶的權限，從而轉到不通的頁面執(zhí)行操作。例如，具有學生權限的用戶只能查看課程、考試時間、考試成績等信息，不允許登陸到帶有管理模塊的窗體上。而管理員和教師則可以登陸到具有管理內容的窗體中。圖4.3.2和4.3.3分別演示了教師和學生登錄后的不同效果。圖4.3.2教師登陸【主窗體】圖4.3.3學生登陸【主窗體】系統(tǒng)判斷該用戶輸入的用戶名、密碼及用戶類型是否吻合，進而決定該用戶是否可以登陸到相應操作界面中。實現該功能的方法是【登陸】按鈕的“單擊”事件中添加如下代碼：Private Sub Command1_Click()

34、9;檢查正確用戶和密碼Set rs = ADOcn.Execute("select 用戶名 from 用戶表 where 用戶名='" & Trim(txtUserName.Text) & "'") If rs.EOF And rs.BOF Then MsgBox "用戶名錯誤或用戶不存在，再試一次！", , "登錄" txtUserName.Text = "" txtPassword.Text = "" txtUserName.SetFocu

35、s rs.Close Else Set rs = ADOcn.Execute("select 密碼 from 用戶表 where 用戶名='" & Trim(txtUserName.Text) & "' And 密碼='" & Trim(txtPassword.Text) & "'") If rs.EOF And rs.BOF Then MsgBox "密碼錯誤，再試一次！", , "登錄" txtPassword.Text = &

36、quot;" txtPassword.SetFocus Else'根據用戶的權限轉到相應窗口 Set rs = New ADODB.Recordset SQL = "select 用戶類型 from 用戶表 where 用戶名 = '" & Trim(txtUserName) & "'" Set rs = ADOcn.Execute(SQL) Permission = rs.Fields(0) If Permission = 0 Then FormMain.Show LoadUser = txtUserN

37、ame.Text '對登錄到系統(tǒng)的當前用戶信息進行保存 Unload Me rs.Close Else StuShow.Show rs.Close Unload Me End If End If End IfEnd Sub 44 實現用戶管理功能本系統(tǒng)中設置的權限有三種分別是：管理員權限，教師權限和學生權限，根據用戶所具有的權限不同能夠使用該系統(tǒng)中的功能模塊也不同。系統(tǒng)通過在登陸時保存的登陸用戶的信息來決定用戶所能執(zhí)行的操作。在此模塊中教師只能修改自己的密碼，而具有管理員權限的用戶則可以執(zhí)行用戶管理和添加用戶的功能。實現判斷的代碼如下所示：Private Sub 用戶管理_Click(

38、) Set rs = New ADODB.Recordset SQL = "select 用戶類型 from 用戶表 where 用戶名 = '" & Trim(LoadUser) & "'" Set rs = ADOcn.Execute(SQL) Permission = rs.Fields(0) If Permission = 0 Then UserMe.Show rs.Close Else MsgBox "您的權限不夠，不能執(zhí)行該項操作" rs.Close End If 圖4.4.1 【用戶登陸】

39、窗體本窗體數據庫綁定控件MSFlexGird來顯示數據庫中已經存在的用戶信息，單擊MSFlexGird控件中所要修改用戶后，該用戶的基本信息則顯示在左面的相應的textbox中，當對用戶的信息進行修改完成后，管理員通過單擊“修改”來實現對用戶信息的修改，此時“修改”按鈕變化為“確定”按鈕用以提示管理員對所要修改的信息進行確認，此時“取消”按鈕變?yōu)榭捎脿顟B(tài)，若管理員對所要修改的信息仍要改動，則單擊“取消”來取消之前的操作，若確認無誤，則單擊“確定”按鈕修改用戶信息，同事在右側的MSFlexGird控件中更新所修改后的信息。具體實現代碼如下：Private Sub Command1_Click()

40、 If Command1.Caption = "修改" Then Command1.Caption = "確定" UserGrid.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True Text1.Enabled = False Text2.Enabled = True Text3.Enabled = True Exit Sub Else If Trim(Text2.Text) = "" Or Trim(Tex

41、t3.Text) = "" Then MsgBox "輸入信息不完整,請檢查是否有項目未輸入." Exit Sub End If If Not (Trim(Text3.Text) = "0" Or Trim(Text3.Text) = "1" Or Trim(Text3.Text) = "2") Then MsgBox "用戶類型只能為0、1和2" Exit Sub End If On Error GoTo ErrMsg1 SQL = "update 用戶表 set

42、 " & _ "密碼 = '" & Trim(Text2.Text) & "',用戶類型 = '" & Trim(Text3.Text) & "' " & _ "where 用戶名 = '" & Trim(Text1.Text) & "'" ADOcn.Execute (SQL) Call Display MsgBox ("修改成功") Command1.

43、Caption = "修改" UserGrid.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Exit Sub End IfErrMsg1: MsgBox &qu

44、ot;輸入信息有錯誤，請檢查輸入信息格式是否有誤或長度是否超過限度！"End Sub“刪除”按鈕來實現對是對于不在使用該系統(tǒng)的用戶管理進行刪除操作，以保持數據庫的數據的有效性。單擊“刪除”按鈕即對當前在MSFlexGird中選定的用戶執(zhí)行刪除。具體實現代碼如下：Private Sub Command2_Click() strOK = MsgBox("確定刪除該用戶?", vbOKCancel) If strOK = vbOK Then ADOcn.Execute ("delete from 用戶表 where 用戶名= '" &

45、 Trim(Text1.Text) & "'") Call Display '調用display函數對MSFlexGird中數據進行同步更新 MsgBox "刪除成功" Command1.Enabled = False Command2.Enabled = True Command4.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = "" End IfEnd Sub這里在對MSFlexGird中數據進

46、行同步更新時采用調用Display函數的形式，將MSFlexGird的更新操作卸載一個函數體中，以便于多次調用，在前面執(zhí)行用戶修改操作時就是才用這種方法。這樣做不僅使程序的模塊化，也增加了程序的簡潔性和易理解性，便于后期維護和修改。本例的【添加用戶】窗體運行結果如圖4.4.2所示圖4.4.2 【添加用戶】窗體在調用本窗體時仍然有用戶使用權限的限制，實現的代碼同用戶管理的代碼相同，這里不在重復。系統(tǒng)的管理員將要添加的用戶名、密碼、相應的權限添加到對應的文本框中，單擊“添加”按鈕完成添加用戶操作。具體實現的代碼如下：Private Sub Command1_Click() If Trim(Text

47、1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then MsgBox "輸入信息不完整,請檢查是否有項目未輸入。" Exit Sub End If If Not (Trim(Text3.Text) = "0" Or Trim(Text3.Text) = "1" Or Trim(Text3.Text) = "2") Then MsgBox "用戶類型只能為0、1和2&q

48、uot; Exit Sub End If Set rs = New ADODB.Recordset SQL = "select * from 用戶表 where 用戶名 = '" & Trim(Text1.Text) & "'" Set rs = ADOcn.Execute(SQL) If Not (rs.EOF Or rs.BOF) Then MsgBox "該用戶已經存在，請重新輸入。" rs.Close Text1.SetFocus Exit Sub End If SQL = "inse

49、rt into 用戶表 values(" & _ "'" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "')" ADOcn.Execute (SQL) MsgBox "添加成功" rs.Close Text1.Text = "" Text2.Text = &q

50、uot;" Text3.Text = "" Text1.SetFocusEnd Sub注意：在本代碼塊中加入了對輸入數據的判斷，如權限的設置中只能為“0” 、“1” 、“2”對于輸入的數據為非這3個數字的時候系統(tǒng)將拒絕執(zhí)行操作，從而保證了進入數據中數據的正確性。本例的【修改密碼】窗體運行結果如圖4.4.3所示圖4.4.3 【密碼修改】窗體系統(tǒng)將對用戶修改的密碼進行再次確認，以防止用戶無意中的錯誤輸入，所帶來的不必要的麻煩。用戶單擊“提交”后，完成修改。具體實現代碼如下：Private Sub Command1_Click()If Trim(Text1.Text)

51、= "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then MsgBox "輸入信息不完整,請檢查是否有項目未輸入。" Exit Sub End If Set rs = New ADODB.Recordset SQL = "select 密碼 from 用戶表 where 用戶名 = '" & Trim(LoadUser) & "'" Set rs = ADOcn.Execute(SQL) unpassword = rs.Fields(0) If unpassword <> Trim(Text1.Text) Then MsgBox "密碼錯誤，請重新輸入。" rs.Close Text1.Text = "" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBo