quality center 心得cindy

《quality center 心得cindy》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、QualityCenter使用心得Cindy（续）2010-4-13问：在QC中，删除一个bug后，怎样让系统自动更新bugID？如果删除了第10个bug,在新增一个bug后，bugID会变成11.如何让系统自动设置下一个bugID为10.答:sequences表中将ＢＵＧ　对应的ＩＤ减去删除ＢＵＧ的数量即可.Sequences表中bug对应的行记录的是最后一个bugid的号，当系统删除一个bug时，这个号并没有自动减少。如果删除了第10个bug，这时，将该行记录由10变成9，则新增加bug，id就是10而不

2、是11了。隐藏系统控件（在需求中）SubRequirements_Req_NewOnErrorResumeNext'隐藏直接覆盖状态字段Req_Fields("RQ_REQ_STATUS").IsVisible="false"OnErrorGoTo0EndSub测试计划中隐藏系统控件SubTestPlan_Test_MoveTo  OnErrorResumeNext  '隐藏状态控件  Test_Fields("TS_STATUS").IsVisible="false"  OnErrorGoTo0EndSub

3、获取控件对应的左边的文字FieldLabel例如：SubDefects_Bug_NewOnErrorResumeNextlable=Bug_Fields("BG_USER_05").FieldLabelMsgBox"bg_user_05:"&lableOnErrorGoTo0EndSub2010-4-15使用QC出现锁定错误注销后重新进入，错误消失在vbscript中回车符&vbCrLf如果行太长，在结尾加一个下划线，下一行接着写要在缺陷模块增加一个自定义按钮，点击弹出服务器的信息1）2）脚本结果如下2010

4、-4-19使用AdvancedPDFPasswordRecovery将QC9.0_AdminGuide、QC9.0_Tutorial.pdf解密将QC9.0_AdminGuide中的工作流的例子StoringtheLastValuesEntered，实验成功。代码如下FunctionDefects_Bug_CanPost()IfBug_Fields("BG_BUG_ID").Value=""ThenSW_KeepLastValue("SET")EndIfEndFunctionSubDefects_Bug_Ne

5、w()SW_KeepLastValue("GET")EndSubSubSW_KeepLastValue(action)dimtdc,vals,fldsdimuset,pairs,pairdimbldOnErrorResumeNextbld=""settdc=TDConnectionsetuset=tdc.UserSettingsifaction="SET"Thenflds=Array("BG_DETECTION_VERSION",_"BG_USER_01","BG_USER_03")vals=""Fori=0

6、ToUBound(flds)Ifvals<>""Thenvals=vals&";"msgbox"i:"&i&",flds(i)"&flds(i)&",Bug_Fields(flds(i)).Value:"&Bug_Fields(flds(i)).Value&",vals:"&valsvals=vals&flds(i)&"="&Bug_Fields(flds(i)).ValueNextmsgbox"setvals:"&UBound(flds)&"vals:"&vals'OpencategoryKeepLValu

7、eSettinguset.Open("KeepLValueSetting")'SettingKeepValueFieldsincategoryKeepLValueSettinguset.Value("KeepValueFields")=valsuset.Closeendififaction="GET"thenuset.Open("KeepLValueSetting")vals=uset.Value("KeepValueFields")Ifvals<>""Thenpairs=Split(vals,";")For

8、i=0ToUBound(pairs)pair=Split(pairs(i),"=")IfUBound(pair)=1ThenSelectCasepair(0)Case"BG_USER_03"bld=pair(1)CaseElseIfBug_Fields(pair(0)).Value=""ThenBug_Fields(pair(0)).Value=pair(1)EndIfEndSelectIfBug_