數(shù)據(jù)庫(kù)課程設(shè)計(jì)(學(xué)生成績(jī)管理系統(tǒng))45843

1、學(xué) 號(hào)：課 程 設(shè) 計(jì)題 目學(xué)生成績(jī)管理系統(tǒng)教 學(xué) 院計(jì)算機(jī)學(xué)院專 業(yè)計(jì)算機(jī)科學(xué)與技術(shù)班 級(jí)05級(jí)二班姓 名指導(dǎo)教師2008年1月18日目 錄一概述2二總體方案設(shè)計(jì)3三詳細(xì)設(shè)計(jì)5四程序的調(diào)試與運(yùn)行結(jié)果說明19五課程設(shè)計(jì)總結(jié)20參考文獻(xiàn)21一 概述在21世紀(jì)的科技時(shí)代，科學(xué)技術(shù)突飛猛進(jìn),信息社會(huì)的高科技時(shí)代，商品經(jīng)濟(jì)化的高效益，計(jì)算機(jī)的應(yīng)用已普及到經(jīng)濟(jì)和社會(huì)生活的各個(gè)領(lǐng)域.計(jì)算機(jī)雖然與人類的關(guān)系愈來愈密切，還有人由于計(jì)算機(jī)操作不方便繼續(xù)用手工勞動(dòng).為了適應(yīng)現(xiàn)代社會(huì)人們高度強(qiáng)烈的時(shí)間觀念，學(xué)生成績(jī)管理系統(tǒng)為教學(xué)辦公帶來了極大的方便.該學(xué)生成績(jī)管理系統(tǒng)是以VisualBasic+Access數(shù)據(jù)庫(kù)+

2、SQL數(shù)據(jù)查詢語言編寫。系統(tǒng)管理員，教師，學(xué)生只需通過簡(jiǎn)單的操作,用戶都可以了解本系統(tǒng)軟件的基本工作原理。用戶只需進(jìn)行輸入一些簡(jiǎn)單的漢字，數(shù)字，或用鼠標(biāo)點(diǎn)擊即可達(dá)到自己想要的目標(biāo)。1。 課程設(shè)計(jì)的目的（1) 加深對(duì)數(shù)據(jù)庫(kù)系統(tǒng)、軟件工程、程序設(shè)計(jì)語言的理論知識(shí)的理解和應(yīng)用水平;(2） 在理論和實(shí)驗(yàn)教學(xué)基礎(chǔ)上進(jìn)一步鞏固已學(xué)基本理論及應(yīng)用知識(shí)并加以綜合提高；(3) 學(xué)會(huì)將知識(shí)應(yīng)用于實(shí)際的方法,提高分析和解決問題的能力，增強(qiáng)動(dòng)手能力; (4） 為畢業(yè)設(shè)計(jì)和以后工作打下必要基礎(chǔ)。（5）理解和掌握該課程中的有關(guān)基本概念，程序設(shè)計(jì)思想和方法。（6）培養(yǎng)綜合運(yùn)用所學(xué)知識(shí)獨(dú)立完成課題的能力.（7)培養(yǎng)勇于探索、

3、嚴(yán)謹(jǐn)推理、實(shí)事求是、有錯(cuò)必改，用實(shí)踐來檢驗(yàn)理論,全方位考慮問題等科學(xué)技術(shù)人員應(yīng)具有的素質(zhì).（8）掌握從資料文獻(xiàn)、科學(xué)實(shí)驗(yàn)中獲得知識(shí)的能力，提高學(xué)生從別人經(jīng)驗(yàn)中找到解決問題的新途徑的悟性，初步培養(yǎng)工程意識(shí)和創(chuàng)新能力.2. 課程設(shè)計(jì)的要求運(yùn)用數(shù)據(jù)庫(kù)基本理論與應(yīng)用知識(shí)，在微機(jī) SQL server的環(huán)境上建立一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。要求把現(xiàn)實(shí)世界的事物及事物之間的復(fù)雜關(guān)系抽象為信息世界的實(shí)體及實(shí)體之間聯(lián)系的信息模型，再轉(zhuǎn)換為機(jī)器世界的數(shù)據(jù)模型和數(shù)據(jù)文件，并對(duì)數(shù)據(jù)文件實(shí)施檢索、更新和控制等操作。1. 用er圖設(shè)計(jì)指定題目的信息模型;2. 設(shè)計(jì)相應(yīng)的關(guān)系模型，確定數(shù)據(jù)庫(kù)結(jié)構(gòu);3。 分析關(guān)系模式各屬于第幾范式

4、,闡明理由；4。 設(shè)計(jì)應(yīng)用系統(tǒng)的系統(tǒng)結(jié)構(gòu)圖，確定系統(tǒng)功能；5。通過設(shè)計(jì)關(guān)系的主碼約束、外碼約束實(shí)現(xiàn)完整性控制；6。 實(shí)現(xiàn)應(yīng)用程序設(shè)計(jì)、編程、優(yōu)化功能；7. 對(duì)系統(tǒng)的各個(gè)應(yīng)用程序進(jìn)行集成和調(diào)試，進(jìn)一步優(yōu)化系統(tǒng)功能、改善系統(tǒng)用戶界面完成實(shí)驗(yàn)內(nèi)容所指定的各項(xiàng)要求;8. 分析遇到的問題，總結(jié)并寫出課程設(shè)計(jì)報(bào)告；9。 自我評(píng)價(jià)二 總體方案設(shè)計(jì)一學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)的目標(biāo)的分析1，管理員能夠?qū)崿F(xiàn)對(duì)整個(gè)學(xué)生信息的添加，修改，刪除，查詢等操作，對(duì)教師用戶的添加,刪除,修改等操作，對(duì)留言信息的添加,刪除，修改查詢等操作. 2，可以將學(xué)生成績(jī)的數(shù)據(jù)庫(kù)發(fā)布到網(wǎng)上，教師的信息發(fā)布的網(wǎng)上,方便學(xué)生教師進(jìn)行查詢,達(dá)到資源

5、共享的目的。 3，教師能夠在一定的權(quán)限內(nèi)對(duì)所有學(xué)生成績(jī)的查詢，所有教師信息的查詢，留言信息的添加，刪除，修改是,查看等，對(duì)的自己的聯(lián)系信息進(jìn)行更新,登錄密碼的修改。 4,學(xué)生可以在自己的權(quán)限內(nèi)對(duì)對(duì)自己成績(jī)的查詢，以及個(gè)人信息的查詢,登錄密碼的修改，留言的查看，提交留言信息的相關(guān)操作.二 學(xué)生成績(jī)管理系統(tǒng)的功能需求分析 學(xué)生成績(jī)管理系統(tǒng)主要提供成績(jī)查詢，方便管理的網(wǎng)上的信息查閱平臺(tái),查看留言，提交留言.教師可以通過成績(jī)管理系統(tǒng)查閱學(xué)生成績(jī)信息，教師信息，查看教師留言，學(xué)生留言，提交留言,留言的管理等相關(guān)操作.系統(tǒng)管理員可以學(xué)生可以通過該系統(tǒng)查閱與自己相關(guān)信息實(shí)現(xiàn)以上的所有功能，還有對(duì)學(xué)生的添加，

6、刪除，修改，教師的添加，刪除，修改,數(shù)據(jù)庫(kù)的備份,數(shù)據(jù)庫(kù)的還原等相關(guān)操作。 三 系統(tǒng)的功能分析 該學(xué)生成績(jī)管理系統(tǒng)是用Visual Basic+Access數(shù)據(jù)庫(kù)+SQL查詢語言編句,系統(tǒng)是基于網(wǎng)絡(luò)在線的學(xué)生成績(jī)管理系統(tǒng)，在系統(tǒng)中分為大的二個(gè)方面：一是教師登錄頁面，二是學(xué)生登錄頁面。 (1）系統(tǒng)管理員進(jìn)入學(xué)生成績(jī)管理系統(tǒng)的主要功能是:實(shí)現(xiàn)教師添加，教師修改，教師刪除，教師查詢,數(shù)據(jù)庫(kù)的恢復(fù)，數(shù)據(jù)庫(kù)的備份,學(xué)生的添加，學(xué)生的修改，學(xué)生的查詢，學(xué)生成績(jī)的錄入，學(xué)生成績(jī)的添加，學(xué)生成績(jī)的修改,學(xué)生成績(jī)的刪除，留言的查詢，留言的提交,留言的刪除，留言的修改等基本功能。 (2)教師進(jìn)入學(xué)生成績(jī)管理系統(tǒng)的

7、主要功能是：實(shí)現(xiàn)學(xué)生的查詢，學(xué)生成績(jī)的查詢,留言的刪除,留言的查詢，留言的查詢，密碼的修改,教師的查詢，教師登陸密碼的更改，教師個(gè)人信息的修改等基本功能。 (3）學(xué)生進(jìn)行學(xué)生成績(jī)管量系統(tǒng)的主要功能是：實(shí)現(xiàn)學(xué)生自己怕成績(jī)查詢，自己登錄密碼的修改,個(gè)人信息的查詢,留言的查看,提交留言的基本功能. 圖1 主流程圖承擔(dān)部分： 學(xué)生基本信息查詢 要求可通過輸入學(xué)生學(xué)號(hào)或姓名對(duì)學(xué)生基本信息的查詢，可對(duì)學(xué)生基本信息進(jìn)行修改和刪除。三 詳細(xì)設(shè)計(jì)學(xué)生管理模塊：學(xué)生基本信息查詢 圖2 學(xué)生基本信息查詢界面1。代碼:Private Sub cmdfind_Click（） Dim sql As String Dim

8、rs As ADODB。Recordset Set rs = New ADODB。Recordset sql = ”"If Trim（NoEdit。Text） = ” And Trim（NameEdit。Text） = "” Then MsgBox ”請(qǐng)輸入你要查詢的內(nèi)容!”， vbOKOnly + vbExclamation， ”警告" Exit SubElse If NoEdit。Text ” And NameEdit.Text < ” Then sql = ”select Student.Sno,Sname，Cname，Grade from Stude

9、nt，Course，Sc where Student。Sno = " Trim(NoEdit。Text） ” and Sname like ” Trim（NameEdit。Text） ”' and Sc。Sno=Student.Sno and Course.Cno=Sc。Cno” Set rs = TransactSQL(sql) ElseIf NoEdit.Text > "” And NameEdit。Text = ”" Then sql = "select Student.Sno,Sname,Cname，Grade from Stude

10、nt，Course，Sc where Student.Sno = ” Trim（NoEdit.Text） " and Sname like ” Trim（NameEdit。Text) "% and Sc。Sno=Student.Sno and Course。Cno=Sc。Cno" Set rs = TransactSQL（sql） ElseIf NoEdit。Text = ” And NameEdit。Text > "” Then sql = "select Student。Sno，Sname，Cname，Grade from Stude

11、nt，Course，Sc where Student。Sno = " Trim（NoEdit。Text） ” and Sname like %” Trim(NameEdit。Text） ”' and Sc。Sno=Student.Sno and Course。Cno=Sc.Cno" Set rs = TransactSQL(sql） End IfEnd IfIf rs。EOF ThenMsgBox ”Sorry，無法找到你要想查詢的學(xué)生的基本信息！”ElseSno = rs（”Sno”）Sname = rs（"Sname"）Sc = ”"

12、;For i = 1 To rs.RecordCount Sc = Sc + rs（”Cname”) ”：" rs（”Grade”） vbCrLf rs。MoveNextNextFrmGrade_Show。Label8.Caption = Scsql1 = ”select SUM（Grade) as Sum_Grade,AVG（Grade） as Avg_Grade from Sc where Sc。Sno=” Sno " ”Set rs1 = TransactSQL(sql1)FrmGrade_Show。Text1。Text = SnoFrmGrade_Show。Text

13、2。Text = SnameFrmGrade_Show.Text3。Text = rs1（”Sum_Grade”）FrmGrade_Show.Text4。Text = rs1（”Avg_Grade”)rs1.CloseSet rs1 = NothingFrmGrade_Show.ShowEnd Ifrs。CloseSet rs = NothingEnd SubPrivate Sub Command2_Click（）Unload MeEnd Sub總代碼：Private Sub Form_Load()End SubPrivate Sub Command1_Click(）Unload MeEnd

14、SubPrivate Sub cmdAdd_Click（） Dim sql As String Dim rs As ADODB.Recordset Set rs = New ADODB。Recordset If Text1.Text = "" Or Text2.Text = ” Or Text3.Text = ” Or Text4.Text = "” Then MsgBox "請(qǐng)輸入課程的所有信息!”， vbOKOnly + vbExclamation， ”警告！” Text1。SetFocus Else sql = ”select * from Cou

15、rse where Cno=” Trim（Text1.Text) sql = sql ” and Cname=” Trim（Text2。Text） ” and Cteacher=” sql = sql Trim（Text3。Text） " and Ccredit=” Trim(Text4。Text） sql = sql & "” Set rs = TransactSQL（sql） If rs。EOF = False Then MsgBox "該課程已經(jīng)存在，請(qǐng)核實(shí)后再添加！”， vbOKOnly + vbExclamation， ”警告!" Te

16、xt1.SetFocus rs。Close Else sql = ”select * from Course” Set rs = TransactSQL(sql） rs。AddNew rs.Fields(0） = Trim(Text1。Text） rs.Fields（1） = Trim(Text2.Text) rs。Fields(2） = Trim（Text3.Text） rs.Fields(3) = Trim（Text4。Text) If Option1（0）。Value = True Then course_select = "專業(yè)” Else course_select = &

17、quot;選修" End If rs。Fields（4) = course_select rs。Update rs。Close MsgBox "該記錄已經(jīng)成功添加！", vbOKOnly + vbExclamation， "添加成功！” Call init End If End IfEnd SubPrivate Sub cmdExit_Click(）Unload MeEnd SubPrivate Sub init(）Text1.Text = ”Text2.Text = "”Text3.Text = ""Text4。Text

18、= ”"End SubPrivate Sub cmdfind_Click（) Dim sql As String Dim rs As ADODB.Recordset Set rs = New ADODB。Recordset sql = "”If Trim（NoEdit。Text） = ” And Trim（NameEdit.Text） = "" Then MsgBox ”請(qǐng)輸入你要查詢的內(nèi)容!", vbOKOnly + vbExclamation， ”警告" Exit SubElse If NoEdit。Text "” An

19、d NameEdit.Text < ” Then sql = ”select from Course ” sql = sql & ” where Cno = ” & Trim（NoEdit.Text） " and Cname like %” & Trim（NameEdit。Text) ” Set rs = TransactSQL（sql） ElseIf NoEdit。Text < "" And NameEdit。Text = ” Then sql = "select from Course ” sql = sql ”

20、where Cno = ” Trim（NoEdit。Text） ” '” Set rs = TransactSQL（sql) ElseIf NoEdit。Text = ” And NameEdit。Text > ”" Then sql = "select from Course ” sql = sql ” where Cname like %” Trim(NameEdit.Text） "" Set rs = TransactSQL（sql） End IfEnd IfIf rs。EOF ThenMsgBox "Sorry，無法找到你

21、要想查詢的課程的基本信息!”ElseFrmInfo_Course.Text1。Text = rs（"Cno"）FrmInfo_Course.Text2。Text = rs（"Cname")FrmInfo_Course。Text3.Text = rs（”Cteacher”)FrmInfo_Course。Text4。Text = rs（”Ccredit"）If rs（”Cselect") = ”專業(yè)” ThenFrmInfo_Course。Option1（0）。Value = TrueElseFrmInfo_Course。Option1(

22、1).Value = TrueEnd IfFrmInfo_Course。ShowEnd Ifrs。CloseSet rs = NothingEnd SubPrivate Sub Command2_Click（)Unload MeEnd SubDim sql As String Dim rs As ADODB。RecordsetPrivate Sub cmdAdd_Click（） Set rs = New ADODB.Recordset If Text1。Text = ” Or Combo1.Text = ”" Or Text2。Text = ”" Then MsgBox ”

23、請(qǐng)輸入成績(jī)的所有信息!”, vbOKOnly + vbExclamation， "警告！" Text1。SetFocus Else sql = "select Cno from Course where Cname=” Trim（Combo1。Text） ” Set rs = TransactSQL(sql) Cno = rs（”Cno”） rs。Close sql = "select from Student where Sno=” Trim(Text1。Text） "'" Set rs = TransactSQL(sql）

24、 If rs。EOF = True Then MsgBox ”學(xué)號(hào)為“” & Trim（Text1。Text) "”的同學(xué)的不存在，請(qǐng)核實(shí)后再添加！", vbOKOnly + vbExclamation, ”警告！" Text1.SetFocus rs。Close Else sql = ”select * from Sc where Sno=” Trim(Text1.Text) " And Cno=” Cno "" Set rs = TransactSQL（sql） If rs.EOF = False Then MsgBox

25、”該同學(xué)的成績(jī)已經(jīng)存在，請(qǐng)核實(shí)后再添加!"， vbOKOnly + vbExclamation， ”警告！” Text1.SetFocus rs。Close Else sql = "select from Sc” Set rs = TransactSQL（sql） rs。AddNew rs。Fields（0） = Trim(Text1。Text） rs。Fields（1） = Cno rs。Fields(2) = Trim（Text2。Text） rs。Update rs.Close MsgBox ”該記錄已經(jīng)成功添加!"， vbOKOnly + vbExclam

26、ation， "添加成功！” Call init End If End If End If Set rs = NothingEnd SubPrivate Sub cmdExit_Click（)Unload MeEnd SubPrivate Sub Form_Load（） Set rs = New ADODB。Recordset sql = ”select Cno，Cname from Course" Set rs = TransactSQL(sql）For i = 1 To rs。RecordCount Combo1.AddItem rs(”Cname”） rs。MoveN

27、extNext Combo1。ListIndex = 0rs.CloseSet rs = NothingEnd SubPrivate Sub init（）Text2。Text = ”If Combo1.ListIndex = Combo1。ListCount 1 ThenCombo1.ListIndex = 0ElseCombo1。ListIndex = Combo1。ListIndex + 1End IfEnd SubPrivate Sub cmdfind_Click() Dim sql As String Dim rs As ADODB。Recordset Set rs = New ADO

28、DB.Recordset sql = ”"If Trim(NoEdit。Text) = "” And Trim（NameEdit。Text) = "" Then MsgBox ”請(qǐng)輸入你要查詢的內(nèi)容！”, vbOKOnly + vbExclamation, ”警告” Exit SubElse If NoEdit。Text > ” And NameEdit。Text > ” Then sql = ”select Student。Sno，Sname,Cname,Grade from Student,Course，Sc where Student。

29、Sno = " & Trim（NoEdit。Text） ” ' and Sname like %” Trim（NameEdit.Text） ” and Sc。Sno=Student。Sno and Course。Cno=Sc。Cno” Set rs = TransactSQL（sql） ElseIf NoEdit。Text ” And NameEdit。Text = ”" Then sql = ”select Student。Sno，Sname,Cname，Grade from Student，Course，Sc where Student。Sno = ”

30、Trim(NoEdit。Text） ” and Sname like '" Trim（NameEdit.Text) "% and Sc。Sno=Student。Sno and Course。Cno=Sc。Cno" Set rs = TransactSQL（sql） ElseIf NoEdit。Text = ” And NameEdit.Text ” Then sql = ”select Student。Sno，Sname，Cname，Grade from Student，Course，Sc where Student。Sno = '” Trim（N

31、oEdit.Text） & ” ' and Sname like %" & Trim(NameEdit.Text) ”%' and Sc。Sno=Student。Sno and Course。Cno=Sc。Cno” Set rs = TransactSQL（sql） End IfEnd IfIf rs。EOF ThenMsgBox ”Sorry，無法找到你要想查詢的學(xué)生的基本信息！"ElseSno = rs（”Sno”）Sname = rs（”Sname”)Sc = ”"For i = 1 To rs.RecordCount Sc

32、= Sc + rs(”Cname”) ”:" rs（"Grade"） vbCrLf rs。MoveNextNextFrmGrade_Show.Label8。Caption = Scsql1 = ”select SUM（Grade） as Sum_Grade，AVG（Grade) as Avg_Grade from Sc where Sc。Sno='” Sno ” '"Set rs1 = TransactSQL（sql1)FrmGrade_Show.Text1.Text = SnoFrmGrade_Show。Text2。Text = Sna

33、meFrmGrade_Show。Text3.Text = rs1（”Sum_Grade”）FrmGrade_Show.Text4.Text = rs1(”Avg_Grade”）rs1.CloseSet rs1 = NothingFrmGrade_Show.ShowEnd Ifrs。CloseSet rs = NothingEnd SubPrivate Sub Command2_Click(）Unload MeEnd SubPrivate Sub Command2_Click（)Unload MeEnd SubPrivate Sub Label8_Click()End SubDim sql As

34、 String Dim rs As ADODB。RecordsetPrivate Sub cmdDel_Click（） Set rs = New ADODB。Recordset If Text1。Text = ” Then MsgBox ”請(qǐng)你輸入要?jiǎng)h除的課程編號(hào)！”， vbOKOnly + vbExclamation, ”警告！” Text1.SetFocus Exit Sub End If sql = ”select * from Course where Cno=” Trim（Text1。Text） ”'" Set rs = TransactSQL（sql) If rs

35、。EOF Then MsgBox ”不存在該課程,請(qǐng)確認(rèn)之后再刪除！”， vbOKOnly + vbExclamation， ”警告！” Text1。SetFocus rs。Close Exit Sub End If sql = "delete from Course where Cno=” Trim（Text1.Text） & ” ” If MsgBox("確定要?jiǎng)h除課程編號(hào)為” & Text1.Text ”的所有信息嗎？"， vbOKCancel + vbExclamation， ”提示！”） = vbOK Then TransactSQL (

36、sql） MsgBox ”該課程的所有信息已經(jīng)刪除!”， vbOKOnly + vbExclamation， ”警告!” Unload Me End IfEnd Sub Private Sub cmdMod_Click（) Set rs = New ADODB。Recordset If Text1.Text = ”" Or Text2。Text = ”" Or Text3。Text = ”" Or Text4。Text = "” Then MsgBox ”請(qǐng)你輸入要想修改的課程編號(hào)以及相關(guān)的所有信息！"， vbOKOnly + vbExclam

37、ation， ”警告!” Text1.SetFocus Exit Sub End If sql = ”select * from Course where Cno='” & Trim（Text1.Text) & ” Set rs = TransactSQL（sql） If rs.EOF Then MsgBox ”無法找到該課程的基本信息，請(qǐng)核實(shí)后再修改!”， vbOKOnly + vbExclamation, "警告！” Text1。SetFocus rs.Close Exit Sub End If If MsgBox("確定要修改課程編號(hào)為&quo

38、t; & Text1。Text & ”的基本信息嗎？”, vbOKCancel） = vbOK Then sql = ”update Course set Cname='” Trim（Text2。Text） ”'” If Option1（0).Value = True Then course_select = ”專業(yè)” Else course_select = ”選修" End If sql = sql & "，Cteacher= ” Trim（Text3。Text） "，Ccredit= ” & Trim（Text

39、4。Text） ”,Cselect='" course_select ”" sql = sql " where Cno=” Trim（Text1。Text） ”" TransactSQL (sql) MsgBox ”該課程的基本信息已經(jīng)修改!”， vbOKOnly + vbExclamation, ”修改成功！" Unload Me End IfEnd SubPrivate Sub Command1_Click()Unload MeEnd SubDim sql As String Dim rs As ADODB.Recordset Pr

40、ivate Sub cmdDel_Click（） Set rs = New ADODB。Recordset If Text1.Text = ” Then MsgBox "請(qǐng)你輸入要?jiǎng)h除的學(xué)生的學(xué)號(hào)！”， vbOKOnly + vbExclamation, ”警告！” Text1。SetFocus Exit Sub End If sql = "select from Student where Sno='” Trim（Text1。Text） "'" Set rs = TransactSQL（sql） If rs.EOF Then MsgBo

41、x ”不存在該學(xué)生，請(qǐng)確認(rèn)之后再刪除！”, vbOKOnly + vbExclamation， "警告！” Text1。SetFocus rs。Close Exit Sub End If sql = ”delete from Student where Sno='” & Trim（Text1.Text) " ” If MsgBox（"確定要?jiǎng)h除學(xué)號(hào)為” Text1。Text ”的所有信息嗎？”， vbOKCancel + vbExclamation, ”提示！”） = vbOK Then TransactSQL (sql） MsgBox ”該學(xué)生的

42、所有信息已經(jīng)刪除！”, vbOKOnly + vbExclamation, "警告!" Unload Me End IfEnd SubPrivate Sub cmdMod_Click（） Set rs = New ADODB。Recordset If Text1.Text = "” Or Text2.Text = ” Or Text3。Text = ” Or Text4.Text = ” Or Text5.Text = ” Or Text6.Text = ” Or Text7.Text = "” Or Text8.Text = "” Then

43、MsgBox ”請(qǐng)你輸入要想修改的學(xué)生的學(xué)號(hào)以及相關(guān)的所有信息!”， vbOKOnly + vbExclamation， ”警告！" Text1。SetFocus Exit Sub End If sql = ”select * from Student where Sno=" Trim(Text1。Text) ”" Set rs = TransactSQL（sql) If rs。EOF Then MsgBox ”無法找到該學(xué)生的基本信息，請(qǐng)核實(shí)后再修改!”， vbOKOnly + vbExclamation， "警告！" Text1。SetFocus rs。Close Exit Sub End If If MsgBox(”確定要修改學(xué)號(hào)為" Text1。