軟件項目管理-報告書

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