《软件项目管理实验bug票管理系统》由会员分享，可在线阅读，更多相关《软件项目管理实验bug票管理系统（19页珍藏版）》请在金锄头文库上搜索。
1、内内蒙蒙古古工工业业大大学学信信息息工工程程学学院院实实 验验 报报 告告课程名称：课程名称：软件项目管理软件项目管理 实验名称：实验名称：BUGBUG 票信息管理系统票信息管理系统 实验类型：实验类型： 验验证证性性 综综合合性性 设设计计性性实验室名称：实验室名称： 信息工程学院九楼机房信息工程学院九楼机房 班班级级： 学学号号： 姓姓名名： 组组别别： 同同组组人人： 成成绩绩： 实实验验日日期期： 2 20 01 13 3 年年 4 4 月月 内蒙古工业大学信息工程学院第 1 页预习报告成绩：预习报告成绩： 指导教师审核（签名）：指导教师审核（签名）： 年 月 日 预预习习报报告告一、
2、实验目的：（1）掌握 BUG 票信息及 BUG 管理有关信息。（2）掌握熟悉 Excel 图表及常用工具栏的使用。（3）掌握 VBA 编程基本知识和编程技巧，并能够进行简单的系统开发。 二、实验题目： 设计一个 BUG 票管理系统，实现对软件项目中产生 BUG 信息的管理,从而提高软件项目过程的效率和 质量，提高企业生产率。三、实验要求：（1）根据 BUG 票信息管理的特征，设计 BUG 票模板；（2）分析 BUG 票所具有的属性字段，并进行整理；（3）抽取 BUG 条件列表；（4）自动生成趋势曲线或统计表格。 四、实验用仪器设备、器材或软件环境：软件环境：Windows XP 以上操作系统，
3、Microsoft Excel 2003 或 Microsoft Excel 2007；硬件环境：PC 机一台。内蒙古工业大学信息工程学院第 2 页实验报告成绩：实验报告成绩： 指导教师审核（签名）：指导教师审核（签名）： 年年 月月 日日 实实验验报报告告一、实验目的：（1）掌握 BUG 票信息及 BUG 管理有关信息。（2）掌握熟悉 Excel 图表及常用工具栏的使用。（3）掌握 VBA 编程基本知识和编程技巧，并能够进行简单的系统开发。 二、实验题目：设计一个 BUG 票管理系统，实现对软件项目中产生 BUG 信息的管理,从而提高软件项目过程的效率和质量，提高企业生产率。 三、实验要求：
4、（1）根据 BUG 票信息管理的特征，设计 BUG 票模板；（2）分析 BUG 票所具有的属性字段，并进行整理；（3）抽取 BUG 条件列表；（4）自动生成趋势曲线或统计表格。 四、实验用仪器设备、器材或软件环境：软件环境：Windows XP 以上操作系统，Microsoft Excel 2003 或 Microsoft Excel 2007；硬件环境：PC 机一台。 五、实验原理及设计方案：（1）利用 BVA 编程基础知识和 BUG 票相关信息进行系统设计。（2）设计方案:a.系统主界面：如图 1-1首先，打开 Excel 表格，打开 Office 按钮中的 Excel 选项，选中“在功能
5、区显示“开发工具”选项卡” 。然后再 Sheet1 中利用开发工具栏中菜单，设计出如图所示的界面。内蒙古工业大学信息工程学院第 3 页图 1-1 主界面调用的部分宏代码： Sub 添加 BUG 票信息_Click()添加 BUG 票信息.Show End SubSub 管理 BUG 票信息_click()管理 BUG 票信息.Show End SubSub 提取 BUG 票信息_click()提取 BUG 票信息.Show End SubSub 产生数据()Sheets(“Sheet4“).Selectn = Sheet2.UsedRange.Rows.CountDim j As Intege
6、rj = 3Sheet4.Cells(2, 5).Value = Sheet4.Cells(2, 3).ValueIf Sheet4.Cells(2, 2).Value = Sheet4.Cells(1, 6).Value ThenSheet4.Cells(2, 6).Value = 1Sheet4.Cells(2, 7).Value = 0Sheet4.Cells(2, 8).Value = 0ElseIf Sheet4.Cells(2, 2).Value = Sheet4.Cells(1, 7).Value ThenSheet4.Cells(2, 6).Value = 0Sheet4.Ce
7、lls(2, 7).Value = 1Sheet4.Cells(2, 8).Value = 0Else内蒙古工业大学信息工程学院第 4 页Sheet4.Cells(2, 6).Value = 0Sheet4.Cells(2, 7).Value = 0Sheet4.Cells(2, 8).Value = 1End IfEnd IfFor i = 3 To nIf Sheet4.Cells(i - 1, 3).Value = Sheet4.Cells(i, 3).Value ThenIf Sheet4.Cells(i, 2).Value = Sheet4.Cells(1, 6).Value The
8、nSheet4.Cells(j - 1, 6).Value = Sheet4.Cells(j - 1, 6).Value + 1ElseIf Sheet4.Cells(i, 2).Value = Sheet4.Cells(1, 7).Value ThenSheet4.Cells(j - 1, 7).Value = Sheet4.Cells(j - 1, 7).Value + 1ElseSheet4.Cells(j - 1, 8).Value = Sheet4.Cells(j - 1, 8).Value + 1End IfEnd IfElseSheet4.Cells(j, 5).Value =
9、Sheet4.Cells(i, 3).Value将修改后的值写入 excel 表格中If Sheet4.Cells(i, 2).Value = Sheet4.Cells(1, 6).Value ThenSheet4.Cells(j, 6).Value = 1Sheet4.Cells(j, 7).Value = 0Sheet4.Cells(j, 8).Value = 0ElseIf Sheet4.Cells(i, 2).Value = Sheet4.Cells(1, 7).Value ThenSheet4.Cells(j, 6).Value = 0Sheet4.Cells(j, 7).Value
10、 = 1Sheet4.Cells(j, 8).Value = 0ElseSheet4.Cells(j, 6).Value = 0Sheet4.Cells(j, 7).Value = 0Sheet4.Cells(j, 8).Value = 1End IfEnd Ifj = j + 1End IfNext End SubSub 获取图表数据()Dim i, n, m As Integern = Sheet2.UsedRange.Rows.Count n 为已经使用的行数For i = 1 To n内蒙古工业大学信息工程学院第 5 页Sheet4.Cells(i, 1).Value = Sheet2
11、.Cells(i, 1).Value 将修改后的值写入 excel 表格中Sheet4.Cells(i, 2).Value = Sheet2.Cells(i, 2).ValueSheet4.Cells(i, 3).Value = Sheet2.Cells(i, 4).ValueNextSheets(“Sheet4“).Select按起票日期排序Columns(“A:C“).SelectSelection.Sort Key1:=Range(“C2“), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=1, MatchCase:=False,
12、 Orientation:=xlTopToBottom, SortMethod _:=xlPinYin, DataOption1:=xlSortNormal复制产生表格数据区Call 产生数据 End SubSub 生成图表()Call 获取图表数据Sheets(“sheet4“).Range(“E1:H20“).Select 宏由 吴云涛 录制，时间: 2013-4-30Charts.AddActiveChart.ChartType = xlLineActiveChart.SetSourceData Source:=Sheets(“Sheet4“).Range(“E1:H20“), Plot
13、By _:=xlColumnsActiveChart.SeriesCollection(1).DeleteActiveChart.SeriesCollection(1).XValues = “=Sheet4!R2C5:R20C5“ActiveChart.SeriesCollection(2).XValues = “=Sheet4!R2C5:R20C5“ActiveChart.SeriesCollection(3).XValues = “=Sheet4!R2C5:R20C5“ActiveChart.Location Where:=xlLocationAsObject, Name:=“Sheet4
14、“With ActiveChart.HasTitle = True.ChartTitle.Characters.Text = “BUG 票信息统计表“.Axes(xlCategory, xlPrimary).HasTitle = True.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = “起票日期“.Axes(xlValue, xlPrimary).HasTitle = True.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = “BUG 数量“End WithWith Ac
15、tiveChart.HasAxis(xlCategory, xlPrimary) = True.HasAxis(xlValue, xlPrimary) = TrueEnd WithActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScaleWith ActiveChart.Axes(xlCategory).HasMajorGridlines = False.HasMinorGridlines = FalseEnd WithWith ActiveChart.Axes(xlValue).HasMajorGridlines = False内蒙古工业大学信息工程学院第 6 页.HasMinorGridlines = FalseEnd WithActiveChart.HasDataTable = False End Subb.添加 BUG 票信息界面：如图
