欢迎大家来到测试人生，在你休息的时候你可以畅所欲言，空间里也许有些资料可以帮助到你，来吧，朋友，测试人生欢迎你！！！！

转个td或qc工作流的使用

上一篇 / 下一篇 2008-12-03 12:29:01 / 个人分类：TD

流程需要和工具结合，只有好的工具才能有力推动我们的流程实施起来。我们在实际工作中当bug状态修改的时候让我们的开发人员添加研发的评论在里面，针对这个功能我们来进行实现？针对该功能进行实现，打开qc9.2，登陆项目进行自定义，选择Workflow,打开scrīpt editor，编写代码
　　Dim PreviousStatus
　　Dim StatusChanged
　　Dim RDCommentChanged
　　Sub Bug_New
　　End Sub
　　Sub Bug_MoveTo
　　'Enter code to be executed after another bug receives focus
　　' save the status into PreviousStatus
　　PreviousStatus = Fields("BG_STATUS").Value
　　StatusChanged = False
　　RDCommentChanged = False
　　End Sub
　　Sub Bug_FieldChange (FieldName)
　　'Enter code to be executed after a bug field is changed
　　'if Status changed, then StatusChanged is TRUE
　　If FieldName = "BG_STATUS" Then
　　StatusChanged = True
　　'if R&D Comment is changed, then RDCommendChanged is TRUE
　　ElseIf FieldName = "BG_DEV_COMMENTS" Then
　　RDCommentChanged = True
　　End If
　　'if Status is changed from Open/Researching to Rejected and no R&D Comment is entered, then prompt user to enter R&D Comment
If StatusChanged And (PreviousStatus = "Open" Or PreviousStatus = "Researching") And (Fields("BG_STATUS").Value = "Rejected") And (Not RDCommentChanged) Then
　　MsgBox "

lease enter reasons in"
　　'if Status is changed from MGR Action to Reschedule and no R&D Comment is entered, then prompt user to enter R&D Comment
　　ElseIf StatusChanged And (PreviousStatus = "MGR Action") And (Fields("BG_STATUS").Value="Reschedule") And (Not RDCommentChanged) Then
　　MsgBox "

lease enter scheduled release version in"
　　End If

附件是一个详细的说明文档，vb代码，有兴趣的可以参考。

附件:
-L&J1f(q` Zx3F!U^{0

td的工作流很强大，值得学习研究。但是别太深，毕竟只是个管理工具，能满足自己的需求的就行。以下是我的代码，供参考
Dim Fields
Fields = Bug_Fields

Sub Defects_Bug_New 'edit by redforce
AddDefect_SetDefaultValues
' Set default values for the fields
End Sub

Sub AddDefect_SetDefaultValues 'edit by redforce
Fields("BG_STATUS").Value = "open"
'set default bug status to open
End Sub
——设置新添加bug的状态为open

Sub Defects_Bug_FieldChange(FieldName)
if FieldName="BG_STATUS" then
if Fields("BG_STATUS").Value = "fixed" then
Fields("BG_USER_02").Value=now()
end if
end if
End Sub
——自定义字段BG_USER_02，用来记录bug状态变为fixed的时间。date类型记录年月日；string类型记录年月日时分秒