VB課設(shè)報告學(xué)生成績管理系統(tǒng)

1、XIAN TECHNOLOGICAL UNIVERSITY課程設(shè)計報告課程名稱 可視化程序設(shè)計 專 業(yè)： 信息管理與信息系統(tǒng) 成 績： 2016年 6 月 30 日目錄（一）系統(tǒng)開發(fā)計劃11 引言11.1編寫目的 11.2項目背景 11.3系統(tǒng)開發(fā)的背景12 項目概述12.1目標(biāo) 22.2系統(tǒng)簡介22.3產(chǎn)品 33 實施計劃33.1人員配置 33.2項目進(jìn)度計劃   34 完成項目應(yīng)具備的條件和約束44.1計算機系統(tǒng)支持  44.2開發(fā)人員應(yīng)具備相應(yīng)的開發(fā)能力44.3資費4（二）系統(tǒng)開發(fā)可行性報

2、告41 經(jīng)濟上的可行性42 技術(shù)上的可行性43 管理上的可行性54 開發(fā)環(huán)境的可行性5（三）信息系統(tǒng)需求說明書51 需求規(guī)定51.1對功能的規(guī)定（說明角色和功能）51.2功能分析61.3功能結(jié)構(gòu)圖71.4對性能的規(guī)定（時間響應(yīng)、穩(wěn)定性等）71.5輸人輸出要求81.6故障處理要求8（四） 信息系統(tǒng)設(shè)計報告81 系統(tǒng)總體設(shè)計81.1本系統(tǒng)的體系結(jié)構(gòu)81.2系統(tǒng)總體結(jié)構(gòu)91.2.1前臺業(yè)務(wù)模塊91.2.2 后臺管理模塊102 系統(tǒng)詳細(xì)設(shè)計102.1基礎(chǔ)代碼方案102.2數(shù)據(jù)庫設(shè)計152.2.1 系統(tǒng)E-R圖152.2.2數(shù)據(jù)庫表的設(shè)計16（五）系統(tǒng)測試報告171 系統(tǒng)運行172 學(xué)生登錄173 教師

3、登錄194 教務(wù)登陸205 系統(tǒng)調(diào)試22（六）系統(tǒng)使用說明書23（一）系統(tǒng)開發(fā)計劃1 引言1.1編寫目的 為了保證項目團隊按時保質(zhì)地完成項目目標(biāo)，便于項目團隊成員更好地了解項目情況，使項目工作開展的各個過程合理有序，因此以文件化的形式，把開發(fā)過程中各項工作的人員、分工、經(jīng)費、系統(tǒng)資源條件等問題的安排記錄下來，作為項目團隊成員以及項目干系人之間的共識與約定，項目團隊開展和檢查項目工作的依據(jù)，以便計劃開展和確保項目開發(fā)成功。 1.2項目背景 隨著科學(xué)技術(shù)的不斷提高，計算機科學(xué)日漸成熟，其強大的功能以為人們深刻認(rèn)識，信息技術(shù)不斷發(fā)展的當(dāng)今各行各業(yè)的發(fā)展完善中都離不開信息

4、處理，計算機被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分，使用計算機對學(xué)生成績管理信息進(jìn)行管理，具有手工管理所無法比擬的有點。利用它能夠進(jìn)行大規(guī)模的信息數(shù)據(jù)處理分析，使工作效率和安全性大大提高，所以對于高校學(xué)生成績的管理擁有一款好的學(xué)習(xí)成績管理系統(tǒng)軟件是必須的。學(xué)生成績管理系統(tǒng)是一個學(xué)校不可缺少的重要部分，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要，所以學(xué)生成績管理系統(tǒng)應(yīng)該為用戶提供充足的信息和快捷的查詢手段。同時，學(xué)生成績管理是各大學(xué)的主要日常管理工作之一，涉及到校、系、師、生的諸多方面，隨著教學(xué)體制的不斷改革，尤其是學(xué)分制、

5、選課制的展開和深入，學(xué)生成績?nèi)粘９芾砉ぷ骷氨４婀芾砣遮叿敝?、?fù)雜。高校都迫切需要研制開發(fā)一款屬于自己的功能強大，操作簡單，具有人性化的學(xué)生成績管理系統(tǒng)。1.3系統(tǒng)開發(fā)的背景 由本小組成員自己確定題目，老師給予指導(dǎo)，由本組成員聯(lián)合完成報告。以實現(xiàn)學(xué)生成績管理系統(tǒng)子功能。2 項目概述2.1目標(biāo) 在我國，各大中小學(xué)校的各類信息管理系統(tǒng)并非一個新的課題，但也有的學(xué)校根本就沒有信息任何管理系統(tǒng)，所有的工作幾乎還是手工操作來完成。計算機技術(shù)在日新月異的發(fā)展，信息化是社會進(jìn)程的必然趨勢，學(xué)校管理只有只有快，準(zhǔn)，精才能發(fā)揮其價值。本系統(tǒng)是將現(xiàn)代化的計算機技術(shù)和傳統(tǒng)的教學(xué)、教務(wù)工作相結(jié)合，按照學(xué)院的工

6、作流程設(shè)計完成的。為了使系統(tǒng)在學(xué)院的管理中發(fā)揮更大的作用，實現(xiàn)工作過程的計算機化，提高工作效率和工作質(zhì)量，現(xiàn)提出如下的系統(tǒng)開發(fā)目標(biāo)： （1）系統(tǒng)應(yīng)具有實用性、可靠性和適用性，同時注意到先進(jìn)性。 （2）對各個數(shù)據(jù)庫進(jìn)行動態(tài)管理，防止混亂。 （3）能夠按照用戶選擇的不同的條件進(jìn)行簡單查詢和復(fù)合查詢。 （4）能夠?qū)Σ樵兘Y(jié)果進(jìn)行分類匯總。 （5）注意數(shù)據(jù)的安全性，具有數(shù)據(jù)備份和恢復(fù)的功能。 （6）方便用戶的操作，盡量減少用戶的操作。 2.2系統(tǒng)簡介本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其

7、主要任務(wù)是用計算機對學(xué)生信息進(jìn)行日常管理，如查詢、修改 、增加、刪除。本系統(tǒng)主要包括用戶登錄、信息查詢、修改和增加、課程查詢和增加、成績查詢和錄入、成績的統(tǒng)計等模塊。其功能主要有：（1） 教務(wù)處能夠?qū)崿F(xiàn)對整個專業(yè)信息、課程信息、學(xué)生信息的添加、修改、刪除、查詢等操作； （2） 可以將學(xué)生成績的數(shù)據(jù)發(fā)布到網(wǎng)上，方便學(xué)生教師進(jìn)行查詢，達(dá)到資源共享的目的。 （3）教師能夠在一定的權(quán)限內(nèi)對所有學(xué)生成績的查詢，教師可以給學(xué)生所選課程打分。 （4）學(xué)生可以在自己的權(quán)限內(nèi)對自己的成績查詢，以及個人信息的查詢，登錄密碼的修改。（5）密碼：進(jìn)入系統(tǒng)所需要的憑證。（6）權(quán)限：教師、學(xué)

8、生、教務(wù)權(quán)利的限制。2.3產(chǎn)品 程序：學(xué)生成績管理系統(tǒng)(VB程序)和數(shù)據(jù)庫。文件：系統(tǒng)開發(fā)計劃、系統(tǒng)開發(fā)可行性報告、系統(tǒng)需求說明書、系統(tǒng)設(shè)計說明書、測試報告、系統(tǒng)使用說明書、匯總文檔。3 實施計劃3.1人員配置  組長：張帆  成員：侯萌、賈丹丹、李海燕、李玉玲、李玥 需交成果任務(wù)分配參與者程序項目開發(fā)的整個過程小組所有成員文檔系統(tǒng)開發(fā)計劃李玥系統(tǒng)開發(fā)可行性報告李海燕系統(tǒng)需求說明書李玉玲系統(tǒng)設(shè)計說明書張帆測試報告侯萌系統(tǒng)使用說明書賈丹丹3.2項目進(jìn)度計劃    開始時間：2016年6月21日 結(jié)束時間：2016年6月30日具

9、體進(jìn)度選題準(zhǔn)備，明確成員各自任務(wù)2016年6月20日系統(tǒng)計劃、可行性研究2016年6月2122日系統(tǒng)設(shè)計2016年6月2325日系統(tǒng)編碼2016年6月2628日系統(tǒng)測試調(diào)試2016年6月2829日PPT匯報答辯，提交系統(tǒng)及各種文檔2016年6月30日4 完成項目應(yīng)具備的條件和約束4.1計算機系統(tǒng)支持   本管理系統(tǒng)的開發(fā)需要工作平臺：PC主機。  開發(fā)環(huán)境：Windows7及以上操作系統(tǒng)、已安裝VB及Access 軟件。 運行環(huán)境：Windows7及以上操作系統(tǒng)。4.2開發(fā)人員應(yīng)具備相應(yīng)的開發(fā)能力 Visual Basic 6.0的編程和Acc

10、ess數(shù)據(jù)庫的設(shè)計能力。4.3資費 開發(fā)時間為兩周，無資費。（二）系統(tǒng)開發(fā)可行性報告由于本系統(tǒng)管理的對象為教師和學(xué)生，且每個數(shù)據(jù)內(nèi)容具有較強的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。因此，比較適合采用數(shù)據(jù)庫管理。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其他程序的功能，因此完全可以實現(xiàn)。1 經(jīng)濟上的可行性現(xiàn)在，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。而本系統(tǒng)的開發(fā)，也在一定程度上為學(xué)校的工作效率帶來了一個質(zhì)的飛躍，為此主要表現(xiàn)有以下幾個方面：一方面是支出的費用，包括設(shè)備購置費、管理和維護(hù)費用、人員工資和培訓(xùn)費等，另一個是取得的收益。這是個超小的管理系統(tǒng)，從

11、投入的人力，財力與物力來講是非常之小的，只要一臺電腦，一臺打印機，這個系統(tǒng)就可以搞起來，考慮到學(xué)校里有電腦，現(xiàn)只要購置一臺打印機就可以了。從節(jié)省人力方面，可以讓管理人員從繁冗復(fù)雜的工作中解脫出來，做更多的工作，可以給教學(xué)管理提高一個層次。具體有以下幾個方面： （1）本系統(tǒng)只需要一臺計算機； （2）本系統(tǒng)的運行可以節(jié)省許多資源； （3）本系統(tǒng)的運行可以大大的提高學(xué)校的工作效率； （4）本系統(tǒng)可以敏感文檔更加安全，等等。2 技術(shù)上的可行性 從技術(shù)方面來說，Visual Basic6.06.0是啟動畫面編程工具M(jìn)SDN之一，是目前世界上使用最廣泛的程序開發(fā)工具之一。結(jié)構(gòu)簡單，編寫程序?qū)ο到y(tǒng)的資源占有

12、極低，是程序編寫者編寫小型程序的第一選擇。它的快捷開發(fā)速度，簡單易學(xué)的語法，體貼便利的開發(fā)環(huán)境，可以方便操作，它擁有多種數(shù)據(jù)庫接口，可以非常方便的連接各種數(shù)據(jù)源。 技術(shù)的可行性分析要考慮將來要采用的硬件和軟件技術(shù)能否滿足用戶提出的要求。此外還要考慮開發(fā)人員的水平，在數(shù)據(jù)庫方面要對管理模式比較熟悉。我們學(xué)習(xí)過數(shù)據(jù)庫和管理信息系統(tǒng)課程設(shè)計的相關(guān)課程，有能力編寫學(xué)生成績管理系統(tǒng)這種不算太難的程序。 使用VB作為系統(tǒng)開發(fā)環(huán)境，它提供完善的指令控制語句、類與對象的支持及豐富的數(shù)據(jù)類型，給開發(fā)高性能系統(tǒng)提供的保障為開發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統(tǒng)的

13、擴展與修改。 而且由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此可以實現(xiàn)。 綜上所述，本系統(tǒng)的設(shè)計與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。3 管理上的可行性主要是教務(wù)處管理人員的大力支持，系領(lǐng)導(dǎo)認(rèn)同，現(xiàn)有的管理制度和方法科學(xué)，規(guī)章制度齊全，原始數(shù)據(jù)正確等。規(guī)章制度和管理方法系統(tǒng)的建設(shè)提供了制度保障。4 開發(fā)環(huán)境的可行性企業(yè)領(lǐng)導(dǎo)意見一致，并且有足夠的資金，可以抽出骨干力量參加新系統(tǒng)開發(fā)，簡單地說，就是企業(yè)能夠為新系統(tǒng)的開發(fā)建設(shè)提供一個長期良好的環(huán)境，因此，它的開發(fā)環(huán)境也是可行的。（三）信息系統(tǒng)需求說明書1 需求規(guī)定 1.1對功能的

14、規(guī)定（說明角色和功能） 本系統(tǒng)主要針對3類不同的用戶。 (1) 系統(tǒng)管理員。這種類型的客戶端服務(wù)于管理層，建立在已有的結(jié)構(gòu)化和非結(jié)構(gòu)化數(shù)據(jù)基礎(chǔ)之上，通過對數(shù)據(jù)的統(tǒng)計和分析，就能快速獲得管理層所需的各種信息， 如所有學(xué)生信息、 所有課程信息、所有成績的統(tǒng)計等等一些情況。 (2) 學(xué)生。這種類型的客戶端服務(wù)于學(xué)生直接操作來獲得自己所需要的服務(wù)，如基本信息查詢、所學(xué)課程查詢、成績查詢等等。每一個功能，用戶都可以根據(jù)系統(tǒng)的提示一步一步往下進(jìn)行，不存在學(xué)生不會查詢的問題，極大節(jié)約了學(xué)生和學(xué)校工作人員的的時間，也提高了效率。 (3)教師。這種類型的客戶端服務(wù)于教師直接操作來獲得及所需要的服務(wù)，如學(xué)生成績的

15、錄入、查詢和統(tǒng)計，課程信息的查詢等等，每一個功能 ，教師都可在進(jìn)入系統(tǒng)后查詢到，大大方便了教師的工作，提高了工作效率。功能簡介說明登陸用戶輸入賬號和密碼，如果賬號和密碼不相符 ，系統(tǒng)則顯示“用戶名密碼驗證有誤，請重新輸入?！痹黾佑脩粼谳斎雽W(xué)生信息、課程信息、成績時，點擊增加，會提示“增加成功”。修改用戶輸入在進(jìn)行學(xué)生信息、課程修改時，確認(rèn)后，系統(tǒng)會提示“修改成功”查詢該功能可以實現(xiàn)查詢學(xué)生信息、課程、成績等信息。刪除管理員可對學(xué)生信息、課程進(jìn)行刪除操作，確認(rèn)后，系統(tǒng)會提示“刪除成功”統(tǒng)計教師可對自己所教授課程進(jìn)行統(tǒng)計，而管理員可以對所有的課程進(jìn)行統(tǒng)計，了解學(xué)生的整體學(xué)習(xí)情況。1.2功能分析 本

16、系統(tǒng)主要由以下功能需求： (1)前臺用戶登錄模塊 (2)前臺用戶增加模塊 (3)前臺用戶修改模塊 (4)前臺用戶刪除模塊 (5)前臺用戶查詢模塊 (6)后臺管理員賦予學(xué)生教師權(quán)限模塊 (7)后臺管理員成績管理模塊 (8)后臺管理員學(xué)生信息管理模塊 (9)后臺管理員課程信息管理模塊1.3功能結(jié)構(gòu)圖1.4對性能的規(guī)定（時間響應(yīng)、穩(wěn)定性等） 1、精度 輸入數(shù)據(jù)精度： 用戶密碼：六位整數(shù); 成績：最大為100分；賬號：三位整數(shù) 2、穩(wěn)定性 系統(tǒng)要比較健壯，只要是用戶的合理操作，系統(tǒng)都能夠給出合理正確的回應(yīng)，不出現(xiàn)令用戶感到意外的系統(tǒng)錯誤或系統(tǒng)崩潰。1.5輸人輸出要求 (1)輸入： 輸入內(nèi)容：用戶名 ，

17、密碼 ，成績 ，學(xué)生信息，課程信息 。 數(shù)據(jù)精度 密碼：六位整數(shù) 成績：最大為100 具體要求 成績最大為100分并且不能不寫成績 (2)輸出： 輸出內(nèi)容：輸入帳號和密碼提示，添加、修改、刪除成功都有提示，成 績顯示。 具體要求 顯示所有科目成績。1.6故障處理要求 (1)能夠?qū)τ脩翡浫氲母鞣N數(shù)據(jù)進(jìn)行校驗。 (2)能夠及時捕捉系統(tǒng)在運行時的錯誤信息，并給出相應(yīng)的提示，系統(tǒng)應(yīng)有一定的容錯能力。 (3)用磁盤方式對系統(tǒng)數(shù)據(jù)進(jìn)行完整備份。由應(yīng)用系統(tǒng)自動調(diào)用數(shù)據(jù)后備的實用程序進(jìn)行磁盤備份。 （四） 信息系統(tǒng)設(shè)計報告1 系統(tǒng)總體設(shè)計1.1本系統(tǒng)的體系結(jié)構(gòu) C/S體系系統(tǒng): (1)C/S體系說明C/S體系

18、即客戶端/服務(wù)器模式，客戶端采用VB開發(fā)，運行于WindowsXP的操作系統(tǒng)上；服務(wù)器端軟件運行于Windows XP Server上；數(shù)據(jù)庫采用Access。 (2)C/S模式的設(shè)計銀行ATM機存取款系統(tǒng)采用C/S模式，在服務(wù)器端存儲客戶資源各種信息，操作員在客戶端可以進(jìn)行操作，查看操作數(shù)據(jù)庫。每個客戶端都與服務(wù)器相連接。 (3)開發(fā)運行環(huán)境 運行環(huán)境： CPU: 1.5 GHz RAM：512M以上 硬盤：512M及以上 操作系統(tǒng)：Microsoft Windows XP 開發(fā)工具： VB 6.0 開發(fā)語言：VB+Access1.2系統(tǒng)總體結(jié)構(gòu)1.2.1前臺業(yè)務(wù)模塊 1.2.2 后臺管理模

19、塊 2 系統(tǒng)詳細(xì)設(shè)計2.1基礎(chǔ)代碼方案 教師登錄界面Private Sub Command3_Click()Dim Conn As New adodb.ConnectionConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;Persist Security Info=False") '建立連接If Text1.Text = "" ThenMsgBox "請輸入職工號！", vbCritical, "提示"Text1.Set

20、FocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "請輸入密碼！", vbCritical, "提示"Text2.SetFocusExit SubEnd IfDim rs As New adodb.RecordsetWith rsSQL = "select * from zhigong where 職工號='" & Text1.Text & " ' and 密碼='" & Text2.Text &am

21、p; "'"Set rs = Conn.Execute(SQL)If Not rs.EOF Then '是否查找'登錄成功MsgBox "登錄成功", vbOKOnly, "提示"Unload MeForm4.ShowText2.Text = ""ElseMsgBox "職工號密碼驗證有誤，請重新輸入", vbCritical, "提示"Text2.Text = ""Text2.SetFocusEnd IfConn.CloseEnd

22、 WithEnd Sub 查詢學(xué)生信息界面Private Sub Command1_Click()Set db = New adodb.Connectiondb.CursorLocation = adUseClientSet rs = New adodb.RecordsetCall db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;") '連接數(shù)據(jù)庫rs.Open "select *from xueshengxx where 學(xué)號 ='" & Tex

23、t1.Text & "'", db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()Set db = New adodb.Connectiondb.CursorLocation = adUseClientSet rs = New adodb.RecordsetCall db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;"

24、;) '連接數(shù)據(jù)庫rs.Open "select *from xueshengxx where 姓名 ='" & Text2.Text & "'", db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub 增加界面Private Sub Command1_Click()Dim ADOrs As New Recordset '聲明一個記錄集對象Dim ADOrs1 As New Recordset '聲明一個記錄集對

25、象Dim strSQL As StringADOrs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False" '與ADOcn連接對象關(guān)聯(lián)ADOrs1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False" '與ADOcn連接對象

26、關(guān)聯(lián) If Text1.Text = "" Then MsgBox "未輸入班級，請重新輸入數(shù)據(jù)！", vbCritical + vbOKOnly Text1.SetFocus '定位光標(biāo) Exit Sub End IfIf Text2.Text = "" Then MsgBox "未輸入專業(yè)，請重新輸入數(shù)據(jù)！", vbCritical + vbOKOnly Text2.SetFocus '定位光標(biāo) Exit SubEnd If'首先查詢表中是否存在關(guān)鍵字相同的記錄strSQL = &quo

27、t;select * from zhuanye"strSQL = strSQL & " Where 班級='" + Text1.Text + " '"strSQL = strSQL & " and 專業(yè)='" + Text2.Text + "'"ADOrs.Open strSQL'如果關(guān)鍵字重復(fù),則退出If Not ADOrs.EOF Then MsgBox "該記錄已經(jīng)存在,不能繼續(xù)增加", vbCritical + vbOKO

28、nly Exit SubEnd IfADOrs1.Open "select * from zhuanye", , , adLockOptimisticADOrs1.AddNewADOrs1("班級") = Text1.TextADOrs1("專業(yè)") = Text2.TextADOrs1.UpdateText1.Text = "" '初始化文本框控件Text2.Text = ""Text1.SetFocus '定位光標(biāo)MsgBox "已成功添加新記錄", vb

29、Question + vbOKOnlyADOrs.Close '關(guān)閉記錄集ADOrs1.Close '關(guān)閉記錄集Set ADOrs = NothingSet ADOrs1 = NothingEnd Sub 刪除界面Private Sub Command2_Click()Dim 學(xué)號 As StringDim 姓名 As StringDim 課程號 As StringDim 課程名 As StringDim strSQL As StringDim ADOrs As New Recordset '聲明記錄集對象ADOrs.ActiveConnection = "P

30、rovider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False" '與ADOcn連接對象關(guān)聯(lián) '與ADOcn連接對象關(guān)聯(lián)'如果學(xué)號與姓名同時為空則提示重新輸入/選擇 If MsgBox("刪除學(xué)號為" + Combo1.Text + "姓名為" + Combo2.Text + "和課程號為" + Combo3.Text + "課程為" + Combo4.Text + "

31、;的成績記錄，該學(xué)生在學(xué)生成績表中的全部記錄也將一起刪除，是否繼續(xù)？", vbQuestion + vbYesNo) = vbYes Then'拼寫Delete學(xué)生成績表指定記錄語句 strSQL = "Delete From chengji" strSQL = strSQL + " Where 學(xué)號 = Adodc1.RecordSource" Adodc1.Recordset.Delete strSQL = "Delete From kecheng" strSQL = strSQL + " Where

32、課程號 = Adodc2.RecordSource" Adodc2.Recordset.Delete Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast '拼寫Delete學(xué)生情況表指定記錄語句 MsgBox "刪除成功!", vbQuestion + vbOKOnly Combo1.Text = "" Combo2.Text = "" End IfIf ADOrs.State = adStateOpen Then ADOrs.Clos