51Testing软件测试论坛

标题: TD bug 中，Add Comment问题 [打印本页]

作者: snyygyso2005 时间: 2008-12-8 14:48
标题: TD bug 中，Add Comment问题
在TD BUG中，单击Add Comment默认是在文本内容最后添加个人信息，现在如何让它在当前光标处添加个人信息

作者: snyygyso2005 时间: 2008-12-9 09:11
大家都不知道怎么做吗？我在 wofkflow中不知道它调用了那个函数，请大家帮忙

作者: linzish 时间: 2008-12-9 23:08
标题: 你参考参考吧
初始化TD Defects的description格式

对TD7.6:

Sub Bug_New

  'add by lvzl
  Fields.Field("BG_DESCRIPTION").Value = "【测试环境】" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "【测试步骤及现象】" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10)& "【问题描述】"  & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10)&"【定位信息】"& Chr(13) & Chr(10)& Chr(13) & Chr(10)&"【重现条件】"& Chr(13) & Chr(10) & Chr(13) & Chr(10)
  'add by lvzl

End Sub

对8.0：

defect module script:

[方法一]
千万注意！！！
先在脚本的最上面定义一个变量:
Dim Fields
然后修改Sub Defects_Bug_New:
==========

Sub Defects_Bug_New 'added by upgrade process

'add by lvzl

  Fields = Bug_Fields
  Fields("BG_DESCRIPTION").Value = "【测试环境】" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "【测试步骤及现象】" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10) & "【期望结果】"  & Chr(13) & Chr(10) & "[实际结果]"& Chr(13) & Chr(10)

  On Error Resume Next
  On Error GoTo 0

'add by lvzl

End Sub

[改进方法二：领导提出，是否可以区分两种加TD的方式，若通过testplan加，则使用关联需求和test的方式；若通过Defects加，则使用格式化description字段的方式；]

Sub Defects_Bug_New
On Error Resume Next
'//  WizardFieldCust_Add ' Added by wizard
  'adding by lvzl
'// Fields = Bug_Fields
'AddDefect_SetFieldsLayout
'AddDefect_SetDefaultValues
'// Fields("BG_DESCRIPTION").Value = "【测试环境】" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "【测试步骤及现象】" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10) & "【期望结果】"  & Chr(13) & Chr(10) & "[实际结果]"& Chr(13) & Chr(10)
  'adding by lvzl

Fields = Bug_Fields

if  trim(Fields("BG_SUBJECT").Value) = "" then
Fields("BG_DESCRIPTION").Value = "[Pre Condition]" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "[Procedure]" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10) & "[Expected Behavior]:"  & Chr(13) & Chr(10) & "[Result Behavior]:"
end if

Fields("BG_USER_10").Value = "1"

On Error GoTo 0
End Sub

作者: snyygyso2005 时间: 2008-12-10 09:26
谢谢linzish 。你说这种我已经实现了。我想的是，

如果BUG的评论中已经有内容，这时再单击“add comment ”按钮，新的内容我想让它插入到当前光标处。
[attach]47468[/attach]

作者: snyygyso2005 时间: 2008-12-11 09:04
请各位大侠帮一下忙

作者: 木木妹 时间: 2008-12-11 11:35
大家不知道有没有思考过td的结构，工作流是td结构的什么部分？td和咱们开发的b/s系统一样，有前台和后台，工作流就是后台，数据处理部分，你提的这个问题，我想过，我认为是前台问题，是onclick事件，后台对文本框的大小，文字对齐方式等等都无法控制。所以在后台工作流中无法解决你这个问题

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)