軟件項(xiàng)目管理-報(bào)告書

《軟件項(xiàng)目管理》實(shí)驗(yàn)報(bào)告書實(shí)驗(yàn)簡(jiǎn)介通過做BUG票來了解軟件缺陷，學(xué)習(xí)Excel的使用以及VB。對(duì)于測(cè)試人員來說，測(cè)試用例的書寫是很重要的，因?yàn)楹玫臏y(cè)試用例是測(cè)試質(zhì)量的保證，然而，所測(cè)出的bug最終是要反饋給開發(fā)人員，并由開發(fā)人員來進(jìn)行修正的，所以bug票的作成在測(cè)試環(huán)節(jié)中也就顯得尤為重要了。而且，bug票是所有問題的記錄，對(duì)于bug票的統(tǒng)一管理和分析，對(duì)整個(gè)項(xiàng)目的進(jìn)程和質(zhì)量來說都是非常有用的。所以好的bug票模板不但要能反映問題的所在，還要便于管理。一張好的bug票要包括以下幾個(gè)方面：缺陷檢出，缺陷狀況，發(fā)生條件（原因），對(duì)策處置，缺陷確認(rèn)。1、缺陷檢出缺陷檢出部分主要又包括：缺陷番號(hào)，缺陷檢出日，缺陷場(chǎng)所，缺陷檢出者，起票日，起票者，缺陷發(fā)生的版本編號(hào)，缺陷對(duì)應(yīng)狀態(tài)等。2、缺陷狀況缺陷狀況部分包括：現(xiàn)象描述，缺陷區(qū)分，重要度，緊急度等。3、發(fā)生條件（原因）這一模塊中最主要的部分就是對(duì)缺陷發(fā)生的原因進(jìn)行說明。4、對(duì)策處置對(duì)策處置的關(guān)鍵就在于對(duì)策內(nèi)容，這是針對(duì)缺陷的對(duì)應(yīng)方法的記錄。重要性如同發(fā)生條件中的原因記錄。除此之外，還包含有處置者，修正日，修正版本號(hào)，缺陷種別，對(duì)應(yīng)類別等。5、缺陷確認(rèn)缺陷確認(rèn)是在開發(fā)人員把bug修正之后，測(cè)試人員再根據(jù)修正版本取相應(yīng)source來進(jìn)行測(cè)試，確認(rèn)那個(gè)bug是否真的已經(jīng)修正了。主要代碼從一個(gè)表到另一個(gè)表PrivateSubCommandButton1_Click()myfile=ThisWorkbook.Path&"\缺陷檢出.xls"Application.Workbooks.OpenFilename:=myfileEndSubPrivateSubCommandButton2_Click()myfile=ThisWorkbook.Path&"\缺陷狀況.xls"Application.Workbooks.OpenFilename:=myfileEndSubPrivateSubCommandButton3_Click()myfile=ThisWorkbook.Path&"\發(fā)生條件.xls"Application.Workbooks.OpenFilename:=myfileEndSubPrivateSubCommandButton4_Click()myfile=ThisWorkbook.Path&"\對(duì)策處置.xls"Application.Workbooks.OpenFilename:=myfileEndSubPrivateSubCommandButton5_Click()myfile=ThisWorkbook.Path&"\缺陷確認(rèn).xls"Application.Workbooks.OpenFilename:=myfileEndSub2顯示窗體PrivateSubCommandButton1_Click()UserForm2.Show1EndSubPrivateSubCommandButton2_Click()UserForm3.Show1EndSubPrivateSubCommandButton3_Click()UserForm4.Show1EndSub3添加數(shù)據(jù)PrivateSubCommandButton1_Click()DimxAsIntegerIfTextBox1.Value=""ThenMsgBox"請(qǐng)輸入有效信息",vbCritical+vbOKOnlyExitSubEndIfx=Sheets("sheet2").Range("A65536").End(xlUp).Row+1Worksheets("Sheet2").Cells(x,1).Value=TextBox1.TextWorksheets("Sheet2").Cells(x,2).Value=TextBox2.TextWorksheets("Sheet2").Cells(x,3).Value=TextBox3.TextWorksheets("Sheet2").Cells(x,4).Value=TextBox4.TextWorksheets("Sheet2").Cells(x,5).Value=TextBox5.TextWorksheets("Sheet2").Cells(x,6).Value=TextBox6.TextWorksheets("Sheet2").Cells(x,7).Value=TextBox7.TextWorksheets("Sheet2").Cells(x,8).Value=TextBox8.TextMsgBox"提交成功"ExitSubEndSub4刪除數(shù)據(jù)PrivateSubCommandButton1_Click()DimiAsIntegerDimkAsIntegerk=TextBox1.ValueFori=1To8Cells(k,i)=""NextiEndSub修改數(shù)據(jù)PrivateSubCommandButton1_Click()DimxAsIntegerIfTextBox1.Value=""ThenMsgBox"請(qǐng)輸入有效信息",vbCritical+vbOKOnlyExitSubEndIfDimrAsIntegerr=TextBox9.ValueWorksheets("Sheet2").Cells(r,1).Value=TextBox1.TextWorksheets("Sheet2").Cells(r,2).Value=TextBox2.TextWorksheets("Sheet2").Cells(r,3).Value=TextBox3.TextWorksheets("Sheet2").Cells(r,4).Value=TextBox4.TextWorksheets("Sheet2").Cells(r,5).Value=TextBox5.TextWorksheets("Sheet2").Cells(r,6).Value=TextBox6.TextWorksheets("Sheet2").Cells(r,7).Value=TextBox7.TextWorksheets("Sheet2").Cells(r,8