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

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

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

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

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

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

7、能。本系統的用戶界面十分簡潔、實用，系統編制過程中充分考慮了計算機的優越性，對于不是計算機專業的人員來說，也可以很方便的進入系統和使用本系統提供的功能。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第一章 開發背景及開發環境介紹11開發背景

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

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

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

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

14、 Data Objects）Active數據對象。ADO設計為一種極為簡單的格式，通過ODBC的方法同數據庫接口。可以用任何一種ODBC數據源，如：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是由微軟發布的關聯式數據庫管理系統。它結合了 Microsoft Jet Database Engine 和 圖形用戶界面兩項特點，是 Microsoft Office 的系統程式之一。在這個系統中我們使用Micrsoft Access進行后臺數據庫的開發。Micrsoft Access是Micrsoft Office系列中數據處理軟件， Access2003是關系數據庫開發工具，1992年，Microsoft Access作為第一個面向Windows操作平臺的桌面數據庫管理系統而誕生，它不但充分體現了面向對象的思想，提供可視化的編程手段，而且充分利用了Windo

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

33、用戶名、密碼后，如果是合法的用戶則可以進入該系統，系統可以通過用戶名來判斷用戶的權限，從而轉到不通的頁面執行操作。例如，具有學生權限的用戶只能查看課程、考試時間、考試成績等信息，不允許登陸到帶有管理模塊的窗體上。而管理員和教師則可以登陸到具有管理內容的窗體中。圖4.3.2和4.3.3分別演示了教師和學生登錄后的不同效果。圖4.3.2教師登陸【主窗體】圖4.3.3學生登陸【主窗體】系統判斷該用戶輸入的用戶名、密碼及用戶類型是否吻合，進而決定該用戶是否可以登陸到相應操作界面中。實現該功能的方法是【登陸】按鈕的“單擊”事件中添加如下代碼：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 '對登錄到系統的當前用戶信息進行保存 Unload Me rs.Close Else StuShow.Show rs.Close Unload Me End If End If End IfEnd Sub 44 實現用戶管理功能本系統中設置的權限有三種分別是：管理員權限，教師權限和學生權限，根據用戶所具有的權限不同能夠使用該系統中的功能模塊也不同。系統通過在登陸時保存的登陸用戶的信息來決定用戶所能執行的操作。在此模塊中教師只能修改自己的密碼，而具有管理員權限的用戶則可以執行用戶管理和添加用戶的功能。實現判斷的代碼如下所示：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 "您的權限不夠，不能執行該項操作" rs.Close End If 圖4.4.1 【用戶登陸】

39、窗體本窗體數據庫綁定控件MSFlexGird來顯示數據庫中已經存在的用戶信息，單擊MSFlexGird控件中所要修改用戶后，該用戶的基本信息則顯示在左面的相應的textbox中，當對用戶的信息進行修改完成后，管理員通過單擊“修改”來實現對用戶信息的修改，此時“修改”按鈕變化為“確定”按鈕用以提示管理員對所要修改的信息進行確認，此時“取消”按鈕變為可用狀態，若管理員對所要修改的信息仍要改動，則單擊“取消”來取消之前的操作，若確認無誤，則單擊“確定”按鈕修改用戶信息，同事在右側的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“刪除”按鈕來實現對是對于不在使用該系統的用戶管理進行刪除操作，以保持數據庫的數據的有效性。單擊“刪除”按鈕即對當前在MSFlexGird中選定的用戶執行刪除。具體實現代碼如下：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的更新操作卸載一個函數體中，以便于多次調用，在前面執行用戶修改操作時就是才用這種方法。這樣做不僅使程序的模塊化，也增加了程序的簡潔性和易理解性，便于后期維護和修改。本例的【添加用戶】窗體運行結果如圖4.4.2所示圖4.4.2 【添加用戶】窗體在調用本窗體時仍然有用戶使用權限的限制，實現的代碼同用戶管理的代碼相同，這里不在重復。系統的管理員將要添加的用戶名、密碼、相應的權限添加到對應的文本框中，單擊“添加”按鈕完成添加用戶操作。具體實現的代碼如下：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個數字的時候系統將拒絕執行操作，從而保證了進入數據中數據的正確性。本例的【修改密碼】窗體運行結果如圖4.4.3所示圖4.4.3 【密碼修改】窗體系統將對用戶修改的密碼進行再次確認，以防止用戶無意中的錯誤輸入，所帶來的不必要的麻煩。用戶單擊“提交”后，完成修改。具體實現代碼如下：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