【導(dǎo)讀】由于成績記錄的數(shù)量眾多、管理復(fù)雜容易造成混亂，成績管理。系統(tǒng)可以實現(xiàn)對整個成績信息進(jìn)行準(zhǔn)確而高效的記載。·方便教師對學(xué)生的成績信息進(jìn)行瀏覽、查找并進(jìn)行管理；效而準(zhǔn)確的管理系統(tǒng)設(shè)計的出發(fā)點和最終目的，既要能夠滿足學(xué)生和老師的一般需求，又要能夠針對用戶的類型、需求特征等確定它的的權(quán)限以便進(jìn)行管理。找和更新，統(tǒng)計查詢等實用而豐富的功能。本系統(tǒng)使用VisualBasic中文。版作為開發(fā)工具，后臺數(shù)據(jù)庫采用MicrosoftAccess的MDB數(shù)據(jù)庫。所以數(shù)據(jù)庫的嚴(yán)格定義是一組相關(guān)記錄的集合，而字段則是最基本的數(shù)據(jù)項，也是數(shù)。據(jù)庫中最小的單位。另外，Access允許創(chuàng)建自定義報表用于。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)。如上所述，Access作為關(guān)系。做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速的查詢，從而減少管理方面的工作量。查詢，其中還包括登錄界面以及成績的統(tǒng)計模塊。

　　

【正文】 mmand6_Click() End Sub 將指針指向最后一條 成績修改界面 ： 第 25 頁 共 30 頁 代碼如下： Private Sub Command1_Click() If = Then MsgBox 請輸入內(nèi)容！ Else 輸入內(nèi)容不能為空 (0) = (1) = (2) = (3) = (4) = (5) = (6) = = Str((Val() + Val() + Val()) / 3) (7) = MsgBox 修改成功 對數(shù)據(jù)庫進(jìn)行修改，并將修改后的數(shù)據(jù)存入數(shù)據(jù)庫 End If End Sub Private Sub Command10_Click() If Trim() = Then MsgBox 學(xué)號不能為空，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else 輸入學(xué)號不能為空 = select * from 成績表 where 學(xué)號 =39。 amp。 amp。 39。 If Then MsgBox 學(xué)號不存在，請重新 輸入！ , vbOKOnly + vbExclamation, 警告 = 判斷輸入的學(xué)號是否存在 ，若不存在，彈出警告，并請空格文本框。 = = = = = = = = Else = (0) 第 26 頁 共 30 頁 = (1) = (2) = (3) = (4) = (5) = (6) End If End If 存在時，調(diào)出數(shù)據(jù)庫。 End Sub Private Sub Command2_Click() End Sub 進(jìn)入主界面 Private Sub Command3_Click() If = Then MsgBox 請輸入內(nèi)容！ Else 判斷輸入是否為空 mybookmark = Str2$ = MsgBox(是否刪除當(dāng)前記錄？ , vbOKCancel, 刪除當(dāng)前記錄 ) If Str2$ = vbOK Then 選擇是否刪除當(dāng)前記錄 = = = = = = = = = End If 請空格文本框 End If End Sub 成績查詢界面： 第 27 頁 共 30 頁 代碼如下： Private Sub Command1_Click() If = 按學(xué)號 Then = select * from 成績表 where 學(xué)號 =39。 amp。 amp。 39。 Else = select * from 成績表 where 姓名 =39。 amp。 amp。 39。 選擇查詢條件 End If If = Then = select * from 成績表 order by 平均成績 desc End If 按照平均成績降序排列 End Sub Private Sub Command2_Click() End Sub 進(jìn)入主界面 Private Sub Form_Load() = select * from 成績表 order by 平均成績 desc 第 28 頁 共 30 頁 End Sub 按照平均成績降序排列 項目統(tǒng)計界面 ： 代碼如下： Private Sub Command1_Click() = select count(*) from 成績表 where 性別 =39。男 39。 統(tǒng)計性別為男的人數(shù) = (0) = select count(*) from 成績表 where 性別 =39。女 39。 統(tǒng)計性別為女的人數(shù) = (0) = select count(*) from 成績表 where 平均成績 60 統(tǒng)計平均成績小于 60 的人數(shù) = (0) End Sub Private Sub Command2_Click() 進(jìn)入主界面 End Sub 五 小 結(jié) 1 遇到及解決的問題 主要問題 1：數(shù)據(jù)庫建立以后無法與控件綁定，在系統(tǒng)運行時，無法通過系統(tǒng)對數(shù)據(jù)庫的信 第 29 頁 共 30 頁 息進(jìn)行編輯，修改，刪除。 解決：通過看課本，查資料，以及詢問老師等途徑知道自己沒有設(shè)置 data 控件的數(shù)據(jù)綁定常用屬性，還有一些代碼不是和數(shù)據(jù)庫相應(yīng)的位置連接的。 主要問題 2： 由于窗體喝控件太多，使得編寫代 碼時，總是出現(xiàn)數(shù)據(jù)庫與控件案不對應(yīng)的情況。 解決方法：只要細(xì)心，認(rèn)真就可以做的好。 2 心得體會 設(shè)計之前由于數(shù)據(jù)庫知識的空白，使得我們毫無頭緒，無從下去手，只是盲目的按照課本和參考資料進(jìn)行設(shè)計和編程，沒有動腦子思考，也沒有進(jìn)行結(jié)構(gòu)的規(guī)劃，使得我們的程序進(jìn)行到一半時夭折，那時候我們就開始意識到，不應(yīng)該盲目，我們認(rèn)真地看了課本，有了數(shù)據(jù)庫的思想和思路，自己又重新規(guī)劃了系統(tǒng)的結(jié)構(gòu)，但是由于時間的關(guān)系，我們錯過了中期檢查，但是我們并沒有氣餒，而是更加熱情地的投入到系統(tǒng)的設(shè)計中，但我們又出現(xiàn)了新問題，我和另一個 男生 本來分工合作的，可是我們的窗體總是銜接不上，而且數(shù)據(jù)庫也不同，而我們又都想嘗試一下其他窗體的創(chuàng)建，獲得更多的知識，于是我們最終各自完成了各自的管理系統(tǒng)。 這次課程設(shè)計實習(xí)我流的汗和淚，都是以成功的完成課程設(shè)計任務(wù)為收獲的。不斷的調(diào)試，使我認(rèn)識即時丁點的錯誤也可以導(dǎo)致系統(tǒng)的非正常運行，細(xì)節(jié)決定成敗。我只有在以后的學(xué)習(xí)之路上做到一絲不茍，才能獲得成功 . 3 后記 面對新的問題，以前的我會覺的十分畏懼，可通過這次實習(xí)，我發(fā)現(xiàn)自己變得勇敢，積極地從正面面對問題，認(rèn)真地查閱資料、動手實踐、和同學(xué)交流，問題便能解決 。此次實習(xí)培養(yǎng)了我自主學(xué)習(xí)和動手實踐能力，讓我體會到完成任務(wù)的成就感和喜悅。感謝學(xué)校提供這次難得的機會，感謝李中華老師的認(rèn)真指導(dǎo)。 參考文獻(xiàn) ： 1. 《 Visual Basic 》 ， 張路平 ，電子工業(yè)出版社 2.《 Visual Basic 》 ， 譚小丹 ，冶金工業(yè)出版社 第 30 頁 共 30 頁 3. 《 Visual Basic+Access數(shù)據(jù)庫項目開發(fā)實踐》 ， 周國民 ，中國鐵道出版社 4. MSDN 附錄： 工程的使用可以按照自己的需要進(jìn)行 。