【正文】 容與方式已不能適應(yīng)變化了的環(huán)境，而影響系統(tǒng)預(yù)定功能的實現(xiàn)，故需對這些部分進(jìn)行適當(dāng)?shù)恼{(diào)整、修改，以滿足管理工作的需要。完善性測試 完善性測試是指用戶對系統(tǒng)提出了某些新的信息需求，因而在原有系統(tǒng)的基礎(chǔ)上進(jìn)行適當(dāng)?shù)男薷摹U(kuò)充，完善系統(tǒng)的功能，以滿足用戶新的信息需求。預(yù)防性測試 預(yù)防性測試是對預(yù)防系統(tǒng)可能發(fā)生的變化或受到的沖突而采取的測試措施。 系統(tǒng)測試工作的特點采用結(jié)構(gòu)化開發(fā)方法與否對系統(tǒng)測試工作有極大影響；系統(tǒng)測試具有很高的代價；系統(tǒng)測試工作對測試人員要求較高；系統(tǒng)測試工作的對象是整個系統(tǒng)的配置。 本章小結(jié)管理信息系統(tǒng)規(guī)模大，結(jié)構(gòu)復(fù)雜，管理環(huán)境和技術(shù)環(huán)境不斷變化，系統(tǒng)測試工作量大，涉及面廣，投入資源多。據(jù)統(tǒng)計，現(xiàn)有管理信息系統(tǒng)在運行和測試階段的開支占整個系統(tǒng)成本的2/3左右，需用的專業(yè)技術(shù)人員占總專業(yè)技術(shù)人員的50%—70%。系統(tǒng)測試是在原有系統(tǒng)的基礎(chǔ)上進(jìn)行修改，調(diào)整和完善，使系統(tǒng)能夠不斷適應(yīng)新環(huán)境、新需要。但一個系統(tǒng)終有生命周期結(jié)束的時候，當(dāng)對系統(tǒng)的修改已不再奏效，或修改的困難很多且工作量很大，以及改進(jìn)、完善的內(nèi)容遠(yuǎn)遠(yuǎn)超出原系統(tǒng)的設(shè)計要求時，就應(yīng)提出研制新系統(tǒng)的要求，從而開始一個新的系統(tǒng)生命周期。結(jié)束語經(jīng)過一個多月的設(shè)計和開發(fā)，學(xué)生信息管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成學(xué)生學(xué)籍的存儲和成績的查詢以及各類相關(guān)報表的打印。并提供部分系統(tǒng)測試功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計時間較短和本人水平所限，所以該系統(tǒng)還有許多不盡如人意的地方，希望讀者能給予指正，這些都有待進(jìn)一步改善。謝 辭畢業(yè)論文如期完成了，在此我要感謝在畢業(yè)設(shè)計期間給予我?guī)椭脑S多人。首先，我要特別感謝的是我敬愛的指導(dǎo)老師劉衛(wèi)東。因為是他為我們提供了一個良好的環(huán)境，才使我很好的完成了畢業(yè)設(shè)計。在設(shè)計期間他也給與我們無私的幫助。在此表示深深的謝意。正是他們的付出，使我找到并改正了許多看起來很明顯的錯誤和不嚴(yán)謹(jǐn)?shù)恼撌?。在機(jī)房的畢業(yè)設(shè)計是愉快的，我很感謝與我設(shè)計有幫助的每一個人，是他們的存在，讓我感到了工作的快樂，使我融入到了團(tuán)隊工作中，感受到了相互合作的樂趣。我對所有人的耐心表示感謝，尤其是我的指導(dǎo)老師劉衛(wèi)東老師。他仔細(xì)閱讀了我的論文和程序，并提出了許多寶貴的意見和建議。感謝他能在忙碌的工作中抽時間指導(dǎo)我。我在與他通過電話和電子郵件的聯(lián)系中很好的把握住了設(shè)計的進(jìn)度，使設(shè)計得以順利完成。最后，當(dāng)然不能忘記幫助過我的同學(xué)與朋友們。寫論文通常是一項非?？菰锏墓ぷ?，但幸運的是他們使這項工作變成了一種樂趣。還有那些不知道姓名的朋友和默默無聞幫過我的朋友，也在此表示對你們誠摯的感謝。 參考文獻(xiàn)：[1] Bob Reselman. Visual Basic 使用指南. 電子工業(yè)出版社 [2] Craig 2000 24學(xué)時教程. 機(jī)械工業(yè)出版社 [3] BASIC經(jīng)典范例. 清華大學(xué)出版社 [4] . 清華大學(xué)出版社[5] . 清華大學(xué)出版社 [5] 李紹原. OFFICE 附 錄對于記錄刪除Dim mrc As txtsql1 = select * from xj where 學(xué)號=39。 amp。 Trim(Text1(0).Text) amp。 39。Set mrc = ExecuteSQL(txtsql1)If modi = False ThenIf = False Thensss = MsgBox(已經(jīng)存在該學(xué)號的記錄,學(xué)號不能重復(fù)！, vbExclamation + vbOKOnly, 警告)Text1(0).SetFocusText1(0).SelStart = 0Text1(0).SelLength = Len(Text1(0).Text)Exit SubEnd If記錄查找，可以使用下面程序來完成：Dim aa As Integertxtsql = If Trim(Text1(0).Text) Thenaa = 1If txtsql = Thentxtsql = =39。 amp。 Trim(Text1(0).Text) amp。 39。Elsetxtsql = txtsql amp。 and =39。 amp。 Trim(Text1(0).Text) amp。 39。End IfEnd IfIf Trim(Text1(1).Text) Thenaa = 1If txtsql = Thentxtsql = =39。 amp。 Trim(Text1(1).Text) amp。 39。Elsetxtsql = txtsql amp。 and =39。 amp。 Trim(Text1(1).Text) amp。 39。End IfEnd IfIf Trim(Text1(2).Text) Thenaa = 1If txtsql = Thentxtsql = =39。 amp。 Trim(Text1(2).Text) amp。 39。Elsetxtsql = txtsql amp。 and =39。 amp。 Trim(Text1(2).Text) amp。 39。End IfEnd IfIf Trim(Text1(3).Text) Thenaa = 1txtsql = txtsql = like 39。% amp。 Trim(Text1(3).Text) amp。 %39。End IfIf aa = 0 Thenss = MsgBox(你至少要輸入一個條件以上才能查詢！, , 警告)Text1(0).SetFocusExit SubEnd IfDim str As Stringstr = select * from xj where amp。 txtsqlDim mrc As Set mrc = ExecuteSQL(str)If = True Thenzzz = MsgBox(對不起，沒有此學(xué)生的檔案記錄！, vbOKOnly, 查詢) (0)(0).SetFocusExit SubEnd If另外，對于對于記錄修改，可以使用下面程序：If Trim((, 1)) = Thensssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告)Exit SubElseqxstr = Executeqx(2)If qxstr = readonly Thenss = MsgBox(對不起，你是只讀用戶不能修改記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd Ifmodi = True 0End If對于記錄刪除，可以使用下面程序：Dim mrc As Dim intcount As IntegerIf Trim((, 1)) = Thensssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告)ElseIf qxstr = readonly Thenss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd IfIf MsgBox(確定要刪除學(xué)號為 amp。 Trim((, 1)) amp。 的記錄嗎？ amp。 Chr(10) amp。 Chr(13) amp。 該操作會導(dǎo)致該學(xué)生交費記錄和成績記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Thenintcount = txtsql = delete * from xj where 學(xué)號=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql)txtsql = delete * from jf where 學(xué)號=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql)txtsql = delete * from cj where 學(xué)號=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql)TreeView1_DblClickEnd IfEnd I