利用TD将测试过程中发现的Bug与需求关联

利用TD将测试过程中发现的Bug与需求关联  

1、需要在缺陷管理模块添加一个按钮，使得测试人员可以添加需求名称
A、添加字段
进入后台管理界面，使用admin进行登录，CUSTOMIZE—>admin登录—>Customize Project Entities—>DEFECT—>User Fields—>New field—>Requirement Name，字段设置为String类型—>保存退出
B、设置工作流
在后台管理界面，Set Up Workflow—>Script Editor—>Command Bar Editor—>在Command bar中选择Defects模块—>设置Caption: Requirement Name,Hint: Requirement Name—>Add—>在Commands列表中出现Defects_Command—>选中Defects_Command_01—>修改Action Name为Linked Bug—>选择一个Image图片—>保存Apply
C、对需求字段设置校验
Script Editor—>Requirements module script—>修改其中的脚本
Function Defects_ActionCanExecute(ActionName)
         On Error Resume Next
         Dim td
         Dim ReqF
         Dim ReqL
‘判断按钮是不是自定义的按钮
If ActionName = “Linked_Bug” then
         ‘弹出窗口，接受输入的需求名称
         RequirementName = InputBox(“输入需求名:”,”需求名”)
         ‘如果是数字或者空，则报错
If(IsNumeric(RequirementName)) and Len(RequirementName) > 0 then
         MsgBox “That is not a valid Requirement Name !”
         Exit Function
         ‘如果按的是确定按钮，我们首先校验数据
Elseif Len(requirementName) > 0 then
         ‘创建TDConnection对象
         Set td = TDConnection
         ‘创建Reqfactory对象
         Set ReqF = td.ReqFactory
         ‘创建Reqfactory的List对象，通过SQL校验需求名是否存在
         Set ReqL = ReqF.NEWList(“select * from REQ where RQ_REQ_NAME = requirementName”)
         ‘如果返回的需求总数为零，则表示需求不存在
         If ReqL.Count = 0 then
                MsgBox “That Requirement Name does not exist !”
                Exit function
         ‘如果不是则把需求名放到自定义的字段中去
         Else
                Bug_Fields(“BG_USER_03”).Value = RequirementName
         End if
         ‘清空对象值
         Set ReqL = nothing
         Set ReqF = nothing
         Set td = nothing
End if
End if
 

 

 

 

上述步骤完成之后，保存设置并退出。
 

2、重新登录TD，在DEFECTS管理模块中，多了一个刚才添加的按钮。测试人员输入需求名称，TD对输入的值进行校验，确保输入的需求名没有错误
 

3、如果需求名输入正确，则将需求名关联到缺陷中去，否则弹出需求名不正确的提示。
 

4、则在每个Bug页面都会出现和bug相关的需求名。
 

与该方法类似，你可以根据各自的需要来设置不同的符合自己需要的功能。

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/windone0109/archive/2008/10/07/3029492.aspx