1、數據庫課程設計報告論文（設計）題目：學 院、 系: 專 業（方向）: 年 級、 班: 學 生 姓名: 學號:指 導 教師:數據庫課程設計信息工程學院電子商務2014級電子商務二班張娟201407050259張旭東1弓I 言2簡 介SQL語言介紹1錯誤!未定義書簽。23需求分析 33.1項目開發目標33.2系統的運行環境 34系統總體設計34.1系統總體設計框圖 34.2系統功能模塊設計 45數據庫設計 55.1 ER模型的設計55.2數據庫邏輯結構設計 65.3數據庫物理設計 66系統詳細設計86.1數據庫及表創建 86.2創建工程項目 96.3主窗體的建立 106.3.1 用戶登陸模塊 11

2、6.3.2 新生注冊窗體 126.3.3 成績修改窗體 146.3.4 成績輸入窗體 156.3.5 學生檔案管理 166.3.6 學生課程管理167系統測試與分析 177.1測試實例研究與選擇 177.2性能分析1718結束語參考文獻18附錄191 引 言學生信息管理系統是一個教育單位不可缺少的部分 ，它的內容對于學校的決策 者和管理者來說都至關重要，所以學生學生成績管理系統應該能夠為用戶提供充足 的信息和快捷的查詢手段。但一直以來人們使用傳統人工的方式管理文件學生成 績，這種管理方式存在著許多缺點，如：效率低、保密性差，另外時間一長，將產生大 量的文件和數據，這對于查找、更新和維護都帶來了

3、不少的困難 。隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認 識,它已進入人類社會的各個領域并發揮著越來越重要的作用。作為計算機應用的一部分，使用計算機對學生學生成績信息進行管理，具有著手 工管理所無法比擬的優點例如:檢索迅速、查找方便、可靠性高、存儲量大、保密 性好、壽命長、成本低等。這些優點能夠極大地提高學生學生成績管理的效率，也是企業的科學化、正規化管理，與世界接軌的重要條件。因此，開發這樣一套管理軟件成為很有必要的事情。結合上述要求，在基于 SQL200C數據庫技術以及面向對象的編程技術的基礎上，研究了這套學生信息管理 系統。該系統可以實現學生基本信息的管理和成

4、績管理，并可實現多用戶登陸。由于時間緊迫、掌握技術有限等條件限制，本系統可能還存在著一些不足之外， 敬請老師同學批評指導。2 .SQL語言介紹SQL是英文Structured Query Language的縮寫，意思為結構化查詢語言,是訪 問數據庫的標準語言。SQL語言的主要功能就是同各種數據庫建立聯系，進行溝通。按照 ANSI (美國 國家標準協會)的規定，SQL被作為關系型數據庫管理系統的標準語言。SQL語句 可以用來執行各種各樣的操作，例如更新數據庫中的數據，從數據庫中提取數據等。目前，絕大多數流行的關系型數據庫管理系統， 如Oracle, Sybase, Microsoft SQLSe

5、rver, Access等都采用了 SQL語言標準。雖然很多數據庫都對 SQL語句進行 了再開發和擴展，但是包括 Select, Insert, Update, Delete, Create,以及 Drop 在內的標準的SQL命令仍然可以被用來完成幾乎所有的數據庫操作。SQL語言是一種非過程化語言，它一次處理一個記錄集合，對數據提供自動導 航。SQL語言允許用戶在高層的數據結構上工作，而不對單個記錄進行操作。SQL語言不要求用戶指定數據的存取方法，而是使用查詢優化器，由系統決定對指定數 據存取的最快速手段。當設計者在關系表上定義了索引時，系統會自動利用索引進 行快速檢索，用戶不需知道表上是否有

6、索引或者有什么類型的索引等細節。SQL語言可以完成許多功能，例如：(1) 查詢數據；(2) 在數據庫表格中插入、修改和刪除記錄；(3) 建立、修改和刪除數據對象；(4) 控制對數據和數據對象的存取；(5) 確保數據庫的一致性和完整性等。值表達式WHERE條件表達式3 .需求分析3.1項目開發目標學生信息管理系統是面向教育部門的學生管理事務，包括學生基本信息管理，學生成績管理等工作，是利用計算機進行集中管理而開發的系統。根據學生信息管理的需求和特點，該系統實施后，應達到以下目標：(1) 靈活地運用表格輸入數據，使信息傳遞更快捷；(2) 系統采用人機對話方式，界面美觀友好、數據存儲安全可靠；(3)

7、 鍵盤操作，快速響應；(4) 實現各種信息的添加、刪除、修改、查詢等；(5) 系統運行穩定、安全可靠。3.2系統的運行環境此系統，代碼使用VB語言編寫，數據庫管理系統采用 SQL 2012數據庫管理系統， 運行在 Windows 2010系統下。系統總體設計1. 系統總體設計框圖用戶信息管理用戶信息添加用戶密碼修改學生信息管理學生信息管理系統學生成績管理課程信息管理學生信息添加 學生信息修改 學生信息刪除 學生信息查詢學生成績添加 學生成績修改 學生成績刪除 學生成績查詢課程信息添加課程信息修改課程信息刪除課程信息查詢2系統功能模塊設計系統功能包括可視化窗口，對各種信息的添加、修改、刪除和查詢

8、等具體功能如圖4.2所示。數據庫設計1. ER模型的設計畢業生就業管理系統概念結構設計是在系統的需求分析、數據流程圖和數據字典基礎上的抽象，結合聯系ER模型的設計方法，進行如下概要結構設計。為了使ER圖表示得更加清晰，將E-R圖分成實體屬性ER圖及實體聯系ER圖。(1) 用實體及其屬性的部分ER圖表示數據庫系統的概念模型。學生信息實體ER圖，如圖5.1所示:班級信息實體ER圖，如圖5.2所示:班級信息實體ER圖，如圖5.3所示:用戶實體ER圖，如圖5.4所示:用實體及其聯系的部分用戶信息實體ER圖表示數據庫系統的概念模型,實體之間ER圖，如圖5.5所示:成績2 .數據庫邏輯結構設計邏輯設計的目

9、的是把概念數據模型轉化為數據庫管理系統可以處理的邏輯模型。也 即將由ER圖表示的概念模型轉換為DBMSS用的邏輯模型，如關系模型，然后對其進行 優化。以關系模型為目標的邏輯結構設計方法是將ER實體圖中概念模型映射為關系模型，并且包括一組關系定義，映射的步驟如下：(1) 把ER實體圖中的每個實體變換為一個關系模型。(2) 變換每個關系：多對多模型需要加一個單獨的關系模型；而一對一的或者一對多的 聯系可用在實體中增加屬性(此處為外鍵)來模型化。(3) ER圖中的屬性可轉換為關系的屬性。3.數據庫物理設計系統中的數據表如下所示：(1)系統用戶數據表(用戶表)記錄系統所有用戶名和密碼信息，表中的各個字

10、段以及各個字段的說明如表5.1所示:字段名稱數據類型字節數說明用戶名文本6主鍵密碼文本6非空(2)學生信息表記錄學生學號、 的說明如表5.2所示：姓名等基本信息，表中的各個字段以及各個字段字段名稱數據類型字節數說明學號文本9主鍵姓名文本10允許空性另U文本2允許空年齡數值4允許空系另U文本20允許空(3)學生成績表記錄學生學號、課程號及相關的成績，表中各個字段以及各個字 段的說明如表5.3所示字段名稱數據類型字節數說明學號文本6主鍵】田千口 i=r.課程號文本4主鍵成績數值4允許空(4)課程信息表記錄課程 說明如表5.4所示：號、課程名等相關信息，表中各個字段以及各個字段的字段名稱數據類型字節

11、數說明】田千口 i=r.課程號文本4主鍵課程名文本20允許空先行課文本4允許空學分數值2允許空(5)學生專業表記錄學號、姓名、專業等相關信息，表中各個字段以及各個字段的說明如表5.5所示：字段名稱數據類型字節數說明學號文本6主鍵姓名文本4主鍵專業文本255允許空系統詳細設計1.數據庫及表創建啟動SQL2000 Server，右擊“數據庫”點擊“新建數據庫”，在彈出的“數據庫屬 性”對話框中可鍵入數據庫名及其它其它信息，如圖6.1所示：數據庫創建完畢后，點擊可打開。右擊“表”選擇“新建表”，可以進行表的創建以及進行相關的表屬性設置，如圖 6.2所示：71設計表,位蓋是“學生蓿息中、1列名散據類型

12、栓摩允許空achar9char10charint45 deptchar,可對表進行添加、創建元表后右擊對應表名“打開表“返回所有行修改、插入、刪除等相應編輯操作，如圖6.3所示：<ira2CCE1512L200E15122.2002151S320CE15125p 一 ”2002151a-_4ctuzjnjBBBbtntJMn2D19192L!yJJ2. 創建工程項目(1) 啟動VB 6.0，出現VB6.0運行界面，如圖6.4所示:(2) 點擊“文件”一一“保存工程”保存當前工程文件。3. 主窗體的建立工程主窗體在VB程序設計中，主界面負責應用程序的主界面，由它調用其它模塊。因此，主 界面

13、應該具有操作性好、界面清晰、使用戶能夠很方便地找到所需功能的特點。系統的 主界面部在相應的系統菜單組成，用戶只需點擊相應的菜單使可調出對應的系統模塊。 相應代碼：Private Sub cha ngecj_Click()Form6.ShowEnd SubPrivate Sub cjshuru_Click()Form7.ShowEnd SubPrivate Sub dispcj_Click()Form5.ShowEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub n ewuser_Click()Form11.ShowEnd SubPrivat

14、e Sub n ewusr_Click()FormlO.ShowEnd SubPrivate Sub stucase_Click()Form3.ShowEnd SubPrivate Sub xskcgl_Click()Form9.ShowEnd SubPrivate Sub xueshe ndagl_Click()Form8.ShowEnd SubPrivate Sub xueshe ngcx_Click()Form4.ShowEnd Sub3.1用戶登陸模塊本模塊共有三個部分組成：用戶登陸窗體、密碼修改窗體、新用戶注冊窗體。用戶登陸窗體主要由文本框及命令按鈕組成，利用 Adodc控件及Dat

15、aGrid控件實 現程序代碼與SQL數據的連接（如圖6.6所示）。用戶鍵入用戶名及密碼后點擊“確定” 按鈕系統會通過上述兩個控件與數據庫進行連接并進行數據的比較， 如果存在該用戶及 密碼正確則會進行系統跳轉進行主控制界面， 否則會提示用戶出錯，重新輸入用戶名及 密碼，次數無限制。默認用戶名為：admi n,默認密碼為：123456用戶登陸窗口密碼修改窗體及新用戶注冊窗體及登陸窗體的控件組成大致相同，這里不再詳述用戶登陸代碼：Dim user name As String, userpass As StringPrivate Sub Comma nd1_Click()& Text1 &a

16、mp; "”')MsgBox "無此用戶，請重新輸入！"Exit SubElseIf Text2 = Trim(abc) The nMsgBox "歡迎使用本系統，點擊進入！", vbOKO nly,"登陸"Me.HideForm2.ShowElseMsgBox "用戶名或密碼不正確，請重新輸入！"Text1 =""Text2 =""Exit SubEnd IfEnd IfEnd SubPrivate Sub Comma nd2_Click()EndEnd

17、Sub3.2新生注冊窗體點擊“新生注冊”一一“學生檔案”可打開本窗體，本窗體專門為新生注冊使用。通過 ADOD控件實現本窗體與數據庫學生表的連接，文本框默認不可編輯，用戶點擊“添加 記錄”按系統提示可自動完成添加。如圖 6.7所示對應代碼：Private Sub Comma nd1_Click（）Text1 = InputBox（" 請輸入學生學號","添加學號"）Text2 = InputBox（" 請輸入學生姓名","添加姓名"）Text3 = InputBox（" 請輸入學生注冊窗口 "添

18、加性別"）Text4 = InputBox（" 請輸入學生年齡","添加年齡"）If Not lsNumeric（Text4） The nMsgBox "請輸入數值"Text4.SetFocusEnd IfText5 = InputBox（" 請輸入學生系別","添加系別"）resu = MsgBox（"確認添加到數據庫", vbOKCancel," 確認添加"）If resu = vbOK The nElseEnd IfEnd SubPriva

19、te Sub Comma nd2_Click（）Me.HideForm2.ShowEnd Sub3.3 成績修改窗體成績修改窗體本窗體通過ADOD控件連接數據庫的成績表，默認條件下文本都不可編輯，用戶 可以點擊上一條、下一條進行表的瀏覽操作。點擊“確認修改記錄”按鈕，成績文本框 變為可編輯狀態，用戶根據系統提示可完成記錄修改操作。如果鍵入的成績小0,則系統提示出錯，并自動將出錯成績重置為60分。相應代碼：Private Sub Adodc1_MoveComplete(ByValadReasonAs ADODB.EventReasonEnunByVal pError As ADODB.Error

20、, adStatus As ADODB.Eve ntStatusE num, ByVal pRecordset As ADODB. Recordset)&"/"&End SubPrivate Sub Comma nd1_Click(l ndex As In teger)Select Case In dexCase 0第一條Case 1上一條Case 2下一條Case 3Adodc1.Recordset.MoveLast'Case 4最后一條Dim mno As Stri ngmno = InputBox("請輸入學號","

21、;查找窗")'Adodc1 .R ecordset.MoveFirst'將輸入值存到變量內移動記錄指針到第一條記錄上Adodc1. Recordset.Fi nd ("s no=” & mno & "”)'IfAdodc1.Recordset.EOFThe nMsgBox用.Find方法查找指定科目" 無此學號!"&提示"End SelectEnd SubPrivate Sub Comma nd2_Click()End Sub3.4成績輸入窗體添加成績窗體本窗體通過控件與文本框與數據庫成

22、績表實現連接，文本框默認不可編輯，但可 以實現成績的瀏覽功能。用戶點擊“添加成績”按鈕，按照系統提示可完成成績的添加 操作。由于成績表已經與學生表以及課程表建立了完整性約束，所以如果用戶鍵入的學號或者課程號不存在則將會提示用戶出錯，并且重新輸入。3.5學生檔案管理學生檔案管理本窗體通過ADOD控件連接數據庫的學生表，可以實現對學生檔案的添加、刪除、 修改、查詢以及瀏覽操作。控件在程序運行時不可見，但卻必不可少。用戶點擊上一條、 下一條可以實現記錄的瀏覽，且內容不可編輯。查詢記錄時，只有查詢條件及查詢內容 都有修改的時候，查詢按鈕才可用， 否則不可用。修改或者刪除記錄選項與確定按鈕相 連接，由于

23、采用單選按鈕，故某一時刻只能實現某一種操作。執行該操作時記錄內容不 可編輯。3.6學生課程管理本窗體通過ADOD控件連接數據庫的課程表，可以實現對課程系統的添加、刪除、 修改、查詢以及瀏覽操作。控件在程序運行時不可見，但卻必不可少。用戶點擊上一條、 下一條可以實現記錄的瀏覽，且內容不可編輯。查詢記錄時，只有查詢條件及查詢內容 都有修改的時候，查詢按鈕才可用，否則不可用。 修改或者刪除記錄選項與確定按鈕相 連接，由于采用單選按鈕，故某一時刻只能實現某一種操作。執行該操作時記錄內容不 可編輯。系統測試與分析軟件測試是為了發現錯誤而執行程序的過程， 其目的在于以最少的時間和人力系統 地找出軟件中潛在

24、的各種錯誤和缺陷。 測試主要是由人而不是由機器執行， 因而存在心 理學的問題。1 測試實例研究與選擇由于軟件錯誤的復雜性，軟件測試需要綜合應用測試技術，軟件測試步驟為單元測 試、集成測試、確認測試和系統測試。單元測試是對源程序中每一個程序單元進行測試，檢查各個模塊是否正確實現了規定的功能， 從而發現模塊在編碼中或算法中的錯誤。 該階段涉及編碼和詳細設計的文檔生成績管理塊經過單元測試后，將各模塊組裝起來進行集 成測試，以檢查與設計相關的軟件體系結構的有關問題。確認測試主要檢查已實現的軟 件是否滿足需求規格說明書中確定的各種需求。 系統測試將已確定的軟件與其他系統元 素（如硬件、其他支持軟件、數據

25、和人工等）結合在一起進行測試。本系統是管理系統，主要是從數據庫中讀取數據，因而測試的實例主要是實現與數 據相關的各種操作。應用白盒測試法中的語句覆蓋方法使得程序中的每條語句都執行一 次。2 .性能分析測試過程中發現了不合適或不相容的類型說明； 有的變量無初值；有的變量初始化 或缺省值有錯；有的變量名不正確的（拼錯或不正確地截斷）；出現上溢、下溢和地址異常等問題，并逐個予以解決，保證了臨時存儲在模塊內的數據在程序執行過程中完整、 正確。本系統長時間不間斷連續運行不會出現錯誤，系統不會出現系統故障，不會出現嚴重的錯誤，并且由于有較高的容錯技術，能較快的糾正意外錯誤，使系統穩定可靠。本系統能夠準確，

26、快速的處理學生信息管理的操作事務，能夠滿足管理者的需求， 并大大減少了教務管理者的信息查詢及維護的麻煩，實現日常處理計算機化，使系統簡單實用。系統程序代碼中設計了判斷語句，用來判斷操作錯誤時彈出報錯對話框， 在系統中 設置了權限判斷，使數據具有一定的保密性，增加了系統的安全性。本系統的功能還不是很完善，系統的界面設計的還有些簡單，樣式還不是特別美觀， 有待于進一步設計；系統設計中后臺數據庫應用 SQL server，結合VB程序設計使操作 更簡單，理解更方便。經過系統的性能測試得出，本系統雖然有一定的缺陷和限制， 但本系統的具體功能 能夠完整實現，所以本系統可以投入到現實應用中。結束語本次課程

27、設計是我第一次系統的、完整的接觸軟件設計的過程。我做的是學生信息 管理系統。在這次課程設計中，我體會很深，也學會了很多東西，懂得很多以前不懂的 東西，也明白了一些事情。通過此次數據庫的課程設計，真正達到了學與用的結合，增強了對數據庫方面應用 的理解，對自己今后參與開發數據庫系統積累了不少經驗，在實驗過程中，從建立數據開始，對數據庫設計理念及思想上有更高的認識， 從需求分析，到概念設計和邏輯設計， E-R圖的表示，數據字典的創建，懂得了不少有關數據庫開發過程中的知識，在實驗中 建表，及其關系模式，關系代數的建立及理解，將 SQL語言的查詢語句用得淋漓盡致， 增強了自己在數據庫中應用SQL語言的靈

28、活性，其中包括插入、刪除、修改、查詢 ，牽 涉表和表之間的聯系，主建與外鍵的定義，約束項的設置，使邏輯更嚴密，在學習過程 中，我也上網查了不少資料，也看了一些別人設計的圖書館管理信息系統的設計報告， 學以致用，自我創新，獨立完成了這份自己的報告，從學到用，從用又到學，不斷修改， 系統更新。課程設計結束了，但我不會忘記在這次課程設計中我所得到的。 我深深的體會到了 這幾句話：認真做事只是把事情做對， 用心做事才能把事情做好。把每一件簡單的事情 做好就是不簡單，把第一件平凡的事情做好就是不平凡。 在以后的學習中我會不斷的在 實際中應用這幾句話，我要不斷的總結，不斷的改進，不斷的努力，使自己的成績提

29、高。參考文獻1 薩師煊，王珊，數據庫系統概論，高等教育出版社，2002，2： 1-1502003， 7: 27-502005， 11： 10-302 張來寅，譚明勇，數據庫系統原理與應用，冶金工業出版社,3 梁燦，趙艷澤，SQL數據庫應用基礎教程，清華大學出版社,20054 柴欣，武優西，Visual Basic程序設計基礎（第三版），北京：中國鐵道出版社,用戶登陸窗口代碼:Dim user name As String, userpass As StringPrivate Sub Comma nd1_Click()& Text1 & "”')MsgBox &

30、quot;無此用戶，請重新輸入！”Exit SubElseIf Text2 = Trim(abc) The n登陸”MsgBox "歡迎使用本系統，點擊進入！", vbOKOnly,"Me.HideForm2.ShowElseMsgBox "用戶名或密碼不正確，請重新輸入！”Text1 =""Text2 =""Exit SubEnd IfEnd IfEnd SubPrivate Sub Comma nd2_Click()EndEnd Sub添加記錄代碼：Private Sub Comma nd1_Click()Te

31、xt1 =In putBox("請輸入學生學號","添加學號")Text2 =In putBox("請輸入學生姓名","添加姓名")Text3 =In putBox("請輸入學生性別","添加性別")Text4 =In putBox("請輸入學生年齡","添加年齡")If Not lsNumeric(Text4) ThenMsgBox "請輸入數值”Text4.SetFocusEnd If確認添加")Text5 =

32、InputBox("請輸入學生系別","添加系別")resu = MsgBox(" 確認添加到數據庫 ", vbOKCa ncel," If resu = vbOK The nElseEnd IfEnd SubPrivate Sub Comma nd2_Click()Me.HideForm2.ShowEnd Sub學生查詢代碼：Private Sub Comma nd1_Click()If Text1 = "" The nMsgBox "請輸入查詢條件”Text1.SetFocusEnd IfI

33、f Optio n1.Value = True The n& Text1 & ""')沒有該學生ElseIf Optio n2.Value = True The n& Text1 & ""')End IfEnd SubPrivate Sub Optio n1_Click()Text2 =""End SubPrivate Sub Optio n2_Click()Text1 =""End Sub成績查詢代碼：Private Sub Comma nd1_Click()If

34、Text4 = "" The nMsgBox "請輸入查詢的學號”Text4.SetFocusEnd Ifabcd = "Sno='" & Text4 & "”MsgBox "沒有該學生記錄”Text4.SetFocusEnd IfEnd SubPrivate Sub Text4_Cha nge()If Len(Text4) > 0 ThenComma nd1.E nabled = TrueElseComma nd1.E nabled = FalseEnd IfEnd Sub修改記錄代碼：Pri

35、vate Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum,ByVal pError AsADODB.Error, adStatus As ADODB.Eve ntStatusE num, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Comma nd1_Click(l ndex As In teger)Select Case In dexCase 0第一條Case 1上一條Case 2下一條Case 3最后一條Case 4Dim mno As Stri

36、 ngmno = InputBox("請輸入學號","查找窗")'將輸入值存到變量內移動記錄指針到第一條記錄上& mno & ""')'用.Find 方法查找指定科目無此學號!" & 提示"End SelectEnd SubPrivate Sub Comma nd2_Click()End Sub成績添加代碼：Private Sub Comma nd1_Click()Dim adc As Stri nga: Text1 = InputBox("輸入學生學號&q

37、uot;,"添加成績")mm = Len( Text1)For i = 1 To mmabc = Mid(Text1, i, 1)If abc < "0" Or abc > "9" ThenMsgBox "輸入格式不正確請重新輸入”GoTo aEnd IfNext ib: Text2 = InputBox("輸入課程號","添加成績”)mm = Len( Text2)For i = 1 To mmabc = Mid(Text2, i, 1)If abc < "0&qu

38、ot; Or abc > "9" ThenMsgBox "輸入格式不正確請重新輸入”GoTo bEnd IfNext ic: Text3 = InputBox("輸入學生成績","添加成績”)mm = Len( Text3)For i = 1 To mmabc = Mid(Text3, i, 1)If abc < "0" Or abc > "9" ThenMsgBox "輸入格式不正確請重新輸入”GoTo aEnd IfNext iresu = MsgBox(" 確認添加數據庫？", vbOKOnly," 確認添加"