【正文】 nformation...) () Exit Sub End If If = Then MsgBox(請輸入專業(yè)名稱！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入政治面貌！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入職務！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入宿舍地址！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入班級序號！ , + , information...) () Exit Sub End If Dim todouble As Double If 0 Then Try todouble = () Dim addrow As DataRow = (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim( amp。 amp。 amp。 39。(0) = Trim() (1) = Trim() (2) = Trim() = New () (, 班級輔導員信息表 ) MsgBox(修改成功！ , + , informaton...) () datashow() Catch ex As Exception MsgBox(修改失??！ amp。 amp。 39。 amp。 39。 , + , information...) End Try 班級查詢代碼： If classname Then Dim tablename As String = 學生成績表 Dim strr As String strr = select 班級 ,學號 ,姓名 ,性別 ,課程名稱 ,成績 ,備注 from 學生成績表 where(班級 =39。 classname amp。) (strr, tablename) Dim count As Integer = If count = 0 Then MsgBox(不存在該班級的學生成績！ , + , information...) Exit Sub End If 學生獎罰信息 學生獎罰信息界面如圖（ ）所示： 圖 學生獎罰信息代碼： Try (strr, tablename) Dim count As Integer = If count = 0 Then = = MsgBox(不存在該學號的獎罰信息！ , + , information...) Exit Sub End If = (學生獎罰信息表 ) = True = True = True = True = = (獎罰 ).HeaderText = 獎罰名稱 (日期 ).HeaderText = 日期 (備注 ).HeaderText = 備注 = (ID).Visible = False (學號 ).Visible = False (姓名 ).Visible = False (班級 ).Visible = False Catch ex As Exception MsgBox() End Try If = Then MsgBox(請輸入學號查看結果！ , + , information...) () End If If = Then MsgBox(請輸入獎罰名稱！ , + , information...) () End If If = Then MsgBox(請輸入獎罰年份！ , + , information...) () End If If = Then MsgBox(請輸入獎罰月份！ , + , information...) () Exit Sub End If Dim tablename As String = 學生獎罰信息表 Dim strr As String strr = select * from 學生獎罰信息表 Dim datestr As String datestr = Trim( amp。 ) Try (strr, tablename) Dim addrow As DataRow = (1) = Trim() (2) = (2).ToString (3) = (3).ToString (4) = Trim() (5) = datestr (6) = Trim() (addrow) = New () (, tablename) MsgBox(添加成功！ , + , information...) Catch ex As Exception MsgBox(, + , information...) End Try showdata() End Sub Try (2) = (3) = Dim cbuilder As New () = = = (, tablename) MsgBox(修改成功！ , + , informaton...) Catch ex As Exception MsgBox(修改失??！ amp。 amp。 39。 amp。 39。 , + , information...) End Try 結束語 在 Windows XP 系統(tǒng)下，以 Visual Studio2021為平臺，運用 Visual Basic語言和 Acess 數(shù)據(jù)庫基本完成了 B/S 模式的學生信息管理系統(tǒng)。該系統(tǒng)能夠實現(xiàn)： 1． 管理員在本系統(tǒng)的應用下可實現(xiàn)對各個身份的用戶進行修改、刪除、添加等操作，方便管理員統(tǒng)一管理用戶的身份資料。在完成管理員模塊的過程中我們也遇到不少問題，例如，與數(shù)據(jù)庫的連接，如果沒有解決這個重要問題，接下來的好多工作都不能正常開展 ，數(shù)據(jù)不能正常顯示 。 再來就是，一個系統(tǒng)的功能是否完整，要滿足 使用者的使要需求，就需要用更多的控件、代碼完善，我們越是追求完美，要做的功夫就越多，花費的時間也隨之增加，要處理的問題也變得更多更復雜，這時的我們需要更加認真、細心地做 。另外， 在實習期間基本忘記的 Acess 數(shù)據(jù)庫也在這段時間得到復習。盡管最終我并沒有成功 做出來， 但我也通過自己的努力，嘗試完成這個模塊。 我們雖然各自分工各自完成，但最終這幾個模塊都要拼在同一個環(huán)境下的，所以在這個過程中我們會不斷保持聯(lián)系，及時修改，做到各個程序的一致性。這段時間也培養(yǎng)了我們的分 析問題、解決問題的能力。 致謝 經過幾個月的努力，今天終于可以順利完成畢業(yè)論文的最后謝辭了。首先，先感謝同學們的一直支持與幫助，讓我在大學期間感受到同學愛，收獲了難能可貴的友誼。在這次畢業(yè)設計中，更是不遺余力地指導我們，使我們的畢業(yè)設計能順利完成 。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。 UE9aQGn8xp$Ramp。 qYpEh5pDx2zVkumamp。ksv*3t nGK8!z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkum amp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkum amp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 ksv*3tnGK8! z89Am UE9aQGn8xp$Ramp。 qYpEh5pDx2zVkumamp。 ksv*3tnGK8! z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 ksv*3t nGK8! z89Am YWpaz adNuKNamp。 qYpEh5pDx2zVkum amp。 ksv*3t nGK8! z8vGt YM*Jgamp。 QA9wkxFyeQ^! dj sXuyUP2kNXpRWXm Aamp。849Gx^Gj qv^$UE9wEwZQcUE%amp。 gTXRm 6X4NGpP$vSTTamp。MuWFA5uxY7JnD6YWRrWwc^vR9CpbK!zn% Mz849Gx^G89Am UE9aQGn8xp$Ramp。 qYpEh5pDx2zVkumamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。qYpEh5pDx2zVkumamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。qYpEh5pDx2zVkumamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkum amp。 ksv*3t nGK8! z8vGt YM*Jgamp。 QA9wkxFyeQ^! djsXuyUP2kNXpRWXm Aamp。 849Gx^Gjqv^$UE9wEwZQcUE%amp。 gTXRm 6X4NGpP$vSTTamp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。 gTXRm 6X4NGpP$vSTTamp。MuWFA5ux^Gj qv^$UE9wEwZQcUE%amp。 gTXRm 6X4NGpP$vSTTamp。MuWFA5uxY7JnD6YWRrWwc^vR9CpbK!zn% Mz849Gx^Gj qv^$UE9wEwZQcUE% amp。gTX