QC中脚本开发的一些例子

QC中状态改为‘非错’要求开发人员一定写备注的脚本：

Function Defects_Bug_CanPost

On Error Resume Next

if (Bug_Fields("BG_STATUS").IsModified and _

Bug_Fields("BG_STATUS").Value = "非错" and _

not Bug_Fields("BG_DEV_COMMENTS").IsModified) and _

(User.IsInGroup("项目经理") or _

User.IsInGroup( "开发人员")) then

Defects_Bug_CanPost = False

msgbox "请在注释中加上非错说明"

Else

Defects_Bug_CanPost = True

End If

On Error GoTo 0

除了TD管理员外，只有提缺陷的人才能最终关闭该缺陷：

Sub Defects_Bug_FieldChange(FieldName)
On Error Resume Next
if User.IsInGroup( "TDAdmin") then
else
If FieldName = "BG_STATUS" Then
if (Bug_Fields("BG_STATUS").Value = "Closed" and Bug_Fields("BG_DETECTED_BY").Value <> User.UserName) then
msgbox "只有该缺陷的创建人才能进行关闭",48,"警告"
msgbox (PreviousStatus)
Bug_Fields("BG_STATUS").Value = PreviousStatus
end if
end if
end if
On Error GoTo 0
End Sub