Quality Center 心得Cindy.doc

Quality Center 使用心得Cindy （续） 2010-4-13 问：在QC中，删除一个bug后，怎样让系统自动更新bugID 如果删除了第10个bug,在新增一个bug后，bug ID会变成11.如何让系统自动设置下一个bugID为10.sequences 表中将ＢＵＧ　对应的ＩＤ减去删除ＢＵＧ的数量即可Sequences表中bug对应的行记录的是最后一个bugid的号，当系统删除一个bug时，这个号并没有自动减少。如果删除了第10个bug，这时，将该行记录由10变成9，则新增加bug，id就是10而不是11了。 隐藏系统控件（在需求中） Sub Requirements_Req_New On Error Resume Next 隐藏 直接覆盖状态字段 Req_Fields(RQ_REQ_STATUS).IsVisible=false On Error GoTo 0 End Sub 测试计划中隐藏系统控件 Sub TestPlan_Test_MoveTo??On Error Resume Next? ? 隐藏状态控件? ? Test_Fields(TS_STATUS).IsVisible=false??On Error GoTo 0End SubFieldLabel 例如： Sub Defects_Bug_New On Error Resume Next lable = Bug_Fields(BG_USER_05).FieldLabel MsgBox bg_user_05: lable On Error GoTo 0 End Sub 2010-4-15 使用QC出现锁定错误 注销后重新进入，错误消失 在vbscript中回车符 vbCrLf 如果行太长，在结尾加一个下划线，下一行接着写 要在缺陷模块增加一个自定义按钮，点击弹出服务器的信息 1） 2）脚本 结果如下 2010-4-19 使用Advanced PDF Password Recovery将QC9.0_AdminGuide、QC9.0_Tutorial.pdf解密 将QC9.0_AdminGuide中的工作流的例子Storing the Last Values Entered，实验成功。 代码如下 Function Defects_Bug_CanPost() If Bug_Fields(BG_BUG_ID).Value = Then SW_KeepLastValue (SET) End If End Function Sub Defects_Bug_New() SW_KeepLastValue (GET) End Sub Sub SW_KeepLastValue(action) dim tdc,vals,flds dim uset,pairs,pair dim bld On Error Resume Next bld= set tdc=TDConnection set uset=tdc.UserSettings if action=SET Then flds = Array(BG_DETECTION_VERSION, _ BG_USER_01, BG_USER_03) vals = For i = 0 To UBound(flds) If vals Then vals = vals ; msgbox i: i ,flds(i) flds(i) , Bug_Fields(flds(i)).Value: Bug_Fields(flds(i)).Value ,vals: vals vals = vals flds(i) = Bug_Fields(flds(i)).Value Next msgbox set vals: UBound(flds) vals: vals Open category KeepLValueSetting uset.Open (KeepLValueSetting) Setting KeepValueFields in category KeepLValueSetting uset.Value(KeepValueFields) = vals uset.Close end if if action=GET then uset.Open (KeepLValu