【正文】 Next i = 0 = 0For i = 1 To 31 i iNext i = 0 = 0 (專業(yè)) (年級(jí)) (課程名稱) (教材) (任課老師)39。 (課時(shí)) (課程性質(zhì)) (考試性質(zhì)) (=) (專業(yè)) (年級(jí)) (課程名稱) (教材) (任課老師)39。 (課時(shí)) (課程性質(zhì)) (考試性質(zhì)) (=) (學(xué)期) = = = = = = = = = = = = = End Sub 打印統(tǒng)計(jì)運(yùn)行打印統(tǒng)計(jì)后可以按條件把符合條件的各種信息以報(bào)表形式羅列出來(lái)，各種信息還可以以打印出來(lái)或以報(bào)表形式保存。打印統(tǒng)計(jì)包括班級(jí)統(tǒng)計(jì)分析、檔案統(tǒng)計(jì)分析、課程統(tǒng)計(jì)分析、成績(jī)統(tǒng)計(jì)分析和交費(fèi)統(tǒng)計(jì)分析五類。班級(jí)統(tǒng)計(jì)分析（如：界面如圖四）（圖四）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT 年級(jí),專業(yè),人數(shù),輔導(dǎo)員,備注 FROM 班級(jí)表 SQLadd = WHERE 年級(jí)=年級(jí) AND 專業(yè)=專業(yè) SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 年級(jí)=39。 + Text1 + 39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 專業(yè)=39。 + Text2 + 39。End IfIf = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 人數(shù)=39。 + Text3 + 39。End IfIf = 1 And Not IsNull(Text4) Then SQLadd = SQLadd + and 輔導(dǎo)員=39。 + Text4 + 39。End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = = = = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text3_Change()End Sub檔案分析統(tǒng)計(jì)（如：界面如圖五）（圖五）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String On Error Resume NextSQLoriginal = SELECT * FROM 畢業(yè)生檔案 SQLadd = WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號(hào)=39。 + Text1 + 39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名=39。 + Text2 + 39。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 專業(yè)=39。 + Text3 + 39。End IfIf = 1 And IsDate(DTPicker1) Then SQLadd = SQLadd + and 出生年月= amp。 amp。 End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()39。 (男)39。 (女) = = = End SubPrivate Sub Text1_Change()End Sub課程統(tǒng)計(jì)分析（如：界面如圖六）（圖六）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT * FROM 課程表 SQLadd = WHERE 專業(yè)=專業(yè) AND 課程名稱=課程名稱 SQLorder = If = 1 And Not IsNull(Text1) Then SQLadd = SQLadd + and 專業(yè)=39。 + Text1 + 39。End If If = 1 And Not IsNull(Combo1) Then SQLadd = SQLadd + and 課程性質(zhì)=39。 + Combo1 + 39。End If39。If = 1 And Not IsNumeric(Text2) Then 39。SQLadd = SQLadd + and 課時(shí)=39。 + Text2 + 39。39。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 課程名稱=39。 + Text3 + 39。End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = 39。 = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = 39。 = = = (必修) (選修) (自開)End SubPrivate Sub Text3_Change()End Sub成績(jī)統(tǒng)計(jì)分析（如：界面如圖七）（圖七）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String On Error Resume NextSQLoriginal = SELECT * FROM 成績(jī)表 SQLadd = WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號(hào)=39。 + Text1 + 39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名=39。 + Text2 + 39。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 考試科目=39。 + Text3 + 39。End IfIf = 1 Then SQLadd = SQLadd + and 科目分?jǐn)?shù)60End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = = = 39。 = End SubPrivate Sub Text1_Change()End Sub交費(fèi)統(tǒng)計(jì)分析（如：界面如圖八）（圖八）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT 學(xué)號(hào),姓名,學(xué)期,本學(xué)期應(yīng)交費(fèi)用,實(shí)際交費(fèi),本次欠費(fèi) FROM 交費(fèi)表 SQLadd = WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號(hào)=39。 + Text1 + 39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名=39。 + Text2 + 39。End IfIf = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 實(shí)際交費(fèi)=39。 + Text3 + 39。End IfIf = 1 And IsNumeric(Text4) Then SQLadd = SQLadd + and 本次欠費(fèi)=39。 + Text4 + 39。End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = = = = End SubPrivate Sub Text1_Change()End Sub第七章 畢業(yè)生信息系統(tǒng)軟件測(cè)試集成測(cè)試集成測(cè)試將測(cè)試每一個(gè)部件之間的工作是否正常。在這個(gè)階段，我們假設(shè)所有的單元已通過(guò)開發(fā)人員個(gè)人在單元測(cè)試階段測(cè)試全部通過(guò)，沒(méi)有任何錯(cuò)誤。集成測(cè)試包括以下內(nèi)容：連續(xù)集成測(cè)試數(shù)據(jù)庫(kù)測(cè)試數(shù)據(jù)整合測(cè)試功能測(cè)試功能測(cè)試環(huán)境操作系統(tǒng)：windows 98內(nèi)存：128M網(wǎng)絡(luò)環(huán)境：校園網(wǎng) 本功能測(cè)試共分為:系統(tǒng)功能測(cè)試測(cè)試是否可以正常添加用戶和修改密碼，系統(tǒng)正常退出測(cè)試是否可以正常對(duì)班級(jí)進(jìn)行管理，畢業(yè)生的單個(gè)或成批添加，刪除以及新生信息的導(dǎo)入和畢業(yè)生信息備份測(cè)試成績(jī)管理中是否可以進(jìn)行分?jǐn)?shù)錄入，匯總及排名和成績(jī)備份等操作測(cè)試課程信息模塊中針對(duì)課程管理，老師和課程的關(guān)系之間操作是否正常測(cè)試是否可以正常查詢畢業(yè)生，老師和成績(jī) 鏈接測(cè)試這一部分將測(cè)試系統(tǒng)各模塊之間的超鏈接跳轉(zhuǎn)是否正確 文檔測(cè)試 本章主要內(nèi)容為：測(cè)試文檔是否包括全部?jī)?nèi)容測(cè)試軟件功能描述與其他功能有沒(méi)有沖突查看軟件功能描述是否是原來(lái)系統(tǒng)分析和需求查看文檔內(nèi)容在特定的情況和進(jìn)度下,以現(xiàn)有人力,物力和資源能否實(shí)現(xiàn)負(fù)載測(cè)試這一部分將測(cè)試正常情況下系統(tǒng)性能和用戶數(shù)目之間的關(guān)系本章主要內(nèi)容為：查看在多個(gè)用戶同時(shí)使用本系統(tǒng)時(shí)是否正常極限測(cè)試這一部分將測(cè)試所有極端的情況，如速度非?？斓那闆r下和速度非常慢的情況下，以及所有其它的極端情況。本章主要內(nèi)容為:網(wǎng)絡(luò)資源極限測(cè)試綜合極限測(cè)試結(jié)束語(yǔ)畢業(yè)生信息管理系統(tǒng)（課程設(shè)置和打印統(tǒng)計(jì)）的完成，它在審核這一功能中能夠?qū)Σ煌闆r的資料進(jìn)行設(shè)置和打印，針對(duì)需要的信息進(jìn)行設(shè)置和打印。在本系統(tǒng)的開發(fā)過(guò)程中，由于本人是初次開發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。另外，在整個(gè)開發(fā)的過(guò)程中，時(shí)間也比較倉(cāng)促。因此，該系統(tǒng)必然會(huì)存在一些