51Testing软件测试论坛

标题: 教你如何强制用户点击添加注释按钮，添加信息，并且不可删除以前的注释 [打印本页]
作者: joshfang    时间: 2008-5-27 15:17
标题: 教你如何强制用户点击添加注释按钮，添加信息，并且不可删除以前的注释
鲜花~~~~
  1. '第1步:

  3. '在workfolw中, 声明下列变量

  5. Dim blnAddCommentClicked
  6. Dim strCommentBeforeUpdate
  7. Dim blnUpdateCommentError:blnUpdateCommentError = False
  8. Dim changed:changed = false

  10. '第2步:

  12. Function Defects_ActionCanExecute(ActionName)
  13. On Error Resume Next
  14. If ActionName = "BugAddDevCommentsAction1" Then
  15. blnAddCommentClicked = True
  16. End If
  17. Defects_ActionCanExecute = Project_DefaultRes
  18. On Error GoTo 0
  19. End Function

  21. '第3步:

  23. Function Defects_Bug_FieldCanChange(FieldName, NewValue)
  24. On Error Resume Next
  25. if not changed then
  26. strCommentBeforeUpdate = Bug_Fields("BG_DEV_COMMENTS").Value
  27. end if
  28. If FieldName = "BG_DEV_COMMENTS" and blnAddCommentClicked = False Then
  29. Msgbox "不能更新注释." & Chr(13)& "无法保存更新."&Chr(13)&" 请通过[添加注释]按钮添加注释."
  30. blnUpdateCommentError = true
  31. blnAddCommentClicked = False
  32. changed = true
  33. End If
  34. Defects_Bug_FieldCanChange = Project_DefaultRes
  35. On Error GoTo 0
  36. End Function

  38. '第4步:

  40. Function Defects_Bug_CanPost
  41. On Error Resume Next
  42. If blnUpdateCommentError And Not blnAddCommentClicked Then
  43. Bug_Fields("BG_DEV_COMMENTS").Value = strCommentBeforeUpdate
  44. blnUpdateCommentError = False
  45. End If
  46. blnAddCommentClicked = False
  47. changed = false
  48. Defects_Bug_CanPost = Project_DefaultRes
  49. On Error GoTo 0
  50. End Function
复制代码

[ 本帖最后由 joshfang 于 2008-5-27 15:32 编辑 ]
作者: joshfang    时间: 2008-5-27 17:46
where is my flowers?
作者: njalic    时间: 2008-6-16 17:37
这段代码有谁参来解释一下，为什么我复制到TD里会提示 ：Function Defects_ActionCanExecute(ActionName) 这句有错误呢？
作者: testye    时间: 2008-6-16 23:12
收藏了，很有用
作者: 橙子    时间: 2008-7-30 11:48
作者: wyhwb    时间: 2009-4-17 14:34
没看懂呢！
谁来解释下哇！
作者: chencg_123    时间: 2009-4-18 20:55
标题: 有点问题哦
点击Add Comment后再删除，还是可删除的



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2