软件项目管理-报告书

《软件项目管理》实验报告书实验简介通过做BUG票来了解软件缺陷，学习Excel的使用以及VB。对于测试人员来说，测试用例的书写是很重要的，因为好的测试用例是测试质量的保证，然而，所测出的bug最终是要反馈给开发人员，并由开发人员来进行修正的，所以bug票的作成在测试环节中也就显得尤为重要了。而且，bug票是所有问题的记录，对于bug票的统一管理和分析，对整个项目的进程和质量来说都是非常有用的。所以好的bug票模板不但要能反映问题的所在，还要便于管理。一张好的bug票要包括以下几个方面：缺陷检出，缺陷状况，发生条件（原因），对策处置，缺陷确认。1、缺陷检出缺陷检出部分主要又包括：缺陷番号，缺陷检出日，缺陷场所，缺陷检出者，起票日，起票者，缺陷发生的版本编号，缺陷对应状态等。2、缺陷状况缺陷状况部分包括：现象描述，缺陷区分，重要度，紧急度等。3、发生条件（原因）这一模块中最主要的部分就是对缺陷发生的原因进行说明。4、对策处置对策处置的关键就在于对策内容，这是针对缺陷的对应方法的记录。重要性如同发生条件中的原因记录。除此之外，还包含有处置者，修正日，修正版本号，缺陷种别，对应类别等。5、缺陷确认缺陷确认是在开发人员把bug修正之后，测试人员再根据修正版本取相应source来进行测试，确认那个bug是否真的已经修正了。主要代码从一个表到另一个表PrivateSubCommandButton1_Click()myfile=ThisWorkbook.Path&"\缺陷检出.xls"Application.Workbooks.OpenFilename:=myfileEndSubPrivateSubCommandButton2_Click()myfile=ThisWorkbook.Path&"\缺陷状况.xls"Application.Workbooks.OpenFilename:=myfileEndSubPrivateSubCommandButton3_Click()myfile=ThisWorkbook.Path&"\发生条件.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添加数据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删除数据PrivateSubCommandButton1_Click()DimiAsIntegerDimkAsIntegerk=TextBox1.ValueFori=1To8Cells(k,i)=""NextiEndSub修改数据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