vb課程設(shè)計(jì)報(bào)告--學(xué)生信息管理系統(tǒng)

1、<p>　　經(jīng)濟(jì)管理學(xué)院本科課程設(shè)計(jì)說明書</p><p><b>　　面向?qū)ο笳n程設(shè)計(jì)</b></p><p>　　學(xué) 號(hào)： </p><p>　　姓 名： </p><p>　　班 級(jí)：

2、 </p><p>　　專 業(yè)： 信息管理與信息系統(tǒng) </p><p>　　系 別: 管理系 </p><p>　　指導(dǎo)教師： </p><p>　　2012 年 12 月

3、 7 日</p><p><b>　　目錄</b></p><p>　　第1章 課設(shè)概述....................................................2 </p><p>　　1.1學(xué)生信息管理系統(tǒng)開發(fā)背景介紹.................................2</p>

4、<p>　　1.2 課程設(shè)計(jì)的目的和意義........................................2</p><p>　　1.3 本課設(shè)的具體研究工作........................................3</p><p>　　第2章 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn).......................................

5、.....3 </p><p>　　2.1 開發(fā)環(huán)境簡(jiǎn)介................................................3 2.2 學(xué)校學(xué)生管理信息系統(tǒng)設(shè)計(jì)....................................4</p><p>　　2.3 系統(tǒng)分析設(shè)計(jì)....................

6、............................4</p><p>　　2.4對(duì)于學(xué)生信息的分析與處理.....................................5</p><p>　　2.4程序具體運(yùn)行結(jié)果與討論.......................................7</p><p>　　第3章 課設(shè)總結(jié)和展望...

7、..........................................11</p><p><b>　　第1章 課設(shè)概述</b></p><p>　　1.1學(xué)生信息管理系統(tǒng)開發(fā)背景介紹</p><p>　　學(xué)生信息管理系統(tǒng)是針對(duì)學(xué)校人事處的大量業(yè)務(wù)處理工作而開發(fā)的管理軟件，主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)

8、化、科學(xué)化、規(guī)范化和自動(dòng)化，其主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理，如查詢、修改、增加、刪除，另外還考慮到學(xué)生選課，針對(duì)這些要求設(shè)計(jì)了學(xué)生信息管理系統(tǒng)。推行學(xué)校信息管理系統(tǒng)的應(yīng)用是進(jìn)一步推進(jìn)學(xué)生學(xué)籍管理規(guī)范化、電子化、控制輟學(xué)和提高義務(wù)教育水平的重要舉措</p><p>　　學(xué)生信息的管理對(duì)于學(xué)校的管理者來說至關(guān)重要，學(xué)生信息是高等學(xué)校非常重要的一項(xiàng)數(shù)據(jù)資源，是一個(gè)教育單位不可缺少一部分。特別是近幾年來，

9、國(guó)家政策的調(diào)整，我國(guó)高等院校大規(guī)模的擴(kuò)招，給高等院校的教學(xué)管理、學(xué)生管理、后勤管理等方面都帶來不少的沖擊。其包含的數(shù)據(jù)量大，涉及的人員面廣，而且需要及時(shí)更新，故較為復(fù)雜，難以單純地依靠人工管理，而且傳統(tǒng)的人工管理方式既不易于規(guī)范化，管理效率也不高，目前我國(guó)各類高等院校中還有相當(dāng)一部分學(xué)生檔案管理還停留在紙介質(zhì)的基礎(chǔ)上，尤其是中、小學(xué)對(duì)學(xué)生檔案的管理更是落后，這樣的管理機(jī)制已經(jīng)不能適應(yīng)時(shí)代發(fā)展的要求，其管理方法將浪費(fèi)許多人力和物力。隨著科

10、學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)與技術(shù)日漸成熟，計(jì)算機(jī)應(yīng)用的普及已進(jìn)入人類社會(huì)生活的各個(gè)領(lǐng)域，并發(fā)揮著越來越重要的作用。這種傳統(tǒng)的手工管理模式必然被以計(jì)算機(jī)為物質(zhì)基礎(chǔ)的信息管理方法所取代?！　?lt;/p><p>　　作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)學(xué)生檔案進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點(diǎn)，如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率，也是學(xué)校

11、向科學(xué)化、正規(guī)化管理發(fā)展的必要條件，更是各個(gè)高等院校與世界接軌的重要條件。 </p><p>　　1.2課程設(shè)計(jì)的目的和意義</p><p>　　主要是提供學(xué)生，老師或者來訪者方便的查詢等相關(guān)操作，對(duì)學(xué)生的信息管理能統(tǒng)一規(guī)范化。功能塊的相應(yīng)操作分別由其對(duì)應(yīng)的子模塊實(shí)現(xiàn)。通過教育網(wǎng)絡(luò)或互聯(lián)網(wǎng)把整個(gè)學(xué)校的學(xué)生信息匯聚起來，為學(xué)校教育主管部門提供全面及時(shí)的學(xué)生信息，方便管理，同時(shí)亦可通過校園網(wǎng)

12、擴(kuò)展各類信息化應(yīng)用，共享學(xué)生信息。學(xué)?？赏ㄟ^一個(gè)簡(jiǎn)化的學(xué)生信息管理系統(tǒng)，使學(xué)生信息管理工作系統(tǒng)化，規(guī)范化，自動(dòng)化，從而達(dá)到提高學(xué)生信息管理效率的目的。同時(shí)，系統(tǒng)化的信息管理減輕了管理人員的工作負(fù)擔(dān)，高效率、規(guī)范化地管理大量的學(xué)生信息，并避免人為操作的錯(cuò)誤和不規(guī)范行為。</p><p>　　1.3本課設(shè)的具體研究工作</p><p>　　本課設(shè)采用Visual Basic6.0 + SQL

13、 Server 2000實(shí)現(xiàn)數(shù)據(jù)庫管理，首先用Microsoft SQL Server 2000 建立關(guān)系數(shù)據(jù)庫，設(shè)計(jì)了學(xué)生信息管理、學(xué)生成績(jī)管理兩個(gè)數(shù)據(jù)庫，再在兩個(gè)數(shù)據(jù)庫里分別建立學(xué)生信息管理表和學(xué)生成績(jī)管理表。其中用戶表管理登陸信息以及用戶權(quán)限，學(xué)生信息管理表管理學(xué)生姓名、學(xué)號(hào)、專業(yè)的一些重要的信息，學(xué)生成績(jī)管理表主要是學(xué)生的各科成績(jī)，然后用 Visual Basic 建立客戶端，實(shí)現(xiàn)簡(jiǎn)單易懂的圖形用戶界面，并完成以下幾個(gè)功能：&l

14、t;/p><p>　　用戶管理：該功能主要是用于管理用戶登錄賬號(hào)和密碼的權(quán)限。</p><p>　　用戶選擇管理：該功能主要用于用戶選擇進(jìn)入學(xué)生信息管理或?qū)W生成績(jī)管理。</p><p>　　學(xué)生基本信息管理：該功能主要包括學(xué)生基本信息的錄入、查詢、修改以及刪除。</p><p>　　學(xué)生成績(jī)管理：該功能主要用于完成各門課程學(xué)習(xí)成績(jī)的錄入、修改和刪

15、除，以及成績(jī)的查詢。</p><p>　　第2章 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　2.1開發(fā)環(huán)境的簡(jiǎn)介</p><p>　　設(shè)計(jì)平臺(tái)：Visual Basic</p><p>　　Visual Basic是一個(gè)對(duì)象導(dǎo)向設(shè)計(jì)的應(yīng)用程序語言，是開發(fā)數(shù)據(jù)庫前端的經(jīng)典工具，它的編程語言簡(jiǎn)潔明快、組件功能強(qiáng)大和編程環(huán)境靈活方便。采用Visua

16、l Basic來開發(fā)數(shù)據(jù)庫應(yīng)用程序具有靈活性和可擴(kuò)展性。</p><p>　　數(shù)據(jù)庫： Microsoft SQL2000</p><p>　　SQL2000 是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。SQL2000 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。SQL2000 是一種關(guān)系

17、數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。SQL2000 多用于中小型企業(yè)來設(shè)計(jì)中小型數(shù)據(jù)庫，一般的學(xué)校教務(wù)系統(tǒng)的數(shù)據(jù)庫用SQL2000 來設(shè)計(jì)完全能達(dá)到要求。</p><p>　　數(shù)據(jù)庫訪問方式：ADO</p><p>　　ADO（Active Data Objects）是一種提供訪問各種數(shù)據(jù)類型的連接機(jī)制。ADO設(shè)計(jì)為一種極簡(jiǎn)單的格式，通過ODBC的方法同數(shù)據(jù)庫接口。可以使用

18、任何一種ODBC數(shù)據(jù)源，即不止適合于SQL Server、Oracle、Access 等數(shù)據(jù)庫應(yīng)用程序，也適合于Excel表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。ADO具有以下的優(yōu)點(diǎn)：對(duì)于本地和遠(yuǎn)程的數(shù)據(jù)庫訪問都與具體的數(shù)據(jù)庫無關(guān)，由于ADO是Microsoft開發(fā)的，所以它對(duì)Microsoft的Access和SQL Server的數(shù)據(jù)訪問有著非常好的支持，因此如果是基于Access和SQL Server的數(shù)據(jù)庫應(yīng)用程序的開發(fā)，那么

19、采用ADO是很好的選擇。因?yàn)楸鞠到y(tǒng)是基于SQL2000數(shù)據(jù)庫的設(shè)計(jì)，因此我們采用了ADO。</p><p>　　2.2學(xué)校學(xué)生管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)</p><p>　　由于考慮到本系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上，另外根據(jù)學(xué)校人員規(guī)模，我只建立起一個(gè)數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起如下兩個(gè)基本表：</p><p>　?。?）學(xué)生基本信息表，包括的數(shù)據(jù)字段有：姓名，性別，年齡，

20、專業(yè)，學(xué)號(hào)，班級(jí)，其中學(xué)號(hào)是主鍵。</p><p>　?。?）學(xué)生成績(jī)表，包括的數(shù)據(jù)字段有：姓名，學(xué)號(hào)，高數(shù)，英語，數(shù)據(jù)結(jié)構(gòu)，會(huì)計(jì)學(xué)，其中學(xué)號(hào)是主鍵。</p><p><b>　　2.3系統(tǒng)分析設(shè)計(jì)</b></p><p>　　模塊是Microsoft SQL Server 2000中實(shí)現(xiàn)數(shù)據(jù)庫復(fù)雜管理功能的有效工具，它由VisualBasic

21、編制的過程和函數(shù)組成。為了清晰、全面的介紹學(xué)生信息管理系統(tǒng)的功能，以及各個(gè)功能模塊間的關(guān)系，下圖以結(jié)構(gòu)圖的形式給出了系統(tǒng)的功能，如圖 2-1 所示</p><p><b>　　圖 2-1</b></p><p>　?。?）用戶登陸模塊：輸入用戶名和密碼，如果用戶名和密碼正確，進(jìn)入主控制平臺(tái)；否則提示用戶明確的錯(cuò)誤信息。 </p><p>

22、　?。?）用戶選擇管理模塊：該模塊用戶可以選擇進(jìn)入學(xué)生信息管理模塊或?qū)W生成績(jī)管理模塊。</p><p>　?。?）學(xué)生信息管理模塊：該模塊錄入、查詢、修改、刪除以及保存學(xué)生的基本信息，其中包括學(xué)號(hào)，姓名，年齡，性別，專業(yè)，班級(jí)等管理模塊.</p><p>　　（4） 學(xué)生成績(jī)管理模塊：該模塊錄入、查詢、修改和刪除各門課程的成績(jī)，其中包括學(xué)生學(xué)號(hào)，姓名，高數(shù)，英語，數(shù)據(jù)結(jié)構(gòu)，會(huì)計(jì)學(xué)等成績(jī)管理

23、模塊。</p><p>　　2.4對(duì)于學(xué)生信息的分析與處理</p><p>　　整個(gè)程序的運(yùn)行重點(diǎn)是學(xué)生信息的添加，修改，刪除下面給出核心代碼及解析：</p><p>　　Private Sub cmdAdd_Click()</p><p>　　Adodc1.Recordset.AddNew </p><p>　　cm

24、dAdd.Enabled = False</p><p>　　cmdExit.Enabled = False</p><p>　　cmdAlter.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdAlter_Click()

25、 '修改學(xué)生信息</p><p>　　If MsgBox("確定修改？", vbYesNo, "提示信息") = vbYes Then</p><p>　　Text1.SetFocus</p><p>　　Sendkey "{Home}+{End}"</p><p&

26、gt;<b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdDelete_

27、Click() '刪除學(xué)生信息</p><p>　　cmdAdd.Enabled = False</p><p>　　cmdExit.Enabled = False</p><p>　　cmdSave.Enabled = False</p><p>　　cmdAlter.Enabled = False<

28、/p><p>　　If MsgBox("確認(rèn)要?jiǎng)h除此記錄嗎？", vbYesNo, "信息提示") = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p><b>　　Beep</b></p><p>　　MsgBox "

29、記錄已刪除", , "信息提示"</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveFirst '如果當(dāng)前位置位于Recordset對(duì)象的最后一個(gè)紀(jì)錄之后則光標(biāo)返回第一個(gè)記錄</p><p>　　If Adodc1.Recordse

30、t.BOF Then '如果當(dāng)前記錄位于Recordset對(duì)象的第一個(gè)記錄之前則不能再刪除</p><p>　　cmdDelete.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b

31、>　　End If</b></p><p>　　cmdSave.Enabled = True</p><p>　　cmdAdd.Enabled = True</p><p>　　cmdExit.Enabled = True</p><p>　　cmdDelete.Enabled = True</p><p

32、>　　cmdAlter.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdSave_Click()</p><p>　　If MsgBox("是否保存該記錄？", vbYesNo, "信息提示") = vbNo The

33、n '若提示后選擇否則不保存該記錄</p><p>　　Adodc1.Recordset.Delete</p><p>　　Else '否則保存該記錄</p><p>　　Adodc1.Recordset.Save</p><p>　　MsgBox "記錄已保存&

34、quot;, , "信息提示"</p><p>　　cmdSave.Enabled = False</p><p><b>　　End If</b></p><p>　　cmdSave.Enabled = True</p><p>　　cmdAdd.Enabled = True</p>

35、<p>　　cmdExit.Enabled = True</p><p>　　cmdDelete.Enabled = True</p><p>　　cmdAlter.Enabled = True</p><p><b>　　End Sub</b></p><p>　　這段代碼主要是學(xué)生信息的錄入，刪除，修改等重

36、要的操作，是本程序的核心部分，</p><p>　　2.5程序具體運(yùn)行結(jié)果與討論</p><p><b>　　運(yùn)行界面如下</b></p><p><b>　　圖2-2 登陸界面</b></p><p>　　設(shè)置登錄窗體為啟動(dòng)窗體，運(yùn)行程序，出現(xiàn)如圖 2-2 對(duì)話框，輸入用戶名、密碼后進(jìn)入系統(tǒng)，出現(xiàn)

37、如圖 2-3 界面。</p><p>　　圖 2-3 用戶選擇管理界面</p><p>　　在該界面用戶可以選擇進(jìn)入學(xué)生基本信息管理模塊或?qū)W生成績(jī)管理模塊。如選擇進(jìn)入學(xué)生信息管理界面，會(huì)出現(xiàn)如圖 2-4、圖2-5所示界面</p><p><b>　　圖 2-4</b></p><p>　　圖 2-5 學(xué)生基本信息管理界面

38、</p><p>　　在該界面用戶可以對(duì)學(xué)生基本信息進(jìn)行添加、刪除、修改、查詢等操作，如圖 2-4、圖2-5所示，學(xué)生基本信息包括姓名，年齡，性別，專業(yè)，班級(jí)等信息若是操作完成后，按退出鍵再次返回到用戶選擇管理界面 如圖 2-6 所示</p><p>　　圖2-6 用戶選擇管理界面</p><p>　　點(diǎn)擊進(jìn)入學(xué)生成績(jī)管理界面，出現(xiàn)如圖 2-7 所示界面</p

39、><p>　　圖 2-7 學(xué)生成績(jī)管理界面</p><p>　　在該界面上用戶可以進(jìn)行學(xué)生各科成績(jī)的添加、刪除和查詢，若用戶操作完畢，按退出鍵返回到用戶選擇管理界面，再按退出鍵，則退出程序的運(yùn)行。</p><p>　　第3章 課設(shè)總結(jié)和展望</p><p>　　本學(xué)生單科成績(jī)管理系統(tǒng)是使用Visual Basic6.0 + Microsoft S

40、QL Server 2000做為開發(fā)工具，基于C/S（客戶端/服務(wù)器端）模式下的小型管理系統(tǒng)。其功能特點(diǎn)都是針對(duì)當(dāng)前大學(xué)生教育教學(xué)特點(diǎn)，為了教師在平時(shí)的工作中提高效率而設(shè)計(jì)，界面便于操作。與當(dāng)前的學(xué)生成績(jī)管理系統(tǒng)相比針對(duì)性更強(qiáng)，便于移植修改。不足是功能上可以更加完善，安全性、保密性有待加強(qiáng)。</p><p>　　信息通訊技術(shù)在教育領(lǐng)域的快速發(fā)展,促進(jìn)了教育思想、教育方法和教育手段的更新?？梢哉f,傳統(tǒng)教育正面臨著革

41、命性的變化?；贑/S 結(jié)構(gòu)的學(xué)生信息管理系統(tǒng)使用方便,維護(hù)簡(jiǎn)單,不僅大大節(jié)省了人力資源,提高了工作效率,更有利于推動(dòng)高校學(xué)生管理的“無紙化辦公”進(jìn)程,具有一定的推廣前景使用價(jià)值。 </p><p><b>　　附源代碼</b></p><p><b>　　登錄窗體代碼</b></p><p>　　Private Sub

42、Form_Load()</p><p>　　Text1.Text = ""</p><p>　　Text1.MaxLength = 13 '文本框最大輸入長(zhǎng)度設(shè)為13</p><p>　　Text2.Text = ""</p><p>　　Text2.MaxLength = 7

43、 '文本框最大輸入長(zhǎng)度設(shè)為7</p><p>　　Text2.PasswordChar = "*" `輸入用*顯示</p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_LostFocus()</p><p>　　If Not

44、 IsNumeric(Text1.Text) Then</p><p>　　MsgBox "賬號(hào)必須為數(shù)字", , "警告" '連續(xù)兩個(gè)逗號(hào)（”,”），僅有”確定”按鈕</p><p>　　Text1.Text = ""</p><p>　　Text1.SetFocus

45、 '焦點(diǎn)重回Text1,繼續(xù)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text2.Text = "yangkai&

46、quot; And Text1.Text = "2011305010231" Then '賬號(hào)和密碼</p><p>　　MsgBox "正確!!"</p><p>　　Form1.Hide '登錄進(jìn)入選擇管理界面</p><p>　　Form4.Show</p><p&

47、gt;<b>　　Else</b></p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　MsgBox "密碼錯(cuò)誤,再輸入!!"</p><p><b>　　End If</b

48、></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>&

49、lt;b>　　用戶選擇窗體代碼</b></p><p>　　Private Sub Command1_Click()</p><p>　　Form4.Hide '選擇進(jìn)入學(xué)生信息管理界面</p><p>　　Form2.Show</p><p><b>　　End Sub</b

50、></p><p>　　Private Sub Command2_Click()</p><p>　　Form4.Hide '選擇進(jìn)入學(xué)生成績(jī)管理界面</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>

51、　　Private Sub Command3_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　學(xué)生基本信息管理代碼</p><p>　　Private Sub Form_Load()</p><p

52、>　　Combo1.AddItem "男"</p><p>　　Combo1.AddItem "女"</p><p>　　Combo1.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Co

53、mmand1_Click()</p><p>　　Adodc1.Recordset.MovePrevious '顯示上一條記錄</p><p>　　If Adodc1.Recordset.BOF Then</p><p>　　Adodc1.Recordset.MoveFirst '如果當(dāng)前記錄位于Recordset

54、對(duì)象的第一個(gè)記錄之前則將光標(biāo)移到第一條記錄</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Adodc1.Recordset.MoveNext

55、 '顯示下一條記錄</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast ''如果當(dāng)前位置位于Recordset對(duì)象的最后一個(gè)紀(jì)錄之后則光標(biāo)移到最后一個(gè)記錄</p><p><b>　　End If</b>

56、;</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　DataReport1.Show '顯示數(shù)據(jù)報(bào)表1</p><p><b>　　End Sub</b>

57、</p><p>　　Private Sub cmdAdd_Click()</p><p>　　Adodc1.Recordset.AddNew '添加學(xué)生基本信息</p><p>　　cmdAdd.Enabled = False</p><p>　　cmdExit.Enabled = False</p>

58、;<p>　　cmdAlter.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdAlter_Click()</p><p>　　If MsgBox("確定修改？", vbYesNo, "提示信息") = v

59、bYes Then</p><p>　　Text1.SetFocus</p><p>　　Sendkeys "{Home}+{End}"</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p>&

60、lt;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdDelete_Click()</p><p>　　cmdAdd.Enabled = False</p><p>　　cmdExit.Enabled = False&l

61、t;/p><p>　　cmdSave.Enabled = False</p><p>　　cmdAlter.Enabled = False</p><p>　　If MsgBox("確認(rèn)要?jiǎng)h除此記錄嗎？", vbYesNo, "信息提示") = vbYes Then</p><p>　　Adodc1.Rec

62、ordset.Delete</p><p><b>　　Beep</b></p><p>　　MsgBox "記錄已刪除", , "信息提示"</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.Mov

63、eFirst '如果當(dāng)前位置位于Recordset對(duì)象的最后一個(gè)紀(jì)錄之后則光標(biāo)返回第一個(gè)記錄</p><p>　　If Adodc1.Recordset.BOF Then '如果當(dāng)前記錄位于Recordset對(duì)象的第一個(gè)記錄之前則不能再刪除</p><p>　　cmdDelete.Enabled = False</p><p><b&

64、gt;　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　cmdSave.Enabled = True</p><p>　　cmdAdd.Enabled = True</p>&l

65、t;p>　　cmdExit.Enabled = True</p><p>　　cmdDelete.Enabled = True</p><p>　　cmdAlter.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdSave_Clic

66、k()</p><p>　　If MsgBox("是否保存該記錄？", vbYesNo, "信息提示") = vbNo Then '若提示后選擇否則不保存該記錄</p><p>　　Adodc1.Recordset.Delete</p><p>　　Else 

67、9;否則保存該記錄</p><p>　　Adodc1.Recordset.Save</p><p>　　MsgBox "記錄已保存", , "信息提示"</p><p>　　cmdSave.Enabled = False</p><p><b>　　End If</b></p

68、><p>　　cmdSave.Enabled = True</p><p>　　cmdAdd.Enabled = True</p><p>　　cmdExit.Enabled = True</p><p>　　cmdDelete.Enabled = True</p><p>　　cmdAlter.Enabled = Tru

69、e</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdExit_Click()</p><p>　　Unload Form3</p><p>　　Form4.Show</p><p><b>　　End Sub</b><

70、;/p><p><b>　　學(xué)生成績(jī)管理代碼</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Priv

71、ate Sub Command2_Click()</p><p>　　If MsgBox("確認(rèn)要?jiǎng)h除此記錄嗎？", vbYesNo, "信息提示") = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p><b>　　Beep</b></p&g

72、t;<p>　　MsgBox "記錄已刪除", , "信息提示"</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveFirst '如果當(dāng)前位置位于Recordset對(duì)象的最后一個(gè)紀(jì)錄之后則光標(biāo)返回第一個(gè)記錄</p>

73、<p>　　If Adodc1.Recordset.BOF Then '如果當(dāng)前記錄位于Recordset對(duì)象的第一個(gè)記錄之前則不能再使用刪除按鈕</p><p>　　cmdDelete.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End If<

74、;/b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　DataReport2.Show '連接學(xué)生成績(jī)管理數(shù)據(jù)表2

75、</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Unload Form3 '返回到用戶選擇管理界面</p><p>　　Form4.Show</p><p><