【正文】 /*定義字符型變量aa*/If = ThenMsgBox 不可為空, 64, 提示Else = select * from chengj where sno=39。 amp。 aa amp。 39。 /*用data數(shù)據(jù)控件和學(xué)生基本成績表進(jìn)行數(shù)據(jù)鏈接*/If Then /*如果到文件尾*/MsgBox 查無此信息, 64, 提示 /*彈出消息框,無此信息*/End If = /*如果文本框?yàn)榭?焦點(diǎn)定在此文本框內(nèi)*/End IfEnd SubPrivate Sub Form_Load() = amp。 \ /*用data1自動獲取路徑*/ = amp。 \ /*用data1自動獲取路徑*/End Sub第六章 性能測試與分析軟件測試就是在受控制的條件下對系統(tǒng)或應(yīng)用程序進(jìn)行操作并評價操作結(jié)果的過程,所謂控制條件應(yīng)包括正常條件與非正常條件。包括以下測試:單元測試的對象是軟件設(shè)計(jì)的最小單位－模塊。我們在設(shè)計(jì)階段所采取的測試就是單元測試。單元測試的依據(jù)是詳細(xì)設(shè)計(jì)描述，單元測試應(yīng)對模塊內(nèi)所有重要的控制路徑設(shè)計(jì)測試用例，以便發(fā)現(xiàn)模塊內(nèi)部的錯誤。單元測試多采用白盒測試技術(shù)，系統(tǒng)內(nèi)多個模塊可以并行也進(jìn)行測試。單元測試任務(wù)包括：模塊接口測試，模塊局部數(shù)據(jù)結(jié)構(gòu)測試，模塊中所有獨(dú)立執(zhí)行通路測試，模塊的各條錯誤處理通路測試，邊界條件測試。一般單元測試應(yīng)緊接在編碼之后，當(dāng)源程序編制完成并通過復(fù)審和編譯檢查，便可開始單元測試。測試用例的設(shè)計(jì)應(yīng)與復(fù)審工作相結(jié)合，根據(jù)設(shè)計(jì)信息選取測試數(shù)據(jù)，將增大發(fā)現(xiàn)上述各類錯誤的可能性。在確定測試用例的同時，應(yīng)給出期望結(jié)果。提高模塊的內(nèi)聚度可簡化單元測試，如果每個模塊只能完成一個，所需測試用例數(shù)目將顯著減少，模塊中的錯誤也更容易發(fā)現(xiàn)。 本系統(tǒng)性能測試與分析根據(jù)以上關(guān)于軟件測試的理論，我用黑盒測試法對系統(tǒng)進(jìn)行了測試。結(jié)果證明，本系統(tǒng)基本上能實(shí)現(xiàn)《學(xué)生管理系統(tǒng)》要求的功能。同時測試過程中發(fā)現(xiàn)錯誤如下：，連續(xù)三次輸入密碼或用戶名錯誤，但系統(tǒng)并不退出；，其他用戶不能訪問該共享文件；結(jié)束語經(jīng)過一個月對該系統(tǒng)的設(shè)計(jì)和開發(fā)，學(xué)生信息管理與分析系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成學(xué)生基本情況和學(xué)生成績情況的添加、查詢、修改、刪除等功能。并提供部分系統(tǒng)注銷功能、通訊錄、幫助等功能，對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行有效地解決。但由于畢業(yè)設(shè)計(jì)時間短，本人技術(shù)和水平有限，所以該系統(tǒng)還有許多不盡人意的地方，比如報(bào)表設(shè)計(jì)功能未能實(shí)現(xiàn)，只能顯示整個數(shù)據(jù)報(bào)表，而不能顯示部分?jǐn)?shù)據(jù)報(bào)表，用戶界面不夠美觀，出錯處理不夠等許多方面問題。這些都有待進(jìn)一步改善，我從本次畢業(yè)設(shè)計(jì)中學(xué)到許多課外無法學(xué)到的知識。致謝在畢業(yè)設(shè)計(jì)的近幾個月時間是我學(xué)生生涯中最有價值的一段時光。這里有治學(xué)嚴(yán)謹(jǐn)而不失親切的老師，有互相幫助的同學(xué)，更有向上、融洽的學(xué)習(xí)生活氛圍。借此論文之際，我想向大家表示我的謝意。首先感謝老師。本論文是在老師的指導(dǎo)下和同學(xué)們的幫助下修改完成的。在此，要對他們的細(xì)心幫助和指導(dǎo)表示由衷的感謝。在這段時間里，我從他們身上不僅學(xué)到了許多的專業(yè)知識，更感受到了他們工作中的兢兢業(yè)業(yè)，生活中的平易近人。此外，他們嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和忘我的工作精神值得我去學(xué)習(xí)。非常感謝大家在我的畢業(yè)設(shè)計(jì)中，給予了我極大的幫助，使我對整個畢業(yè)設(shè)計(jì)的思路有了總體的把握，并耐心的幫我解決了許多實(shí)際問題，使我有了很大收獲。同時，他們在整個開發(fā)過程中提出了許多建設(shè)性意見，并給我解決了一些專業(yè)性問題。感謝三年來傳授我知識的老師們，更要感謝我的家人對我學(xué)業(yè)上的支持和鼓勵，同時感謝所有關(guān)心幫助過我的同學(xué)、老師和學(xué)校?？傊?，在以后的學(xué)習(xí)生活中我將以加倍的努力作為對給予我?guī)椭膶W(xué)校、老師及同學(xué)們的回報(bào)。參考文獻(xiàn)[1] 張紅軍 .王虹 . Visual Basic . 北京： 人民郵電出版社，2002[2] 伍俊良. VB課程設(shè)計(jì)與系統(tǒng)開發(fā)案例. 北京： 清華大學(xué)出版社,2003[3] 林陳雷，郭安源. Visual Basic教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航. 北京: 人民郵電出版社,1998附錄（源程序）編寫代碼:主窗體代碼：Private Sub bj1_Click()End SubPrivate Sub bz_Click()End SubPrivate Sub cj_Click()End SubPrivate Sub cx_Click(Index As Integer)End SubPrivate Sub cx1_Click(Index As Integer)End SubPrivate Sub ll_Click()End SubPrivate Sub sc_Click(Index As Integer)End SubPrivate Sub sc1_Click(Index As Integer)End SubPrivate Sub tc_Click()aa = MsgBox(是否真的退出！, 36, 提示)If aa = 6 ThenEndElseEnd IfEnd SubPrivate Sub tx_Click()End SubPrivate Sub tj_Click(Index As Integer)End SubPrivate Sub tj1_Click(Index As Integer)End SubPrivate Sub xg_Click(Index As Integer)End SubPrivate Sub xg1_Click(Index As Integer)End SubPrivate Sub zx_Click()aa = MsgBox(是否真的注銷！, 36, 提示)If aa = 6 ThenUnload MeElse End IfEnd Sub在主菜單加入如下子菜單代碼：添加子菜單代碼：Private Sub Command1_Click()End SubPrivate Sub Command2_Click()If ThenMsgBox 已到首記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command3_Click()If ThenMsgBox 已到末記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()MsgBox 添加成功, 64, 提示End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) = amp。 \End Sub修改子菜單：Private Sub Command1_Click()End SubPrivate Sub Command2_Click()If ThenMsgBox 已到首記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command3_Click()If ThenMsgBox 已到末記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()MsgBox 修改成功, 64, 提示End Sub查詢子菜單代碼如下：Private Sub Command1_Click()Dim aa As Stringaa = Trim()If = ThenMsgBox 不可為空, 64, 提示Else = select * from edit where sno=39。 amp。 aa amp。 39。If ThenMsgBox 無此信息, 64, 提示End If = End IfEnd SubPrivate Sub Command2_Click()Dim aa As Stringaa = Trim()If = ThenMsgBox 不可為空, 64, 提示Else = select * from chengj where sno=39。 amp。 aa amp。 39。If ThenMsgBox 查無此信息, 64, 提示End If = End IfEnd SubPrivate Sub Form_Load() = amp。 \ = amp。 \End Sub刪除子菜單代碼如下：Private Sub Command1_Click()End SubPrivate Sub Command2_Click()If ThenMsgBox 已到首記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command3_Click()If ThenMsgBox 已到末記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()MsgBox 刪除成功, 64, 提示End Sub通訊錄主菜單的瀏覽子菜單代碼如下：Private Sub Command1_Click()End SubPrivate Sub Command2_Click()If ThenMsgBox 已到首記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command3_Click()If ThenMsgBox 已到末記錄, 64, 提示ElseEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()EndEnd Sub本系統(tǒng)制作過程中的代碼結(jié)束。