TD中工作流的应用

发表于：2009-2-10 13:31

作者：onlonely 来源：51Testing博客

　　三、工作流的实践二 ——记录修改人和修改时间

　　需求说明：我们希望在开发修改了一个缺陷的状态为“修改完成“的时候，记录下修改他的人，和修改时间。方便我们管理。同样，请先看代码：

Sub Defects_Bug_FieldChange(FieldName)
    On Error Resume Next
    if FieldName = "BG_STATUS" Then
        if Bug_Fields("BG_STATUS").Value = "P1-修改完成待验证" then
            Bug_Fields("BG_RESPONSIBLE").Value = User.UserName
            Bug_Fields("BG_USER_02").Value = now()
        end if
    end if
    On Error GoTo 0
End Sub

　　这段代码内容就多了几行，里面Defects_Bug_FieldChange(FieldName)代表的是缺陷字段发生改变的时候执行的语句。里面的BG_STATUS代表缺陷状态，BG_RESPONSIBLE代表负责人（Syestem Fields表里的），BG_USER_02代表用户自定义字段（User Fields里的）。User.UserName代表当前操作的用户名，now()代表当前时间。剩下的东西就很容易看懂了吧。

　　三、工作流的实践三 ——不修改我的缺陷必须说理由

　　需求说明：有时候开发很懒，不喜欢写说明，哪么对我们测试来说，没有任何说明就返回我们。使我们很不好处理问题。哪么我们希望当程序员如果修改缺陷状态为”不修改””遗留”的时候，让程序员必须输入说明。

Sub Defects_Bug_FieldChange(FieldName)
On Error Resume Next

    dim i
    i=""
    msg1 ="遗留或不修改此缺陷需要输入说明！"
    title1 ="输入说明"

     If FieldName = "BG_STATUS" Then
         if (Bug_Fields("BG_STATUS").Value = "P2-待遗留" or Bug_Fields("BG_STATUS").Value = "P3-暂时不修改") and Bug_Fields("BG_DEV_COMMENTS").Value = "" then
             do
                 i= InputBox(msg1,title1)
                 if i="" then
                     msgbox"必须输入说明"
                 else exit do
                 end if
             loop
             Bug_Fields("BG_DEV_COMMENTS").Value = i
          end if
      end if
    On Error GoTo 0
    End Sub

　　这段代码内容就稍微多了点点，并且使用了VB的函数。我就简单的说下思路吧，具体解释，只要你看懂了上面的工作流。相信这个里面的代码也不是很复杂。

　　1．开始声明和定义一些需要使用的变量。和内容。

　　2．判断修改的字段是不是缺陷状态（BG_STATUS）

　　3．再判断修改成的内容是不是遗留或者不修改

　　4．最后判断说明（BG_DEV_COMMENTS）里面是不是没有内容

　　5．如果是的话，就打开输入函数输入说明（InputBox(msg1,title1)）

　　6．做个循环，如果没有输入说明，就提示必须输入说明（msgbox"必须输入说明"）

　　7．最后吧输入的内容赋值给保存说明的字段（BG_DEV_COMMENTS）

　　最后，由于时间有限，没有写更多的内容。有需要讨论的可以发邮件给我，我的邮箱是onlonely@163.com

本文出自onlonely的51Testing软件测试博客：http://www.51testing.com/?154467

22/2<12

价值129的会员专享直播免费赠送，添加微信领取听课名额哦~

搜索风云榜

测试技术了解

每月专享直播

挣点稿费

走进神秘的银行测试

文章资料精选