學生信息管理系統(tǒng)設(shè)計

1、數(shù) 據(jù) 庫課 程 設(shè) 計 報 告論文（設(shè)計）題目： 數(shù)據(jù)庫課程設(shè)計 學 院、 系： 信息工程學院 專 業(yè) (方 向）： 電子商務 年 級、 班: 2014級電子商務二班 學 生 姓 名：張 娟學 號: 201407050259 指 導 教 師: 張旭東 目 錄1 引言12 簡介2SQL語言介紹63 需求分析83。1項目開發(fā)目標83。2系統(tǒng)的運行環(huán)境84 系統(tǒng)總體設(shè)計94.1系統(tǒng)總體設(shè)計框圖94。2系統(tǒng)功能模塊設(shè)計95 數(shù)據(jù)庫設(shè)計115.1 ER模型的設(shè)計115。2 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計125。3 數(shù)據(jù)庫物理設(shè)計126 系統(tǒng)詳細設(shè)計146.1 數(shù)據(jù)庫及表創(chuàng)建146。2 創(chuàng)建工程項目156。3主窗體

2、的建立156.3。1用戶登陸模塊176.3。2 新生注冊窗體186.3。3 成績修改窗體196.3。4 成績輸入窗體216。3。5 學生檔案管理216.3。6 學生課程管理227 系統(tǒng)測試與分析237.1 測試實例研究與選擇237。2性能分析23結(jié)束語24參考文獻26附錄27 1 . 引 言學生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學校的決策者和管理者來說都至關(guān)重要，所以學生學生成績管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件學生成績，這種管理方式存在著許多缺點，如:效率低、保密性差，另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù)，這對于

3、查找、更新和維護都帶來了不少的困難1。隨著科學技術(shù)的不斷提高，計算機科學日漸成熟,其強大的功能已為人們深刻認識，它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 作為計算機應用的一部分，使用計算機對學生學生成績信息進行管理，具有著手工管理所無法比擬的優(yōu)點.例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學生學生成績管理的效率，也是企業(yè)的科學化、正規(guī)化管理，與世界接軌的重要條件。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情。結(jié)合上述要求，在基于SQL2000數(shù)據(jù)庫技術(shù)以及面向?qū)ο蟮木幊碳夹g(shù)的基礎(chǔ)上，研究了這套學生信息管理系統(tǒng)。該系統(tǒng)可以實現(xiàn)學

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

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

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

7、作,快速響應；（4)實現(xiàn)各種信息的添加、刪除、修改、查詢等;(5）系統(tǒng)運行穩(wěn)定、安全可靠.3。2系統(tǒng)的運行環(huán)境此系統(tǒng),代碼使用VB語言編寫，數(shù)據(jù)庫管理系統(tǒng)采用SQL2012數(shù)據(jù)庫管理系統(tǒng),運行在Windows2010系統(tǒng)下。系統(tǒng)總體設(shè)計1。系統(tǒng)總體設(shè)計框圖學生信息管理學生信息添加學生信息修改學生信息刪除學生信息查詢學生成績管理學生成績添加學生成績修改學生成績刪除學生成績查詢課程信息管理課程信息添加課程信息修改課程信息刪除課程信息查詢用戶信息管理用戶信息添加用戶密碼修改學生信息管理系統(tǒng)2.系統(tǒng)功能模塊設(shè)計系統(tǒng)功能包括可視化窗口，對各種信息的添加、修改、刪除和查詢等具體功能如圖4。2所示.學生信息

8、管理系統(tǒng)學生成績管理學生信息管理課程信息管理用戶信息管理數(shù)據(jù)庫設(shè)計1. ER模型的設(shè)計畢業(yè)生就業(yè)管理系統(tǒng)概念結(jié)構(gòu)設(shè)計是在系統(tǒng)的需求分析、數(shù)據(jù)流程圖和數(shù)據(jù)字典基礎(chǔ)上的抽象，結(jié)合聯(lián)系ER模型的設(shè)計方法，進行如下概要結(jié)構(gòu)設(shè)計.為了使ER圖表示得更加清晰，將ER圖分成實體屬性ER圖及實體聯(lián)系ER圖。(1) 用實體及其屬性的部分ER圖表示數(shù)據(jù)庫系統(tǒng)的概念模型。學生信息實體ER圖，如圖5。1所示：學生信息實體學號姓名性別年齡系別班級信息實體ER圖，如圖5。2所示：學生成績實體學號課程號成績班級信息實體ER圖,如圖5.3所示：課程信息實體課程號課程名先行課學分用戶實體ER圖,如圖5。4所示:用戶名用戶信息實

9、體密碼學生考試選修課程mn成績(2) 用實體及其聯(lián)系的部分ER圖表示數(shù)據(jù)庫系統(tǒng)的概念模型，實體之間ER圖,如圖5。5所示：1n所屬112 。數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計3邏輯設(shè)計的目的是把概念數(shù)據(jù)模型轉(zhuǎn)化為數(shù)據(jù)庫管理系統(tǒng)可以處理的邏輯模型。也即將由ER圖表示的概念模型轉(zhuǎn)換為DBMS通用的邏輯模型，如關(guān)系模型，然后對其進行優(yōu)化。以關(guān)系模型為目標的邏輯結(jié)構(gòu)設(shè)計方法是將ER實體圖中概念模型映射為關(guān)系模型，并且包括一組關(guān)系定義，映射的步驟如下:(1)把ER實體圖中的每個實體變換為一個關(guān)系模型。（2）變換每個關(guān)系：多對多模型需要加一個單獨的關(guān)系模型；而一對一的或者一對多的聯(lián)系可用在實體中增加屬性（此處為外鍵）來模

10、型化.（3）ER圖中的屬性可轉(zhuǎn)換為關(guān)系的屬性。3 .數(shù)據(jù)庫物理設(shè)計系統(tǒng)中的數(shù)據(jù)表如下所示：（1）系統(tǒng)用戶數(shù)據(jù)表（用戶表)記錄系統(tǒng)所有用戶名和密碼信息,表中的各個字段以及各個字段的說明如表5。1所示：字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明用戶名文本6主鍵密 碼文本6非空（2）學生信息表記錄學生學號、姓名等基本信息，表中的各個字段以及各個字段的說明如表5。2所示:字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明學 號文本9主 鍵姓 名文本10允許空性 別文本2允許空年 齡數(shù)值4允許空系 別文本20允許空(3) 學生成績表記錄學生學號、課程號及相關(guān)的成績，表中各個字段以及各個字段的說明如表5。3所示字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明學 號文

11、本6主 鍵課程號文本4主 鍵成 績數(shù)值4允許空(4) 課程信息表記錄課程號、課程名等相關(guān)信息,表中各個字段以及各個字段的說明如表5.4所示：字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明課程號文本4主 鍵課程名文本20允許空先行課文本4允許空學 分數(shù)值2允許空（5）學生專業(yè)表記錄學號、姓名、專業(yè)等相關(guān)信息，表中各個字段以及各個字段的說明如表5。5所示:字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明學 號文本6主 鍵姓 名文本4主 鍵專 業(yè)文本255允許空 系統(tǒng)詳細設(shè)計1. 數(shù)據(jù)庫及表創(chuàng)建啟動SQL2000 Server,右擊“數(shù)據(jù)庫”點擊“新建數(shù)據(jù)庫”，在彈出的“數(shù)據(jù)庫屬性”對話框中可鍵入數(shù)據(jù)庫名及其它其它信息，如圖6。1所示:數(shù)據(jù)

12、庫創(chuàng)建完畢后，點擊可打開。右擊“表”選擇“新建表”，可以進行表的創(chuàng)建以及進行相關(guān)的表屬性設(shè)置，如圖6。2所示:創(chuàng)建完表后右擊對應表名-“打開表”“返回所有行",可對表進行添加、修改、插入、刪除等相應編輯操作，如圖6。3所示：2. 創(chuàng)建工程項目(1) 啟動VB 6.0，出現(xiàn)VB6.0運行界面,如圖6。4所示：(2) 點擊“文件”-“保存工程"保存當前工程文件。3。主窗體的建立 工程主窗體在VB程序設(shè)計中，主界面負責應用程序的主界面，由它調(diào)用其它模塊.因此,主界面應該具有操作性好、界面清晰、使用戶能夠很方便地找到所需功能的特點。系統(tǒng)的主界面部在相應的系統(tǒng)菜單組成，用戶只需點擊相

13、應的菜單使可調(diào)出對應的系統(tǒng)模塊.相應代碼:Private Sub changecj_Click（)Form6。ShowEnd SubPrivate Sub cjshuru_Click(）Form7。ShowEnd SubPrivate Sub dispcj_Click（）Form5。ShowEnd SubPrivate Sub exit_Click（)EndEnd SubPrivate Sub newuser_Click(）Form11。ShowEnd SubPrivate Sub newusr_Click（）Form10。ShowEnd SubPrivate Sub stucase_Clic

14、k（）Form3.ShowEnd SubPrivate Sub xskcgl_Click()Form9。ShowEnd SubPrivate Sub xueshendagl_Click（）Form8。ShowEnd SubPrivate Sub xueshengcx_Click(）Form4。ShowEnd Sub3。1 用戶登陸模塊本模塊共有三個部分組成：用戶登陸窗體、密碼修改窗體、新用戶注冊窗體。用戶登陸窗體主要由文本框及命令按鈕組成，利用Adodc控件及DataGrid控件實現(xiàn)程序代碼與SQL數(shù)據(jù)的連接（如圖6。6所示)。用戶鍵入用戶名及密碼后點擊“確定"按鈕系統(tǒng)會通過上述兩個

15、控件與數(shù)據(jù)庫進行連接并進行數(shù)據(jù)的比較，如果存在該用戶及密碼正確則會進行系統(tǒng)跳轉(zhuǎn)進行主控制界面,否則會提示用戶出錯，重新輸入用戶名及密碼，次數(shù)無限制.默認用戶名為：admin，默認密碼為：123456 用戶登陸窗口密碼修改窗體及新用戶注冊窗體及登陸窗體的控件組成大致相同，這里不再詳述。用戶登陸代碼：Dim username As String， userpass As StringPrivate Sub Command1_Click(）Adodc1.Recordset.MoveFirstAdodc1。Recordset。Find （”userID=” & Text1 ”）If Adodc

16、1.Recordset。EOF ThenMsgBox "無此用戶,請重新輸入!”Exit SubElseabc = Adodc1。Recordset。Fields(1）If Text2 = Trim（abc） ThenMsgBox ”歡迎使用本系統(tǒng)，點擊進入！”, vbOKOnly， ”登陸"Me.HideForm2.ShowElseMsgBox ”用戶名或密碼不正確，請重新輸入!”Text1 = ”Text2 = ”Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub3。2 新生注冊窗體新生注冊

17、窗口點擊“新生注冊"-“學生檔案”可打開本窗體,本窗體專門為新生注冊使用。通過ADODC控件實現(xiàn)本窗體與數(shù)據(jù)庫學生表的連接,文本框默認不可編輯，用戶點擊“添加記錄”按系統(tǒng)提示可自動完成添加.如圖6.7所示對應代碼：Private Sub Command1_Click(）Adodc1。Recordset。AddNewText1 = InputBox(”請輸入學生學號”， "添加學號”）Text2 = InputBox（”請輸入學生姓名”， ”添加姓名"）Text3 = InputBox(”請輸入學生性別”， "添加性別”）Text4 = InputBox（

18、"請輸入學生年齡”, "添加年齡”）If Not IsNumeric(Text4） ThenMsgBox "請輸入數(shù)值"Text4.SetFocusEnd IfText5 = InputBox（”請輸入學生系別"， "添加系別”)resu = MsgBox（"確認添加到數(shù)據(jù)庫"， vbOKCancel, ”確認添加”)If resu = vbOK ThenAdodc1.Recordset.UpdateElseAdodc1。Recordset。DeleteEnd IfEnd SubPrivate Sub Comman

19、d2_Click（)Me。HideForm2。ShowEnd Sub3。3 成績修改窗體成績修改窗體本窗體通過ADODC控件連接數(shù)據(jù)庫的成績表，默認條件下文本都不可編輯，用戶可以點擊上一條、下一條進行表的瀏覽操作.點擊“確認修改記錄”按鈕,成績文本框變?yōu)榭删庉嫚顟B(tài),用戶根據(jù)系統(tǒng)提示可完成記錄修改操作.如果鍵入的成績小0,則系統(tǒng)提示出錯，并自動將出錯成績重置為60分。相應代碼:Private Sub Adodc1_MoveComplete（ByVal adReason As ADODB。EventReasonEnum, ByVal pError As ADODB.Error， adStatus

20、As ADODB。EventStatusEnum， ByVal pRecordset As ADODB。Recordset）Adodc1.Caption = Adodc1。Recordset。AbsolutePosition "/” Adodc1。Recordset。RecordCountEnd SubPrivate Sub Command1_Click（Index As Integer） Select Case Index Case 0 Adodc1。Recordset.MoveFirst 第一條 Case 1 Adodc1.Recordset。MovePrevious 上一條 I

21、f Adodc1.Recordset.BOF Then Adodc1.Recordset。MoveFirst Case 2 Adodc1.Recordset。MoveNext 下一條 If Adodc1。Recordset.EOF Then Adodc1。Recordset。MoveLast Case 3 Adodc1。Recordset.MoveLast ' 最后一條 Case 4 Dim mno As String mno = InputBox（"請輸入學號"， "查找窗"） 將輸入值存到變量內(nèi) Adodc1.Recordset。MoveFi

22、rst 移動記錄指針到第一條記錄上 Adodc1。Recordset。Find （”sno='” mno ”'”） 用。Find方法查找指定科目 If Adodc1。Recordset.EOF Then MsgBox ”無此學號!” Adodc1。Recordset。AbsolutePosition， ， ”提示” End SelectEnd SubPrivate Sub Command2_Click()Adodc1。Recordset。UpdateEnd Sub3。4 成績輸入窗體 添加成績窗體本窗體通過控件與文本框與數(shù)據(jù)庫成績表實現(xiàn)連接，文本框默認不可編輯,但可以實現(xiàn)成績的

23、瀏覽功能。用戶點擊“添加成績"按鈕,按照系統(tǒng)提示可完成成績的添加操作。由于成績表已經(jīng)與學生表以及課程表建立了完整性約束,所以如果用戶鍵入的學號或者課程號不存在則將會提示用戶出錯，并且重新輸入.3.5 學生檔案管理 學生檔案管理本窗體通過ADODC控件連接數(shù)據(jù)庫的學生表，可以實現(xiàn)對學生檔案的添加、刪除、修改、查詢以及瀏覽操作.控件在程序運行時不可見，但卻必不可少.用戶點擊上一條、下一條可以實現(xiàn)記錄的瀏覽,且內(nèi)容不可編輯。查詢記錄時，只有查詢條件及查詢內(nèi)容都有修改的時候,查詢按鈕才可用，否則不可用。修改或者刪除記錄選項與確定按鈕相連接，由于采用單選按鈕,故某一時刻只能實現(xiàn)某一種操作。執(zhí)行

24、該操作時記錄內(nèi)容不可編輯。3。6 學生課程管理 學生成績管理本窗體通過ADODC控件連接數(shù)據(jù)庫的課程表，可以實現(xiàn)對課程系統(tǒng)的添加、刪除、修改、查詢以及瀏覽操作?？丶诔绦蜻\行時不可見，但卻必不可少。用戶點擊上一條、下一條可以實現(xiàn)記錄的瀏覽,且內(nèi)容不可編輯。查詢記錄時，只有查詢條件及查詢內(nèi)容都有修改的時候，查詢按鈕才可用，否則不可用.修改或者刪除記錄選項與確定按鈕相連接，由于采用單選按鈕,故某一時刻只能實現(xiàn)某一種操作.執(zhí)行該操作時記錄內(nèi)容不可編輯.系統(tǒng)測試與分析軟件測試是為了發(fā)現(xiàn)錯誤而執(zhí)行程序的過程，其目的在于以最少的時間和人力系統(tǒng)地找出軟件中潛在的各種錯誤和缺陷。測試主要是由人而不是由機器執(zhí)行

25、,因而存在心理學的問題。1 .測試實例研究與選擇由于軟件錯誤的復雜性，軟件測試需要綜合應用測試技術(shù),軟件測試步驟為單元測試、集成測試、確認測試和系統(tǒng)測試。 單元測試是對源程序中每一個程序單元進行測試,檢查各個模塊是否正確實現(xiàn)了規(guī)定的功能，從而發(fā)現(xiàn)模塊在編碼中或算法中的錯誤。該階段涉及編碼和詳細設(shè)計的文檔.各模塊經(jīng)過單元測試后，將各模塊組裝起來進行集成測試，以檢查與設(shè)計相關(guān)的軟件體系結(jié)構(gòu)的有關(guān)問題。確認測試主要檢查已實現(xiàn)的軟件是否滿足需求規(guī)格說明書中確定的各種需求.系統(tǒng)測試將已確定的軟件與其他系統(tǒng)元素（如硬件、其他支持軟件、數(shù)據(jù)和人工等）結(jié)合在一起進行測試。本系統(tǒng)是管理系統(tǒng),主要是從數(shù)據(jù)庫中讀取

26、數(shù)據(jù)，因而測試的實例主要是實現(xiàn)與數(shù)據(jù)相關(guān)的各種操作。應用白盒測試法中的語句覆蓋方法使得程序中的每條語句都執(zhí)行一次。2 .性能分析測試過程中發(fā)現(xiàn)了不合適或不相容的類型說明;有的變量無初值；有的變量初始化或缺省值有錯；有的變量名不正確的(拼錯或不正確地截斷);出現(xiàn)上溢、下溢和地址異常等問題,并逐個予以解決，保證了臨時存儲在模塊內(nèi)的數(shù)據(jù)在程序執(zhí)行過程中完整、正確.本系統(tǒng)長時間不間斷連續(xù)運行不會出現(xiàn)錯誤，系統(tǒng)不會出現(xiàn)系統(tǒng)故障，不會出現(xiàn)嚴重的錯誤,并且由于有較高的容錯技術(shù),能較快的糾正意外錯誤，使系統(tǒng)穩(wěn)定可靠。本系統(tǒng)能夠準確，快速的處理學生信息管理的操作事務，能夠滿足管理者的需求,并大大減少了教務管理者

27、的信息查詢及維護的麻煩，實現(xiàn)日常處理計算機化,使系統(tǒng)簡單實用.系統(tǒng)程序代碼中設(shè)計了判斷語句,用來判斷操作錯誤時彈出報錯對話框，在系統(tǒng)中設(shè)置了權(quán)限判斷,使數(shù)據(jù)具有一定的保密性，增加了系統(tǒng)的安全性。本系統(tǒng)的功能還不是很完善，系統(tǒng)的界面設(shè)計的還有些簡單,樣式還不是特別美觀，有待于進一步設(shè)計;系統(tǒng)設(shè)計中后臺數(shù)據(jù)庫應用SQLserver，結(jié)合VB程序設(shè)計使操作更簡單，理解更方便。經(jīng)過系統(tǒng)的性能測試得出，本系統(tǒng)雖然有一定的缺陷和限制，但本系統(tǒng)的具體功能能夠完整實現(xiàn)，所以本系統(tǒng)可以投入到現(xiàn)實應用中。結(jié)束語本次課程設(shè)計是我第一次系統(tǒng)的、完整的接觸軟件設(shè)計的過程。我做的是學生信息管理系統(tǒng).在這次課程設(shè)計中,我體

28、會很深,也學會了很多東西，懂得很多以前不懂的東西，也明白了一些事情。通過此次數(shù)據(jù)庫的課程設(shè)計，真正達到了學與用的結(jié)合,增強了對數(shù)據(jù)庫方面應用的理解，對自己今后參與開發(fā)數(shù)據(jù)庫系統(tǒng)積累了不少經(jīng)驗,在實驗過程中,從建立數(shù)據(jù)開始，對數(shù)據(jù)庫設(shè)計理念及思想上有更高的認識，從需求分析,到概念設(shè)計和邏輯設(shè)計，ER圖的表示，數(shù)據(jù)字典的創(chuàng)建，懂得了不少有關(guān)數(shù)據(jù)庫開發(fā)過程中的知識,在實驗中建表，及其關(guān)系模式，關(guān)系代數(shù)的建立及理解，將SQL語言的查詢語句用得淋漓盡致，增強了自己在數(shù)據(jù)庫中應用SQL語言的靈活性，其中包括插入、刪除、修改、查詢，牽涉表和表之間的聯(lián)系，主建與外鍵的定義，約束項的設(shè)置，使邏輯更嚴密,在學習過

29、程中,我也上網(wǎng)查了不少資料,也看了一些別人設(shè)計的圖書館管理信息系統(tǒng)的設(shè)計報告，學以致用，自我創(chuàng)新，獨立完成了這份自己的報告，從學到用，從用又到學，不斷修改，系統(tǒng)更新。課程設(shè)計結(jié)束了，但我不會忘記在這次課程設(shè)計中我所得到的。我深深的體會到了這幾句話:認真做事只是把事情做對，用心做事才能把事情做好.把每一件簡單的事情做好就是不簡單,把第一件平凡的事情做好就是不平凡.在以后的學習中我會不斷的在實際中應用這幾句話，我要不斷的總結(jié)，不斷的改進，不斷的努力，使自己的成績提高.參考文獻1 薩師煊，王珊,數(shù)據(jù)庫系統(tǒng)概論，高等教育出版社，2002，2:11502 張來寅，譚明勇，數(shù)據(jù)庫系統(tǒng)原理與應用，冶金工業(yè)出

30、版社,2003，7：27503 梁燦，趙艷澤,SQL數(shù)據(jù)庫應用基礎(chǔ)教程,清華大學出版社，2005，11:10304 柴欣，武優(yōu)西,Visual Basic程序設(shè)計基礎(chǔ)(第三版）,北京：中國鐵道出版社，2005附 錄用戶登陸窗口代碼:Dim username As String, userpass As StringPrivate Sub Command1_Click（)Adodc1。Recordset。MoveFirstAdodc1。Recordset.Find （"userID=" Text1 ""）If Adodc1。Recordset.EOF Th

31、enMsgBox ”無此用戶，請重新輸入!"Exit SubElseabc = Adodc1。Recordset.Fields(1）If Text2 = Trim（abc） ThenMsgBox ”歡迎使用本系統(tǒng),點擊進入！”, vbOKOnly, ”登陸"Me。HideForm2。ShowElseMsgBox ”用戶名或密碼不正確，請重新輸入！"Text1 = ”Text2 = ”Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click（）EndEnd Sub添加記錄代碼:Private Sub Command1

32、_Click()Adodc1.Recordset.AddNewText1 = InputBox（”請輸入學生學號”， ”添加學號"）Text2 = InputBox(”請輸入學生姓名"， ”添加姓名”）Text3 = InputBox（”請輸入學生性別", "添加性別”)Text4 = InputBox（"請輸入學生年齡"， "添加年齡”）If Not IsNumeric(Text4） ThenMsgBox "請輸入數(shù)值”Text4。SetFocusEnd IfText5 = InputBox（”請輸入學生系別”,

33、 "添加系別”)resu = MsgBox（”確認添加到數(shù)據(jù)庫"， vbOKCancel， ”確認添加”）If resu = vbOK ThenAdodc1.Recordset.UpdateElseAdodc1。Recordset。DeleteEnd IfEnd SubPrivate Sub Command2_Click(）Me.HideForm2。ShowEnd Sub學生查詢代碼:Private Sub Command1_Click（）If Text1 = "” ThenMsgBox ”請輸入查詢條件"Text1.SetFocusEnd IfIf O

34、ption1。Value = True ThenAdodc1.Recordset。Find （"sno=” Text1 & ” '”）If Adodc1。Recordset。EOF Then MsgBox "沒有該學生"ElseIf Option2.Value = True ThenAdodc1。Recordset.Find （”sname=” & Text1 & " ”)If Adodc1。Recordset。EOF Then MsgBox ”沒有該學生”End IfEnd SubPrivate Sub Option1_

35、Click（）Text2 = "”Adodc1。Recordset.MoveFirstEnd SubPrivate Sub Option2_Click（）Text1 = ”Adodc1。Recordset。MoveFirstEnd Sub成績查詢代碼:Private Sub Command1_Click（）If Text4 = ”" ThenMsgBox ”請輸入查詢的學號”Text4。SetFocusEnd IfAdodc1。Recordset。MoveFirstabcd = ”Sno=” Text4 ” ”Adodc1。Recordset。Find （abcd）If A

36、dodc1.Recordset。EOF ThenMsgBox ”沒有該學生記錄”Text4。SetFocusEnd IfEnd SubPrivate Sub Text4_Change（）If Len（Text4) > 0 ThenCommand1。Enabled = TrueElseCommand1.Enabled = FalseEnd IfEnd Sub修改記錄代碼:Private Sub Adodc1_MoveComplete（ByVal adReason As ADODB。EventReasonEnum, ByVal pError As ADODB。Error, adStatus

37、As ADODB。EventStatusEnum， ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = Adodc1。Recordset。AbsolutePosition "/” & Adodc1.Recordset。RecordCountEnd SubPrivate Sub Command1_Click（Index As Integer） Select Case Index Case 0 Adodc1。Recordset。MoveFirst 第一條 Case 1 Adodc1。Recordset。MovePrevious

38、 ' 上一條 If Adodc1。Recordset.BOF Then Adodc1。Recordset。MoveFirst Case 2 Adodc1。Recordset.MoveNext ' 下一條 If Adodc1.Recordset。EOF Then Adodc1。Recordset.MoveLast Case 3 Adodc1.Recordset。MoveLast 最后一條 Case 4 Dim mno As String mno = InputBox(”請輸入學號"， "查找窗”） 將輸入值存到變量內(nèi) Adodc1。Recordset。Move

39、First 移動記錄指針到第一條記錄上 Adodc1.Recordset。Find （”sno=” & mno "”) 用。Find方法查找指定科目 If Adodc1。Recordset。EOF Then MsgBox ”無此學號！” & Adodc1。Recordset.AbsolutePosition， , ”提示" End SelectEnd SubPrivate Sub Command2_Click(）Adodc1.Recordset。UpdateEnd Sub成績添加代碼：Private Sub Command1_Click(）Dim adc A

40、s StringAdodc1。Recordset。AddNewa: Text1 = InputBox（”輸入學生學號”， ”添加成績”）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 "

41、;0” 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("確認添加數(shù)據(jù)庫?？"， vbOKOnly, "

42、確認添加"）If resu = vbOK ThenAdodc1。Recordset.UpdateElseText1 = ”Text2 = ”"Text3 = ”End IfEnd Sub學生檔案管理代碼:Private Sub Command1_Click（Index As Integer) Select Case Index Case 0 Adodc1。Recordset。MoveFirst 第一條 Case 1 Adodc1。Recordset。MovePrevious 上一條 If Adodc1。Recordset。BOF Then Adodc1.Recordset。MoveFirst Case 2 Adodc1.Recordset.MoveNext ' 下一條 If Adodc1。Recordset。EOF Then Adodc1。Recordset。MoveLast