BUG票信息管理系统.docx

1、BUG票信息管理系统实 验 报 告课程名称： 软件项目管理 实验名称： BUG票信息管理系统 实验类型： 验证性 综合性 设计性实验室名称： 9楼机房 班级： 软件09-1班 学号： 姓名： 组别： 同组人： 成绩： 实验日期： 一、实验名称BUG票信息管理系统二、实验目的 1学习并了解BUG票的相关知识 2学习并掌握用Excel开发一个简单的管理系统 3练习使用VBA编写代码，并且掌握一些编码技巧三、实验内容和设计思想1设计主界面 首先，新建一个Excel文件，使用Excel里面的空间工具箱，添加按钮并设置其属性；实现的主要功能有四个：添加BUG信息、删除BUG信息、修改BUG信息和查询BU

2、G信息；然后在对这四个功能分别进行设计。主界面如图1所示：图12添加功能的界面设计与功能实现（1）界面设计使用Excel中VB编辑器设计各个功能的界面。首先打开VB编辑器，然后插入一个用户窗体，在新插入的窗体中进行界面设计，用鼠标拖地相应的控件可以很方便的设计出各个界面。添加BUG票信息的界面如图2所示：图2（2）代码实现的方法 当单击提交按钮时，首先判断BUG号是否为空，如果为空则显示提示信息“BUG号为空，请输入BUG号！”；若BUG号不为空，在判断是否和已有的BUG号重复，如果重复则需要重新输入，此时也会显示相应的提示信息；如果各项输入都符合要求，则将新纪录添加到Excel表的末尾。添加

3、BUG票信息窗体的代码如下：Private Sub 退出_Click() 单击退出按钮时退出添加窗口 EndEnd SubPrivate Sub UserForm_Initialize() 初始化“紧急度”和“现在状态”两个下拉列表 紧急度.List = Array(非常严重, 严重, 一般, 不严重) 给下拉列表设置选项 现在状态.List = Array(未修改, 修改中, 已修改) 紧急度.Value = 严重 设置默认值 现在状态.Value = 未修改End SubPrivate Sub 提交_Click() 单击提交按钮时执行以下操作 If BUG号 = Then 判断BUG号是否

4、为空 MsgBox BUG号为空，请输入BUG号！ BUG号.SetFocus Exit Sub End If Dim i, n, flag As Integer n = Sheet2.UsedRange.Rows.Count n为已经使用的行数 flag = 0 For i = 1 To n 判断BUG号是否和现有的BUG号重复 If Sheet2.Cells(i, 1).Value = BUG号.Text Then flag = 1 Exit For End If Next If flag = 1 Then 如果BUG号已经存在，则要重新输入 MsgBox 该BUG票已存在！ 同时显示提示

5、信息 BUG号.Text = 把所有输入框都置空 以便继续输入 功能名.Text = 起票人.Text = 起票日期.Text = 修改人.Text = 修改日期.Text = BUG号.SetFocus Exit Sub End If i = n + 1 把BUG票信息添加到excel表的末尾 Sheet2.Cells(i, 1).Value = BUG号.Value Sheet2.Cells(i, 2).Value = 功能名.Value Sheet2.Cells(i, 3).Value = 起票人.Value Sheet2.Cells(i, 4).Value = 起票日期.Value S

6、heet2.Cells(i, 5).Value = 紧急度.Value Sheet2.Cells(i, 6).Value = 现在状态.Value Sheet2.Cells(i, 7).Value = 修改人.Value Sheet2.Cells(i, 8).Value = 修改日期.Value MsgBox 添加成功！ BUG号.Text = 添加成功后，把所有输入框都置空 以便继续添加 功能名.Text = 起票人.Text = 起票日期.Text = 修改人.Text = 修改日期.Text = BUG号.SetFocusEnd Sub3删除功能的界面设计与功能实现（1）删除BUG票信息

7、的界面如图3所示：图3（2）代码实现的方法 当单击删除按钮时，首先判断BUG号是否为空，如果为空则显示提示信息“BUG号为空，请输入BUG号！”；若BUG号不为空，使用for循环在所有的记录中寻找等于输入的BUG号的记录，如果找到后，删除次行，把输入框置空以便继续删除，同时显示提示信息“删除成功！”，如果没有找到与输入BUG号相同的记录，则显示提示信息“该BUG票不存在！”，把输入框置空以便再输入。删除BUG票信息窗体的代码如下：Private Sub 退出_Click() 单击退出按钮时退出删除窗口 EndEnd SubPrivate Sub 删除_Click() 单击提交按钮时执行以下操作

8、 If BUG号 = Then 判断BUG号是否为空 MsgBox BUG号为空，请输入BUG号！ BUG号.SetFocus Exit Sub End If Dim i, n, flag As Integer n = Sheet2.UsedRange.Rows.Count n为已经使用的行数 flag = 0 For i = 1 To n 在所有的记录中寻找等于输入的BUG号的记录 If Sheet2.Cells(i, 1).Value = BUG号.Text Then flag = 1 Sheet2.Rows(i).Delete 删除查找到的记录 Exit For End If Next

9、If flag = 0 Then 如果没有找到与输入BUG号相同的记录，则显示提示信息 BUG号.Text = 输入框置空 以便继续输入 MsgBox 该BUG票不存在！ BUG号.SetFocus Else BUG号.Text = 如果成功删除记录后，把输入框置空 以便继续删除 MsgBox 该BUG票已删除！ 同时显示提示信息 BUG号.SetFocus End IfEnd Sub4修改功能的界面设计与功能实现（1）修改BUG票信息的界面如图4所示：图4（2）代码实现的方法 当单击提交按钮时，首先判断BUG号是否为空，如果为空则显示提示信息“BUG号为空，请输入BUG号！”；若BUG号不为

10、空，使用for循环在所有的记录中寻找等于输入的BUG号的记录，如果找到后，将修改后的值重新写回excel表格中的此行，把原来的数据覆盖掉，同时显示提示信息“修改修改！”，然后把输入框置空以便继续修改，如果没有找到与输入BUG号相同的记录，则将次BUG票信息添加到Excel表个的末尾，把输入框置空以便继续修改。修改BUG票信息窗体的代码如下：Private Sub 退出_Click() 单击退出按钮时退出修改窗口 EndEnd SubPrivate Sub UserForm_Initialize() 初始化“紧急度”和“现在状态”两个下拉列表 紧急度.List = Array(非常严重, 严重,

11、 一般, 不严重) 给下拉列表设置选项 现在状态.List = Array(未修改, 修改中, 已修改) 紧急度.Value = 严重 设置默认值 现在状态.Value = 未修改End SubPrivate Sub 提交_Click() 单击提交按钮时执行以下操作 If BUG号.Text = Then 判断BUG号是否为空 MsgBox BUG号为空，请输入BUG号！ BUG号.SetFocus Exit Sub End If Dim i, n As Integer n = Sheet2.UsedRange.Rows.Count n为已经使用的行数 For i = 1 To n 在所有的记

12、录中寻找等于输入的BUG号的记录 If Sheet2.Cells(i, 1).Value = BUG号.Text Then Exit For End If Next Sheet2.Cells(i, 1).Value = BUG号.Value 将修改后的值重新写回excel表格中，覆盖掉原来的数据 Sheet2.Cells(i, 2).Value = 功能名.Value Sheet2.Cells(i, 3).Value = 起票人.Value Sheet2.Cells(i, 4).Value = 起票日期.Value Sheet2.Cells(i, 5).Value = 紧急度.Value Sh

13、eet2.Cells(i, 6).Value = 现在状态.Value Sheet2.Cells(i, 7).Value = 修改人.Value Sheet2.Cells(i, 8).Value = 修改日期.Value MsgBox 修改成功！ 提示修改成功 BUG号.Text = 把所有输入框都置空 以便继续修改 功能名.Text = 起票人.Text = 起票日期.Text = 修改人.Text = 修改日期.Text = BUG号.SetFocusEnd Sub5修改功能的界面设计与功能实现（1）查询BUG票信息的界面如图5所示：图5（2）代码实现的方法 当查询提交按钮时，首先判断BU

14、G号是否为空，如果为空则显示提示信息“BUG号为空，请输入BUG号！”；若BUG号不为空，使用for循环在所有的记录中寻找等于输入的BUG号的记录，如果找到后，则将查询到的结果输出，如果没有找到与输入BUG号相同的记录，则把输入框置空以便再输入，同时显示提示信息“该BUG票不存在！”。查询BUG票信息窗体的代码如下：Private Sub 退出_Click() 单击退出按钮时退出查询窗口 EndEnd SubPrivate Sub UserForm_Initialize() 紧急度.List = Array(非常严重, 严重, 一般, 不严重) 给下拉列表设置选项 现在状态.List = Ar

15、ray(未修改, 修改中, 已修改)End SubPrivate Sub 删除_Click() 单击删除按钮时执行以下操作 If BUG号 = Then 判断BUG号是否为空 MsgBox BUG号为空，请输入BUG号！ BUG号.SetFocus Exit Sub End If Dim i, n, flag As Integer n = Sheet2.UsedRange.Rows.Count n为已经使用的行数 flag = 0 For i = 1 To n 在所有的记录中寻找等于输入的BUG号的记录 If Sheet2.Cells(i, 1).Value = BUG号.Text Then

16、flag = 1 Sheet2.Rows(i).Delete 删除查找到的记录 Exit For End If Next If flag = 0 Then 如果没有找到与输入BUG号相同的记录，则显示提示信息 BUG号.Text = 输入框置空 以便继续输入 MsgBox 该BUG票不存在！ BUG号.SetFocus Else MsgBox 该BUG票已删除 显示提示信息 End End IfEnd SubPrivate Sub 修改_Click() 单击修改按钮时执行以下操作 If BUG号2 = Then 判断BUG号是否为空 MsgBox BUG号为空，请输入BUG号！ BUG号2.S

17、etFocus Exit Sub End If Dim i, n, flag As Integer n = Sheet2.UsedRange.Rows.Count n为已经使用的行数 flag = 0 For i = 1 To n 在所有的记录中寻找等于输入的BUG号的记录 If Sheet2.Cells(i, 1).Value = BUG号.Text Then flag = 1 Exit For End If Next If flag = 0 Then MsgBox 该BUG票不存在！ BUG号.SetFocus Else Sheet2.Cells(i, 1).Value = BUG号2.V

18、alue 将修改后的值重新写回excel表格中，覆盖掉原来的数据 Sheet2.Cells(i, 2).Value = 功能名.Value Sheet2.Cells(i, 3).Value = 起票人.Value Sheet2.Cells(i, 4).Value = 起票日期.Value Sheet2.Cells(i, 5).Value = 紧急度.Value Sheet2.Cells(i, 6).Value = 现在状态.Value Sheet2.Cells(i, 7).Value = 修改人.Value Sheet2.Cells(i, 8).Value = 修改日期.Value MsgBo

19、x 修改成功！ 提示修改成功 End End If End SubPrivate Sub cx_Click() 单击查询按钮时执行以下操作 If BUG号 = Then 判断BUG号是否为空 MsgBox BUG号为空，请输入BUG号！ BUG号.SetFocus Exit Sub End If Dim i, n As Integer n = Sheet2.UsedRange.Rows.Count n为已经使用的行数 For i = 1 To n 在所有的记录中寻找等于输入的BUG号的记录 If Sheet2.Cells(i, 1).Value = BUG号.Text Then BUG号2.T

20、ext = Sheet2.Cells(i, 1).Value 将查找到的记录输出 功能名.Text = Sheet2.Cells(i, 2).Value 起票人.Text = Sheet2.Cells(i, 3).Value 起票日期.Text = Sheet2.Cells(i, 4).Value 紧急度.Text = Sheet2.Cells(i, 5).Value 现在状态.Text = Sheet2.Cells(i, 6).Value 修改人.Text = Sheet2.Cells(i, 7).Value 修改日期.Text = Sheet2.Cells(i, 8).Value Exit

21、 For End If Next If BUG号2.Value = Then 如果显示框中显示的BUG号为空，则表示没有查到到 BUG号.Text = 输入框置空 以便继续输入 BUG号.SetFocus MsgBox 该BUG票不存在！ 显示提示信息 End IfEnd Sub四、实验总结和心得体会 通过这次试验学习到了许多知识，首先了解了一些BUG票的知识，知道了BUG票包含的一些基本信息，懂得了如何去写一个BUG票；另外，通过这次试验掌握用Excel去开发一个简单的管理系统，对Excel有了更深刻的认识；最后，学会了使用VBA编写代码，并且掌握一些编码技巧。总之，这次试验增强了自己的实际动手操作能力，在实验中通过遇到问题然后解决问题这一过程学到了许多知识，达到了预期的实验目的。