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