【正文】 tr amp。 年 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。) 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。 , + , 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。) 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。在這段時(shí)間，我得到多不少的收獲，在開發(fā)過程中我進(jìn)一步學(xué)習(xí)了 VB的基礎(chǔ)語(yǔ)法，更加懂得了 VB 的語(yǔ)言的使用方法并能靈活運(yùn)用，在編寫過程中也規(guī)范了許多編碼的習(xí)慣。同時(shí)，也很好地鍛煉了我們獨(dú)立工作的能力，這將在我們以后的工作中有很大的益處。 QA9wkxFyeQ^! djsXuyUP2kNXpRWXm Aamp。gTXRm 6X4NGpP$vSTTamp。 gTXRm 6X4NGpP$vSTTamp。 gTXRm6X4NGpP$vSTTamp。gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 gTXRm 6X4NGpP$vSTTamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gjqv^$UE9wEwZQcUE% amp。 qYpEh5pDx2zVkumamp。 MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE% amp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn%Mz849Gx^Gj qv^$UE9wEwZQc UE%amp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE% amp。 最后，再一次衷心感謝各個(gè)老師、同學(xué)在這三年的幫助！謝謝！ 主要參考文獻(xiàn) 本系統(tǒng)的過程中，主要的參 考文獻(xiàn)有： 《管理系統(tǒng)分析案例》 人民出版社 主要參考網(wǎng)址有： 9JWKf wvGt YM*Jgamp。 通過這次設(shè)計(jì)，我受益非淺，在實(shí)踐中了解學(xué)生管理系統(tǒng)的開發(fā)步驟、流程及思路，體會(huì)到理論知識(shí)和實(shí)踐相結(jié)合的重 要性。該系統(tǒng)還有許多不盡人意的地方，界面不美觀，功能不足， 但軟件完善不是一天兩天的事，要在使用過程中不斷發(fā)現(xiàn)問題，從而加以改進(jìn)。 amp。 amp。 amp。) Try (strr, tablename) = (1).ToString() = (2).ToString() Catch ex As Exception MsgBox() End Try Try If = Then MsgBox(請(qǐng)輸入班級(jí)名稱！ , + , information...) () Exit Sub End If If = Then MsgBox(請(qǐng)輸入輔導(dǎo)員名字！ , + , information...) () Exit Sub End If If = Then MsgBox(請(qǐng)輸入聯(lián)系號(hào)碼！ , + , information...) () Exit Sub End If 39。 39。 39。 所有信息都是根據(jù)這張學(xué)生檔案進(jìn)行有關(guān)的操作，主要的字段有 如下表所示： 字段代號(hào) 字段類型 字段長(zhǎng)度 是否可以為空 備注 學(xué)號(hào) Char 10 否 學(xué)生編號(hào) 姓名 char 10 否 學(xué)生姓名 性別 char 10 是 學(xué)生性別 出生年月 char 10 是 民族 char 1000 是 籍貫 char 1000 是 家庭住址 char 100 是 電話 char 10 否 入學(xué)年份 Char 10 否 班名 Char 10 否 專業(yè)名 Char 10 否 班治面貌 Char 10 是 職務(wù) Char 10 是 宿舍住址 Char 10 否 班內(nèi)序號(hào) Char 10 是 學(xué)校 char 10 否 各表間關(guān)系如圖所示： ER 圖：