1、 學(xué)生學(xué)籍信息管理系統(tǒng) 專 業(yè)： 考籍號： 考生姓名： 指導(dǎo)老師： 通信地址： 郵政編碼： 聯(lián)系電話： 完成時間： 年 月目 錄摘要21 問題描述31.1 背景31.2 數(shù)據(jù)分析32 解決方案42.1 e-r 模型設(shè)計42.2 數(shù)據(jù)表43 系統(tǒng)實現(xiàn)63.1 開發(fā)環(huán)境63.2 系統(tǒng)流程圖63.3 程序主要功能界83.3.1 輸入設(shè)計83.3.2 屏幕格式設(shè)計83.3.3 輸出設(shè)計93.4 程序調(diào)試情況103.5 結(jié)論11結(jié)束語11參考文獻(xiàn)12摘 要隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息也成倍增長。面對龐大的信息量，有必要開發(fā)學(xué)生學(xué)籍信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過

2、這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢，從而減少管理方面的工作量。本學(xué)生學(xué)籍信息管理系統(tǒng)包括系統(tǒng)管理、查看和修改、信息錄入、查詢、打印報表五大模塊本系統(tǒng)采用visual basic 6.0為開發(fā)工具，后臺數(shù)據(jù)庫采用assecc 2000，操作系統(tǒng)為windows xp。關(guān)鍵詞：學(xué)生信息、管理系統(tǒng)、vb、ado1 問題描述學(xué)籍管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)籍管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。1.1 背景 隨著社會的發(fā)展，基本上所有的具有一定數(shù)量數(shù)據(jù)的企事業(yè)單位或機(jī)關(guān)部門都開始使用計算機(jī)數(shù)據(jù)庫來做管理

3、。當(dāng)然幾乎所有學(xué)校也都已經(jīng)在使用計算機(jī)管理數(shù)據(jù)的機(jī)制，大大減少了學(xué)校學(xué)籍管理的工作量。該課程設(shè)計要求設(shè)計一個學(xué)籍管理的數(shù)據(jù)庫系統(tǒng)，數(shù)據(jù)庫中要求包含學(xué)生的基本信息，學(xué)校所有專業(yè)信息，學(xué)校教師信息以及課程設(shè)置的信息。同時還要設(shè)計它們之間的關(guān)系，如學(xué)生與課程關(guān)系和學(xué)生的成績等，最后還要對一些數(shù)據(jù)進(jìn)行查詢，如查詢學(xué)生成績的各種集合等。我們通過該課程設(shè)計，應(yīng)該達(dá)到的目的是把數(shù)據(jù)庫理論知識更加的鞏固加深，加強(qiáng)動手能力與實踐能力，學(xué)以致用，與現(xiàn)實生活中的應(yīng)用充分的結(jié)合起來。本系統(tǒng)主要包括學(xué)生信息查詢、教務(wù)信息維護(hù)和學(xué)生選課三部分 1.2 數(shù)據(jù)需求 需求分析階段的基本任務(wù)是要準(zhǔn)確的定義新系統(tǒng)的目標(biāo)，為了滿足用

4、戶需要，回答系統(tǒng)必須“做什么”的問題。本階段要進(jìn)行以下幾方面的工作：(1)問題識別。雙方確定問題的綜合需求，這些需求包括：功能需求、性能需求、環(huán)境需求、用戶界面需求，還有可靠性、安全性、可維護(hù)性等方面的需求。(2)分析與綜合，導(dǎo)出軟件的邏輯模型。分析人員對獲取的需求，進(jìn)行一致性的分析檢查，在分析、綜合中逐步細(xì)化軟件功能，劃分成各個子功能。這里也包括對數(shù)據(jù)域進(jìn)行分解，并分配到各個子功能上，以確定系統(tǒng)的構(gòu)成及主要成份，并用圖文結(jié)合的形式，建立起新系統(tǒng)的邏輯模型。(3)編寫文檔。編寫“需求規(guī)格說明書”、編寫初步用戶使用手冊、編寫確認(rèn)測試計劃、修改完善軟件開發(fā)計劃。 2 解決方案 ( 或數(shù)據(jù)庫系統(tǒng)設(shè)計

5、 ) 2.1 e-r 模型設(shè)計 e-r圖是一種數(shù)據(jù)模型，是按照用戶的觀點對數(shù)據(jù)建立的模型，它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實環(huán)境，而與在軟件系統(tǒng)中的實現(xiàn)方法無關(guān)。數(shù)據(jù)模型中包含3種相互關(guān)聯(lián)的信息：數(shù)據(jù)對象、數(shù)據(jù)對象的屬性及數(shù)據(jù)對象彼此間相互連接的關(guān)系。本系統(tǒng)各實體間的e-r圖，如圖2.1學(xué)生課程教師學(xué)號班級名字性別出生年月民族專業(yè)學(xué)課程號課程名稱授課老師教姓名教授科目成績 圖2.1 e-r圖2.2 數(shù)據(jù)表 用戶信息表：超級用戶表里存儲了超級用戶的信息包括：用戶編號、用戶名、密碼，如表2.2.1字段名稱數(shù)據(jù)類型useid自動編號password文本usename文本表2.2.1 超

6、級用戶信息表學(xué)籍模塊：該模塊主要完成學(xué)生基本信息的錄入、刪除、更新等功能。在此模塊中定義了十三個域名來進(jìn)行學(xué)生的信息存儲。如果用戶修改某一記錄中的某一項，可單擊添加按鈕進(jìn)行學(xué)生記錄的編輯。學(xué)生基本信息表：學(xué)生基本信息表里存儲了學(xué)生的檔案包括：學(xué)號、姓名、性別、班級、出生年月等信息，如表2.2.2列名數(shù)據(jù)類型長度允許空學(xué)號文本班級文本名字文本性別文本出生年月日期/時間民族文本父母姓名文本地址文本郵政編碼文本電話號碼文本院系文本專業(yè)文本附注文本表2.2.2學(xué)生基本信息表課程模塊：該模塊主要完成存儲課程的所有信息及錄入、刪除、更新等功能。此模塊主要有三個域名來進(jìn)行學(xué)生課程信息的存儲。課程信息表：課程

7、信息表存儲了課程的信息：課程號、課程名稱、授課老師。如表2.2.3：列名數(shù)據(jù)類型長度允許空課程號文本課程名稱文本授課老師文本表2.2.3課程信息表學(xué)生與課程表：成績信息表里存儲了學(xué)生的成績包括：課程號、課程名稱、學(xué)號、成績及備注，如表2.2.4：列名數(shù)據(jù)類型長度允許空課程號文本課程名稱文本學(xué)號文本備注 文本成績 數(shù)字表2.2.4 學(xué)生與課程表3 系統(tǒng)實現(xiàn) 3.1 開發(fā)環(huán)境 編程又稱程序，按照詳細(xì)設(shè)計階段產(chǎn)生的程序設(shè)計說明書，用選定的程序設(shè)計語言書寫源程序。所以編寫代碼其實就是編寫各窗口及控件的腳本。通過對各種實施環(huán)境和工具的比較，本系統(tǒng)采用的是visual basic 6.0軟件開發(fā)工具。3.

8、2 系統(tǒng)流程圖 系統(tǒng)的組織結(jié)構(gòu)圖和系統(tǒng)流程圖如圖3.2.1和圖3.2.2：學(xué)籍管理系統(tǒng)系統(tǒng)管理查看和修改信息錄入查詢打印報表修改密碼添加用戶添加成績添加課程基本信息錄入查詢成績查詢基本信息學(xué)生自然情況學(xué)生各科成績補(bǔ)考學(xué)生重新登陸 圖3.2.1 系統(tǒng)的層次方框圖教 師用 戶數(shù)據(jù)庫打印報表查詢成績學(xué)生基本信息錄入 打印機(jī) 維護(hù)統(tǒng)計班級注冊成績查詢結(jié)果 成績和學(xué)生檔案打印 成績錄入 成績維護(hù) 圖3.2.2 系統(tǒng)的數(shù)據(jù)流程圖 3.3 程序主要功能界面3.3.1 輸入設(shè)計輸入設(shè)計的目標(biāo)是在保證輸入信息正確性和滿足需要的前提下，應(yīng)做到輸入方法簡單、經(jīng)濟(jì)和方便使用者。為了保障系統(tǒng)的安全性，防止對系統(tǒng)資源非法

9、使用和對信息和對信息資源的非法存取，本系統(tǒng)采用安全措施主要是確認(rèn)與檢驗用戶身份。登錄界面如圖3.1.1所示：圖3.1.1用戶登錄窗口示意圖用戶通過身份驗證后即可進(jìn)入到主窗口。系統(tǒng)應(yīng)用程序的主要功能都是在主窗口及其下打開的眾多窗口中完成的。主窗口中顯求本系統(tǒng)的主要功能。當(dāng)用戶通過鼠標(biāo)進(jìn)行選擇后，系統(tǒng)在相應(yīng)的窗口中繼續(xù)選擇相應(yīng)的功能。3.3.2 屏幕格式設(shè)計本系統(tǒng)主要采用的是菜單、命令按鈕和靜態(tài)文本控件，點擊按扭打開各個窗口。系統(tǒng)基本上滿足了輸入量保持在能滿足處理要求的最低限度和盡早對輸入數(shù)據(jù)進(jìn)行檢查以便使錯誤及時得到改正的要求。界面友好易于操作。下面以“查看和修改”窗口為例進(jìn)行說明。(1)在進(jìn)入

10、主窗口后，點擊“查看和修改”菜單，出現(xiàn)如圖3.2所示界面：圖3.2信息錄入界面(2)在圖中輸入學(xué)生的基本信息、課程信息、學(xué)生成績信息，然后單擊添加按鈕，將數(shù)據(jù)添加到數(shù)據(jù)庫當(dāng)中。3.3.3 輸出設(shè)計輸出設(shè)計的主要職責(zé)和目標(biāo)是由計算機(jī)對輸入的原始信息進(jìn)行加工處理，形成數(shù)據(jù)輸出可分為屏幕輸出和打印輸出。根據(jù)用戶的要求，本系統(tǒng)設(shè)計了符合用戶要求的輸出界面，使用戶在使用時能夠得心應(yīng)手，不會產(chǎn)生不適應(yīng)性。并與打印機(jī)相連，可將信息打印輸出。為打印數(shù)據(jù)源與打印輸出格式，如圖3.3 所示：圖3.3打印界面3.4程序調(diào)試情況 系統(tǒng)測試是管理信息系統(tǒng)開發(fā)周期中一個十分重要而漫長的階段。其重要性體現(xiàn)在它是保證系統(tǒng)質(zhì)量

11、與可靠性的最后關(guān)口，是對整個系統(tǒng)開發(fā)過程包括系統(tǒng)分析、系統(tǒng)設(shè)計和系統(tǒng)實施的最后審查。系統(tǒng)測試工作一般包括以下四個步驟：單元測試、組裝測試、系統(tǒng)測試和驗收測試。對軟件進(jìn)行測試的主要方法為人工測試和機(jī)器測試，前者又包括個人復(fù)查、走查和會審，而后者又包括黑盒測試和白盒測試。在本系統(tǒng)中，首先為各個數(shù)據(jù)庫輸入測試數(shù)據(jù)，然后對各部分，如表、窗口、控件等一起進(jìn)行程序調(diào)試及功能測試，如發(fā)現(xiàn)錯誤后立即改正，直到正確通過后，將相關(guān)的部分連接起來，進(jìn)行綜合測試，逐步組合，直到整個系統(tǒng)調(diào)試成功 3.5 結(jié)論 對本系統(tǒng)作一個全面的評價：包括有何特點、存在的問題、改進(jìn)意見等。 結(jié)束語 一、系統(tǒng)特色與創(chuàng)新(1)友好性。由于

12、使用者為非計算機(jī)專業(yè)人員，故在設(shè)計中充分考慮這一點，采用圖形界面，用戶界面直觀，簡單易懂，便于操作，只需經(jīng)過簡單培訓(xùn)就能掌握。(2)系統(tǒng)的容錯功能。在數(shù)據(jù)庫系統(tǒng)的設(shè)計中有一個需要注意的問題，那就是系統(tǒng)的容錯功能。一個好的系統(tǒng)要有準(zhǔn)備應(yīng)付不同的用戶，因為用戶在使用中是不可以能完全按照設(shè)計者的思路來進(jìn)行操作的，刻板地要求用戶按照設(shè)計者的思路來進(jìn)行操作是不現(xiàn)實的。設(shè)計的系統(tǒng)要考慮適應(yīng)不同的使用者，能夠在用戶錯誤的時后給以提示就本系統(tǒng)中的密碼驗證設(shè)置而言：用戶登錄對話框，輸入了錯誤的密碼。解決方式是：當(dāng)檢測到用戶輸入的密碼與表中對應(yīng)的密碼字段不符時，顯示一條錯誤信息，根據(jù)用戶的選擇，做出繼續(xù)輸入密碼或

13、退出系統(tǒng)的響應(yīng)。二、系統(tǒng)局限與展望(1)由于時間緊促，系統(tǒng)的界面完成的比較粗糙，不是太美觀。(2)網(wǎng)絡(luò)功能欠缺，本系統(tǒng)只能在單片機(jī)上運行，不能實現(xiàn)網(wǎng)絡(luò)連接，對分布于各地的管理人員和工作人員來說，其使用也有一定的局限性。希望在今后對系統(tǒng)不斷完善，能支持網(wǎng)絡(luò)數(shù)據(jù)的傳輸，實現(xiàn)資源共享。三、實施中遇到的挫折在整個管理信息系統(tǒng)的開發(fā)過程中，最令我困擾的是數(shù)據(jù)庫查詢功能的實現(xiàn)。數(shù)據(jù)庫的連接就費了很大的周折，后經(jīng)查閱資料和朋友的幫助，得以解決。四、體會與致謝通過這次學(xué)籍管理系統(tǒng)的設(shè)計，使我深深的了解到了設(shè)計管理信息系統(tǒng)以及任何一種類型系統(tǒng)所必須的設(shè)計思想和技巧，并掌握了visual basic的使用。通過實

14、際的操作，對管理信息系統(tǒng)的開發(fā)、數(shù)據(jù)庫的設(shè)計方面的知識有了一個整體的深刻的認(rèn)識。參考文獻(xiàn)1軟件工程 張海藩 清華大學(xué)出版社 2005年2軟件工程 王宜貴 機(jī)械工業(yè)出版社 2005年 3實用軟件工程(英) (澳)leszek a.maciaszek 機(jī)械工業(yè)出版社 2005年 4軟件工程(英) (英)ian sommerville 機(jī)械工業(yè)出版社 2005年 6vb 6.0信息系統(tǒng)設(shè)計與開發(fā)實例 黃明 機(jī)械工業(yè)出版社 2005年 7可視化編程應(yīng)用-vb 6.0 杜秋華 康慧芳 人民郵電出版社 2004年 8數(shù)據(jù)庫原理與技術(shù)(access) 丁倩 中國電力出版社 2006年9access數(shù)據(jù)庫應(yīng)用

15、教程 申莉莉 機(jī)械工業(yè)出版社 2005年10access 2002 專家(英)(美)virginia andersen 機(jī)械工業(yè)出版社 2002年 11access 2003寶典(英) (美)cary n.prague 電子工業(yè)出版社 2004年附錄：部分源代碼清單 dim rs as adodb.recordsetdim sd as booleanprivate function checkclass() as boolean 檢測添加的課程是否重復(fù)on error goto errh adodc2.connectionstring = driver=microsoft access dri

16、ver (*.mdb); & _ dbq=db5.mdb; & _ defaultdir= & checkpath(app.path) & ; & _ uid=;pwd=; set rs = cn.execute(select 課程號 from 課程 where 課程號= & trim(text1.text) & ) adodc2.recordsource = select * from 課程 where 課程號= & trim(text1.text) & and 課程名稱= & trim(text2.text) & if rs.eof then rs.close checkclass = t

17、rue exit function end if checkclass = false rs.close exit functionerrh: rs.close msgbox err.descriptionend functionprivate sub command1_click()on error goto errh if text1.text then if text2.text then if text3.text then if checkclass then adodc1.recordset.addnew adodc1.recordset.fields(課程號).value = t

18、ext1.text adodc1.recordset.fields(課程名稱).value = text2.text adodc1.recordset.fields(授課老師).value = text3.text adodc1.recordset.update text1.text = text2.text = text3.text = text1.setfocus msgbox 添加成功! adodc1.refresh else msgbox 課程重復(fù),請另外輸入一門課程! text1.setfocus end if else msgbox 該項不能為空,請輸入授課老師姓名! end if

19、 else msgbox 該項不能為空,請輸入課程名稱! end if else msgbox 該項不能為空,請輸入課程號! end if msgbox(你的操作將關(guān)系到所有選這門課的學(xué)生，所有這門課的紀(jì)錄將被刪除，你確信嗎？, vbokcancel, 警告) = vbok then adodc1.recordset.delete adaffectallchapters adodc1.recordset.updatebatch adaffectallchapters datagrid1.rebind exit suberrh: msgbox err.descriptionend subpriv

20、ate sub command15_click() unload meend subprivate sub command2_click()on error goto errh if msgbox(你的操作將會刪除當(dāng)前的紀(jì)錄，你確信嗎？, vbokcancel, 警告) = vbok then if text1.text then set rs = new adodb.recordset rs.open select * from 課程 where 課程號= & trim(text1.text) & , cn, adopendynamic, adlockoptimistic, adcmdtex

21、t if rs.eof then rs.close msgbox 沒有該課程,無法刪除!, vbokonly + vbexclamation, 警告 text1.text = exit sub end if rs.delete rs.update rs.close text1.text = text2.text = text3.text = text1.setfocus msgbox 刪除成功! else msgbox 該項不能為空,請輸入課程號! end if end ifexit suberrh: rs.close msgbox err.descriptionend subprivate

22、sub form_load()on error goto errh makecenter dlgcourse text1.setfocus adodc1.connectionstring = driver=microsoft access driver (*.mdb); & _ dbq=學(xué)籍.mdb; & _ defaultdir= & checkpath(app.path) & ; & _ uid=;pwd=; & _ password=197967yh adodc1.recordsource = select * from 課程 adodc1.refresh datagrid1.rebin

23、d exit suberrh: msgbox err.descriptionend subprivate sub form_unload(cancel as integer)on error resume next adodc1.recordset.closeend suboption explicitpublic loginsucceeded as booleanprivate sub cmdcancel_click() set the global var to false to denote a failed login loginsucceeded = false unload mee

24、nd subprivate sub cmdok_click()on error goto errh: dim rs as adodb.recordset set rs = new adodb.recordset set rs = cn.execute(select username , password from 超級用戶 ) if rs.eof then rs.close set rs = nothing unload me load frmmain exit sub end if rs.movefirst 將指標(biāo)移到第一筆記錄。 dim i as integer 校驗是否為超級用戶 do

25、if rs.fields(username) = txtusername.text then if rs.fields(password) = txtpassword.text then usertype = true loginsucceeded = true rs.close if txtpassword.text = admin then isadmin = true unload me load frmmain exit sub exit do end if end if rs.movenext 將指標(biāo)移到下一筆記錄。 loop until rs.eof 校驗是否為普通用戶 set r

26、s = cn.execute(select 學(xué)號 from 學(xué)生 where 學(xué)號 = & & txtpassword.text & ) if rs.eof then msgbox 無效密碼或用戶名請重試!, , login txtpassword.setfocus sendkeys home+end txtpassword獲得焦點，并將txt控件中的文本內(nèi)容全部選中 else rs.close usertype = false loginsucceeded = true unload me load frmmain end if exit suberrh: msgbox err.descri

27、ptionend subprivate sub form_load() dim s as string makecenter dlglogin s = makeconnection() 創(chuàng)建全局ado連接 if s ok then msgbox s, , 錯誤！ unload me loginsucceeded = false end ifend subprivate sub form_unload(cancel as integer) if not loginsucceeded then 如果登陸失敗 cn.close 釋放連接 set cn = nothing end ifend subp

28、rivate sub 學(xué)籍管理系統(tǒng)_click()end suboption explicitpublic addnewstate as booleanpublic upok as booleanprivate sub cancelbutton_click() me.hide upok = falseend subprivate sub form_paint() text1.text = text2.text = text3.text = end subprivate sub okbutton_click()on error goto errh dim rs as new recordset

29、if addnewstate then if text1.text then if text2.text then if text3.text = text2.text then rs.locktype = adlockoptimistic 開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調(diào)用 update 方法時鎖定記錄。 rs.cursortype = adopenkeyset 游標(biāo)類型為鍵集游標(biāo)，僅可查看其它用戶更改的數(shù)據(jù) rs.open 超級用戶, cn, , , adcmdtable adcmdtable 指示 ado 生成 sql 查詢以便從在 source 中命名的表中返回所有

30、行。 rs.addnew rs.fields(password).value = text2.text rs.fields(username).value = text1.text rs.update rs.close me.hide upok = true msgbox 添加成功 else msgbox 密碼錯誤,請重新輸入！ end if else msgbox 密碼不能為空，請輸入密碼！ end if else msgbox 用戶名不能為空 end if end if exit suberrh: msgbox err.descriptionend subprivate sub cmdok

31、_click() unload meend subprivate sub form_load() makecenter frmaboutend subprivate sub form_mousemove(button as integer, shift as integer, x as single, y as single) label2(1).forecolor = vbblackend subprivate sub label2_click(index as integer) dim p as string p = mailto:fuli830802 文件名 call shellexec

32、ute(me.hwnd, open, p, 0, 0, sw_shownormal) me.hwnd 是指窗體的句柄，在vb中可以直接用此語句取得窗體的句柄end subprivate sub label2_mousemove(index as integer, button as integer, shift as integer, x as single, y as single) label2(1).forecolor = vbblueend suboption explicitdim rs as new adodb.recordsetprivate sub command1_click

33、()on error goto errhif combo1.text then if combo2.text then if text2.text then if text3.text then if combo3.text then if checkclass then if checkcourse then if match = true then adodc1.recordset.addnew adodc1.recordset.fields(課程號).value = combo1.text adodc1.recordset.fields(學(xué)號).value = text2.text ad

34、odc1.recordset.fields(成績).value = text3.text adodc1.recordset.fields(課程名稱).value = combo2.text adodc1.recordset.fields(備注).value = combo3.text adodc1.recordset.update msgbox 添加成功! combo1.text = combo2.text = combo3.text = text2.text = text3.text = else msgbox 成績和備注不匹配,請核對! end if else msgbox 沒有這個課程,

35、不能添加! combo3.text = text2.text = text3.text = combo1.text = combo2.text = combo1.setfocus end if else msgbox 這個成績已經(jīng)有了,不能再添加! end if else msgbox 成績不能為空! text3.setfocus end if else msgbox 備注不能為空,請輸入備注! end if else msgbox 學(xué)號不能為空,請輸入學(xué)號! text2.setfocus end if else msgbox 課程名稱不能為空,請輸入課程名稱! combo2.setfocus

36、 end if else msgbox 課程號不能為空,請輸入課程號! combo1.setfocus end if exit suberrh: msgbox err.descriptionend subprivate sub command2_click()on error goto errh if text2.text then if text3.text then if combo1.text then if combo2.text then if combo3.text then if checkclass = false then if match then set rs = cn.

37、execute(select 成績 from 學(xué)生與課程 where 課程號= & trim(combo1.text) & and 課程名稱= & trim(combo2.text) & and 學(xué)號= & trim(text2.text) & ) if rs.eof then rs.close exit sub end if rs.close rs.locktype = adlockoptimistic rs.cursortype = adopenkeyset rs.open select * from 學(xué)生與課程 where 課程號= & trim(combo1.text) & and 課

38、程名稱= & trim(combo2.text) & and 學(xué)號= & trim(text2.text) & , cn, , , adcmdtext rs.find (username= & & text1.text & ) if rs.fields(password).value = text2.text then rs.fields(0).value = text3.text rs.fields(1).value = combo3.text rs.update rs.update 成績, text3.text rs.fields(成績).value = text3.text rs.fie

39、lds(備注).value = combo3.text rs.update rs.close msgbox 修改成功! combo1.text = combo2.text = combo3.text = text2.text = text3.text = combo1.setfocus else msgbox 成績和備注不匹配,請核對! end if else msgbox 沒有該課程成績,不能修改! end if else msgbox 該項不能為空,請輸入備注! end if else msgbox 該項不能為空,請輸入課程名稱! end if else msgbox 該項不能為空,請輸入

40、課程號! end if else msgbox 該項不能為空,請輸入成績! end if else msgbox 該項不能為空,請輸入學(xué)號! end if exit suberrh: msgbox err.description rs.closeend subprivate sub command3_click()on error goto errh if msgbox(你的操作將會刪除當(dāng)前的紀(jì)錄，你確信嗎？, vbokcancel, 警告) = vbok then combo1.datasource = adodc2 combo2.datasource = adodc2 combo3.datasource = adodc2 text2.datasource = adodc2 text3.datasource = adodc2 sd = true adodc1.recordset.delete adodc1.recordset.movefirst dim str as str