1、數(shù)據(jù)庫原理實踐報告學生管理系統(tǒng)開發(fā)-課程管理系統(tǒng)專班姓專班姓學級：*名：*口. 4*4*4*4*4*4*4*4*4*號：*2011年12月關鍵詞:VB6.0； data控件；DBGrid控件；Access 2000 ；課程管理系統(tǒng)隨著計算機技術日漸成熟，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的 一部分，使用計算機對學校的課程信息進行管理，與手工相比有其無可比擬的優(yōu)勢。例如：檢索快速。查找方 便、可靠性高、存儲量大、保密性好、信息保存時間長等。這些優(yōu)點能夠極大地提高學校課程管理的效率，也 是學校管理科學化。正規(guī)化的重要條件和標志。本系統(tǒng)是一個學生課程管理系統(tǒng)，它是高校

2、教務管理系統(tǒng)中的一個子系統(tǒng)。主要用戶是學生、教師和管理 員。系統(tǒng)方便了解課程信息。方便了教師的教學管理和新課程的錄入。更為重要的是，系統(tǒng)方便了學校的教務 管理。本系統(tǒng)采用VB語言開發(fā)，在VB6.0環(huán)境下編寫，這是為了使系統(tǒng)的結(jié)構(gòu)更加清晰同時簡化開發(fā)工作。 學生課程管理系統(tǒng)的產(chǎn)生大大減少了人力上的不便，讓整個數(shù)據(jù)管理更加科學合理。本系統(tǒng)最有特色的地方就 是后臺數(shù)據(jù)庫對學生課程統(tǒng)一管理。系統(tǒng)的界面是運用VB中的GUI制作的，后臺數(shù)據(jù)庫Access2000中建有 課程表，該表有如下信息：課程號、課程名、學時、學分、開課院系、是否選修六大屬性所組成。其中課程號 為主碼。本系統(tǒng)可實現(xiàn)課程信息的精確查詢，

3、及按課程號進行模糊查詢，還可添加課程信息，修 改課程信息，刪除課程信息等。課程管理系統(tǒng)的目標和意義11.1 學生課程管理系統(tǒng)的目標1.1 學生課程管理系統(tǒng)的目標.1.1.1 三級標題（標題3）1.錯誤！未定義書簽。 TOC o 1-5 h z 目前國內(nèi)外相關工作情況12.1二級標題（標題2）錯誤.！未定義書簽。2.1.1三級標題（標題3）.錯誤！未定義書簽。系統(tǒng)的總體設計33.1二級標題（標題2）錯誤.！未定義書簽。3.1.1三級標題（標題3）.錯誤！未定義書簽。四課程管理系統(tǒng)的詳細規(guī)劃54.1二級標題（標題2）錯誤.！未定義書簽。4.1.1三級標題（標題3）.錯誤！未定義書簽。五測試85.1

4、二級標題（標題2）錯誤.！未定義書簽。5.1.1三級標題（標題3）.錯誤！未定義書簽。11參考文獻11學生課程管理系統(tǒng)的目標和意義1.1學生課程管理系統(tǒng)的目標設計一個學生課程管理系統(tǒng)，目標是提高學生課程信息管理工作的效率，圍繞此管理所需的課程信 息，課程和課程以學院之間的關系及課程信息的管理及維護。學生可通過此系統(tǒng)進行課程信息的查詢以 及同過課程信息完成選課。系統(tǒng)開發(fā)的總體任務是實現(xiàn)學生課程管理的系統(tǒng)化、規(guī)范化。該系統(tǒng)是高校 教務管理系統(tǒng)中的一個子系統(tǒng)。主要用戶是學生、教師和管理員。系統(tǒng)方便了課程信息。方便了教師的 教學管理和新課程的錄入。更為重要的是，系統(tǒng)方便了解學校的教務管理。該項目開發(fā)的

5、軟件為學校學 生課程信息管理系統(tǒng)軟件，是鑒于目前學校學生人數(shù)劇增，學生課程信息呈爆炸性增長的前提下，學校 對課程信息管理的自動化與準確化的要求日益強烈的背景下構(gòu)思出來的，該軟件設計完成后用于所有教 育單位（包括學校。學院等等）的學生課程的管理。目前社會山的信息管理系統(tǒng)發(fā)展飛快，各個企事業(yè)單位都引入了信息管理軟件來管理軟件來管理自 己日益增長的各種信息，課程管理系統(tǒng)也是有了很大的發(fā)展，商業(yè)化的課程信息管理軟件也不少，但本 系統(tǒng)完全獨立開發(fā)，力求是系統(tǒng)功能簡潔明了，但功能齊全且易于操作。1.2學生課程管理系統(tǒng)的意義學生課程信息管理系統(tǒng)是一個教育單位不可缺少的部分。一個功能齊全、簡單易用的信息管理系

6、統(tǒng) 不但能有效地減輕學校相關工作人員的工作負擔，它的內(nèi)容對于學校的決策者和管理者來說都是至關重 要的。國有課程信息管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用 傳統(tǒng)的人工的方式管理文件文檔、統(tǒng)計和查詢數(shù)據(jù)，這種管理方式存在著許多去點，如效率低、保密性 差，人力的大量浪費；另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新、和維護帶來了不 少困難。隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識。它已進入 人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分，使用計算機對學校的各類信息進行管理，具有手工管理所無法比擬的優(yōu) 點，

7、例如：檢索迅速、查詢方便、效率高、可靠性好、存儲量大、保密性好、壽命長、成本低等。這些 優(yōu)點能夠極大地提高學校信息管理的效率，也是一個單位科學化、正規(guī)化管理、與世界接軌的重要條件。目前國內(nèi)外相關工作情況2.1 VB語言的歷史及發(fā)展Visual Basic從1991年誕生以來，現(xiàn)在已經(jīng)13年了。BASIC是微軟的起家產(chǎn)品，微軟當然 不忘了這位功臣。隨著每一次微軟技術的浪潮，Visual Basic都會隨之獲得新生。可以預見，將 來無論微軟又發(fā)明了什么技術或平臺，Visual Basic 一定會首先以新的姿態(tài)登上去的。如果你想 緊跟微軟，永遠在最新的技術上最快速地開發(fā)，你就應該選擇Visual B

8、asico從1998年發(fā)布到2002年正式推出Visual Basic. NET簡直吊足了開發(fā)者的胃口。從2000 年就開始傳言的具有繼承、Try.Catch語句等新功能的全新VB7.0 一直沒有露面。直到2001年， Visual Studio.NET的第一個BETA版問世的時候，所有人都呆了這是Visual Basic嗎？ And 語句變成了 BitAnd，數(shù)組只能從0下標開始，而且連Dim語句的意義都變了，幾乎所有的窗體 控件都變了，Long 變成了 Integer 而 Integer 變成了 Short，Variant 不見了，Static 不能用 了簡直是翻天覆地，人們已經(jīng)無暇關注這

9、個版本有什么改進，轉(zhuǎn)而擔心我怎么才能接受這個本本了。 其實Visual Basic. NET完全是為了 .NET Framework這一全新的平臺而設計的，Visual Basic. NET的設計者一開始沒有掌握好新平臺和舊語言的平衡。到了 BETA2中，很多東西回歸了 6.0， 如BitAnd又變回了 And，數(shù)組的定義語句也變回了原有的意義，Static也回到了 Visual Basic中。 但是BETA 1驚人的變化讓所有的VB開發(fā)者怕了，他們覺得這種語言被改的千瘡百孔，有些人 干脆轉(zhuǎn)去研究傳說中的新語言C#。但是Visual Basic. NET渡過幾個BETA版本之后還是找到 了正確

10、的定位。Visual Basic. NET有對CLR最完善的支持，同時盡量保留著BASIC易懂的語法 風格和易用性。這個版本新增加的功能已經(jīng)數(shù)不清，最重要的幾個是：1、繼承。至此，Visual Basic完成了向面向?qū)ο筠D(zhuǎn)變的道路。2、共享成員。3、Try.Catch結(jié)構(gòu)化異常處理。4、Delegate 和 Interface。5、名稱空間。6、對自由線程的支持。特別的是，Visual Basic. NET大大減少了 Visual Basic語言的關鍵字，如GoSub、PSet等 等。原先的Visual Basic有多達120個關鍵字，這給寫程序帶來了很大的不便，現(xiàn)在經(jīng)過精簡， Visual

11、Basic脫下了這個沉重的包袱。Visual Basic. NET現(xiàn)在是一門現(xiàn)代的、強壯的、面向?qū)ο蟮摹⒑唵蔚目梢暬_發(fā)語言。強大 的語言功能吸引了很多開發(fā)者。歷史是在不斷重演的，Visual Basic. NET如今的處境和Visual Basic 4.0很相似，由于兼容性變差，人氣也降低了。同時由于依附于.NET Framework，程序發(fā) 布造成了一定的困難。現(xiàn)在國內(nèi)使用Visual Basic. NET的人相對于Visual Basic 6.0來講顯得很 少。但是憑借Visual Basic. NET強大的語言功能和MS的支持，Visual Basic. NET 一定會顯出 它的光輝來

12、。2.1.1 VB語言的優(yōu)點和優(yōu)勢VB特點：1、VB是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設計語言；2、可用于開發(fā)Windows環(huán)境下的各類應用程序；3、在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設計工具。使用VB的優(yōu)點：1、簡單易學、效率高；使用Windows內(nèi)部的廣泛應用程序接口（API）函數(shù)，使用動態(tài)鏈接庫 （DLL）、對象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術，可以高效、快速地開發(fā)Windows環(huán)境下功能強大、圖形界面豐富的應用軟件；2、功能強大，可以與Windowsr專業(yè)開發(fā)工具SDK相媲美。系統(tǒng)的總體設計在數(shù)據(jù)庫

13、開發(fā)的前期，一般要對系統(tǒng)的開發(fā)目的、使用對象、實現(xiàn)功能等進行詳細的分析，確定系統(tǒng)的開發(fā)方 案。3.1系統(tǒng)功能分析學生課程管理系統(tǒng)的開發(fā)目的是管理全校學生的各種信息，方便學生課程信息的查詢。系統(tǒng)的使用對象是課程 管理部門，如教務處工作人員、校院系領導、班主任、教師等。學生課程管理系統(tǒng)的功能概括起來就是課程信息的錄入、維護和查詢。本系統(tǒng)的學生課程管理系統(tǒng)的索要 完成的主要功能如下。（1）課程信息的錄入，包括課程號、課程名、學時、學分、開課院系、是否選修等。（2）課程基本信息的修改維護。（3）課程信息的查詢。3.2系統(tǒng)功能模塊設計根據(jù)系統(tǒng)所要實現(xiàn)的功能，按照結(jié)構(gòu)化程序設計原則，可將整個系統(tǒng)劃分為如圖

14、所示的若干功能模塊。3.3數(shù)據(jù)庫設計數(shù)據(jù)庫系統(tǒng)設計中使用Access 2000數(shù)據(jù)庫，創(chuàng)建Course表，該表包括課程號、課程名、學時、學分、開課院 系、是否選修屬性組成，其中課程號為主碼，不能為空，其它可為空。表結(jié)構(gòu)如下：3 course說明數(shù)據(jù)類型說明本本字本字本文文數(shù)文數(shù)文本本字本字本文文數(shù)文數(shù)文CoiirseNaiiLe PeriodCollegeClass Credit 是否選修數(shù)據(jù)庫設計E-R數(shù)據(jù)庫設計E-R圖如下:學生課程管理系統(tǒng)的詳細規(guī)劃4.1功能實現(xiàn)4.1.1用戶界面設計該界面包括Lable控件、text控件、Command控件、data控件和DBGrid控件。其中在窗體打開

15、事件中添 加了如下代碼：Private Sub Form_Load()Command10.Enabled = TrueCommand11.Enabled = TrueCommand14.Enabled = TrueCommand12.Enabled = FalseCommand13.Enabled = FalseEnd Sub該段代碼主要是在打開窗體后禁止點擊確認和刷新按鈕。4.1.2查詢功能實現(xiàn)1.按課程號精確查找代碼如下：Private Sub Command5_Click()按課程號查詢記錄Dim BMBM = Data1.Recordset.BookmarkDatal.Recordse

16、t.FindFirst CourseID= & Text7.Text & If Data1.Recordset.NoMatch ThenMsgBox (沒有符合條件的記錄)Data1.Recordset.Bookmark = BMEnd IfEnd Sub該查詢方法用到data控件的findfirst方法，如果在數(shù)據(jù)庫中找到記錄則將指針指向匹配的記錄，若沒找 至U，則提示用戶未找到記錄。2.按課程名模糊查找代碼如下：Private Sub Command6_Click()按課程名模糊查詢第一條記錄Dim BMBM = Data1.Recordset.BookmarkData1.Recordse

17、t.FindFirst CourseName Like & * & Text8.Text & *If Data1.Recordset.NoMatch ThenMsgBox (沒有符合條件的記錄)Data1.Recordset.Bookmark = BMEnd IfEnd SubPrivate Sub Command7_Click()按課程名模糊查詢下一條記錄Dim BMBM = Data1.Recordset.BookmarkData1.Recordset.FindNext CourseName Like & * & Text8.Text & *If Data1.Recordset.NoMat

18、ch ThenMsgBox (沒有符合條件的記錄)Data1.Recordset.Bookmark = BMEnd IfEnd SubPrivate Sub Command8_Click()按課程名模糊查詢上一條記錄Dim BMBM = Data1.Recordset.BookmarkData1.Recordset.FindPrevious CourseName Like & * & Text8.Text & *If Data1.Recordset.NoMatch ThenMsgBox (沒有符合條件的記錄)Data1.Recordset.Bookmark = BMEnd IfEnd SubP

19、rivate Sub Command9_Click()按課程名模糊查詢最后一個條記錄Dim BMBM = Data1.Recordset.BookmarkData1.Recordset.FindLast CourseName Like & * & Text8.Text & *If Data1.Recordset.NoMatch ThenMsgBox (沒有符合條件的記錄)Datal.Recordset.Bookmark = BMEnd IfEnd Sub4.1.3添加記錄功能實現(xiàn)代碼如下：Private Sub Command10_Click()添加新的記錄Data1.Recordset.Ad

20、dNewCommand10.Enabled = FalseCommand11.Enabled = FalseCommand14.Enabled = FalseCommand12.Enabled = TrueCommand13.Enabled = FalseEnd Sub添加新紀錄的方法是通過一個鼠標點擊事件觸發(fā)，在該事件中用到了 data控件中的Addnew方法。并在寫完記 錄后，還應添加一個按鈕來進行確認，該按鈕觸發(fā)的事件代碼如下：Private Sub Command12_Click()確認對記錄的添加或修改或刪除Data1.Recordset.UpdateCommand10.Enable

21、d = TrueCommand11.Enabled = TrueCommand14.Enabled = TrueCommand12.Enabled = FalseCommand13.Enabled = FalseEnd Sub4.1.4修改記錄功能實現(xiàn)修改記錄是通過data控件中的Edit方法來實現(xiàn)的，同時在數(shù)據(jù)庫中更新，代碼如下：Private Sub Command11_Click()修改已有的記錄Data1.Recordset.EditCommand10.Enabled = FalseCommand11.Enabled = FalseCommand14.Enabled = FalseCommand12.Enabled = TrueCommand13.Enabled = FalseEnd Sub4.1.5刪除記錄功能實現(xiàn)刪除記錄實現(xiàn)提供用戶一個對話框，詢問用戶是否刪除當前記錄，如果用戶點是，則進行刪除，點擊否的話不 進行任何操作，用到的方法是data控件的Delete方法。詳細代碼如下：Private Sub Command14_Click(