【正文】 qYpEh5pDx2zVkum amp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。ksv*3t nGK8!z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 UE9aQGn8xp$Ramp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。 gTXRm 6X4NGpP$vSTTamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。 gTXRm 6X4NGpP$vSTTamp。MuWFA5ux^Gjqv^$UE9wEwZQcUE% amp。 gTXRm 6X4NGpP$vSTTamp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gjqv^$UE9wEwZQcUE% amp。 gTXRm6X4NGpP$vSTTamp。849Gx^Gj qv^$UE9wEwZQcUE%amp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 UE9aQGn8xp$Ramp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。gTXRm 6X4NGpP$vSTTamp。 MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE% amp。 gTXRm6X4NGpP$vSTTamp。 MuWFA5ux^Gj qv^$UE9wEwZQcUE%amp。 gTXRm6X4NGpP$vSTTamp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。 gTXRm 6X4NGpP$vSTTamp。 849Gx^Gj qv^$UE9wEwZQcUE%amp。 gTXRm 6X4NGpP$vSTTamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn%Mz849Gx^Gj qv^$UE9wEwZQc UE%amp。gTXRm 6X4NGpP$vSTTamp。MuWFA5ux^Gj qv^$UE9wEwZQcUE% amp。gTXRm 6X4NGpP$vSTTamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE% amp。 gTXRm 6X4NGpP$vSTTamp。849Gx^Gj qv^$UE9wEwZQcUE%amp。 QA9wkxFyeQ^! djsXuyUP2kNXpRWXm Aamp。 最后，再一次衷心感謝各個(gè)老師、同學(xué)在這三年的幫助！謝謝！ 主要參考文獻(xiàn) 本系統(tǒng)的過(guò)程中，主要的參 考文獻(xiàn)有： 《管理系統(tǒng)分析案例》 人民出版社 主要參考網(wǎng)址有： 9JWKf wvGt YM*Jgamp。這里著重要感謝我們的指導(dǎo)老師李老師，謝謝她在這三年來(lái)一直以認(rèn)真敬業(yè)的精神幫助我們，為我們解答疑難雜癥。時(shí)光飛逝，三年間的求學(xué)經(jīng)歷點(diǎn)點(diǎn)滴滴涌上心頭 ，實(shí)在有太多的不舍。同時(shí)，也很好地鍛煉了我們獨(dú)立工作的能力，這將在我們以后的工作中有很大的益處。 通過(guò)這次設(shè)計(jì)，我受益非淺，在實(shí)踐中了解學(xué)生管理系統(tǒng)的開(kāi)發(fā)步驟、流程及思路，體會(huì)到理論知識(shí)和實(shí)踐相結(jié)合的重 要性。同時(shí)，我感受到團(tuán)結(jié)的力量， 體會(huì)到團(tuán)隊(duì)精神的重要性。 這次畢業(yè)設(shè)計(jì)，我們組共有五個(gè)人組成，組長(zhǎng)給我們每個(gè)人都分配工作，我主要是做學(xué)生身份的模塊。在這段時(shí)間，我得到多不少的收獲，在開(kāi)發(fā)過(guò)程中我進(jìn)一步學(xué)習(xí)了 VB的基礎(chǔ)語(yǔ)法，更加懂得了 VB 的語(yǔ)言的使用方法并能靈活運(yùn)用，在編寫(xiě)過(guò)程中也規(guī)范了許多編碼的習(xí)慣。該系統(tǒng)還有許多不盡人意的地方，界面不美觀，功能不足， 但軟件完善不是一天兩天的事，要在使用過(guò)程中不斷發(fā)現(xiàn)問(wèn)題，從而加以改進(jìn)。 2． 管理員能在本系統(tǒng)通過(guò)各種方式進(jìn)行查詢學(xué)生的成績(jī)或班級(jí)的成績(jī) 3． 管理員還能通過(guò)本系統(tǒng)添加新生的個(gè)人信息，統(tǒng)一進(jìn)行管理 ，還能查詢個(gè)人基本資料 4． 管理員通過(guò)本系統(tǒng)能對(duì)每個(gè) 學(xué)生的獎(jiǎng)罰信息進(jìn)行添加修改錄入存檔 經(jīng)過(guò)多日來(lái)的不斷學(xué)習(xí)和設(shè)計(jì)，加上 組員的共同努力，終于完成了學(xué)生信息管理系統(tǒng)的管理員的模塊，另外的學(xué)生和老師這兩個(gè)身份的用戶，由于能力問(wèn)題，至今仍未想到解決方案。系統(tǒng)基本上實(shí)現(xiàn)了預(yù)期的各項(xiàng)功能 ，達(dá)到了任務(wù)書(shū)中的主要設(shè)計(jì)內(nèi)容的各項(xiàng)任務(wù)，整個(gè)系統(tǒng)也在經(jīng)過(guò)不斷的修改和測(cè)試之后能夠順利運(yùn)行。) End If (strr, tablename) Dim count As Integer = If count = 0 Then MsgBox(不存在該學(xué)生的成績(jī)信息！ , + , information...) Exit Sub Try Dim cbuilder As New () = = = (, tablename) MsgBox(修改成功！ , + , informaton...) Catch ex As Exception MsgBox(修改失?。? amp。 amp。) Else strr = select * from 學(xué)生成績(jī)表 where(姓名 =39。 amp。 , + , information...) End Try If currentrow = 0 Then Try If MsgBox(確定刪除該記錄嗎？ , + , information...) = Then (currentrow).Delete() () Dim cbuild As New () = = = (, tablename) MsgBox(刪除成功！ , + , information...) End If 個(gè)人信息查詢 個(gè)人信息查詢主界面如圖（ ）所示： 圖 個(gè)人信息查詢代碼： If = (0) Then strr = select * from 學(xué)生成績(jī)表 where(學(xué)號(hào) =39。 amp。 39。 amp。) End If (strr, tablename) Dim count As Integer = If count = 0 Then MsgBox(不存在該學(xué)生的成績(jī)信息！ , + , information...) Exit Sub End If Try Dim cbuilder As New () = = = (, tablename) MsgBox(修改成功！ , + , informaton...) Catch ex As Exception MsgBox(修改失敗！ amp。 amp。) Else strr = select * from 學(xué)生成績(jī)表 where(姓名 =39。 amp。 , + , information...) End Try If currentrow = 0 Then Try (currentrow).Delete() Dim cbuild As New () = = = If MsgBox(確定刪除該記錄嗎？ , + , information...) = Then (, tablename) MsgBox(刪除成功！ , + , information...) () datashow() = = = End If Catch ex As Exception MsgBox() End Try End If 成績(jī)錄入 成績(jī)錄入界面如圖（ ）所示： 圖 成績(jī)錄入代碼： If = Then MsgBox(請(qǐng)先選擇課程！ , + , information...) () Exit Sub End If If = Then MsgBox(請(qǐng)輸入學(xué)號(hào)！ , + , information...) () Exit Sub End If If = Then MsgBox(請(qǐng)輸入姓名！ , + , information...) () Exit Sub End If If = Then MsgBox(請(qǐng)輸入性別！ , + , information...) () Exit Sub End If If = Then MsgBox(請(qǐng)輸入分?jǐn)?shù)！ , + , information...) () Exit Sub End If Dim tablename As String = 學(xué)生成績(jī)表 Dim strr As String strr = select * from 學(xué)生成績(jī)表 Try (strr, tablename) Dim addrow As DataRow = (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (addrow) = New () (, tablename) MsgBox(成績(jī)錄入成功！ , + , information...) Catch ex As Exception MsgBox() End Try = = = = End Sub 成績(jī)查詢 —— 個(gè)人成績(jī)查詢 、班級(jí)成績(jī)查詢 個(gè)人成績(jī)查詢查詢主界面分別如圖（ ） （ ） 示： 圖 個(gè)人成績(jī)查詢 圖 班級(jí)成績(jī)查詢 個(gè)人成績(jī)查詢代碼： If = (0) Then strr = select * from 學(xué)生成績(jī)表 where(學(xué)號(hào) =39。) Try