很多情况下普通的检查点并不能把所有的对象都检查出来，尤其是对于数据魔方而言，前端页面数据展现每天都在变化，普通的检查点对其几乎不发挥任何作用。通过编程的方式创建检查点，对于解决这种情况非常有用。
一：通过使用函数GetRoProperty添加对控件的动态属性的判断
例如：要对数据魔方的“买家地域分析”控件的属性进行检验，普通的检查点对其无效。（包括图像、位图和text检查点）但使用如下方式可使实现其属性的检验
If Browser("数据魔方").Page("成交趋势分析#start:2010-10-08|end:20").Link("买家地域分析").GetRoProperty("text")="买家地域分析" then
Browser("数据魔方").Page("买家地域分析").Link("最近7天").Click
else
msgbox "找不到对象"
end if
当然还可以使用Reporter.ReportEvent函数将判断检查的结果写入测试报告中。
二：自定义检查点
将检查点的逻辑封装成一个函数，放到函数库中，方便对所有控件执行类似的检查时调用。
（1） 打开Function Definition Generator（通过QTP菜单Insert|Function Definition Generator）
（2） 在界面中输入函数的名称，类型等属性后，单击OK，则在代码编辑器中自动产生如下代码：
Public Function checkpoint1
' TODO: add function body here
End Function
（3） 在其中添加判断逻辑函数，例如：
Public Function checkpoint1(obj)
' TODO: add function body here
Dim text_property
text_property=obj. GetRoProperty(“text”)
if text_property=”买家地域分析” then
Reporter.ReportEvent micpass,”检查成功”,”买家地域分析对象存在”
Else
Reporter.ReportEvent micfail,”检查失败”,”买家地域分析对象不存在”
End if
End Function
（4） 对空间属性进行检查时，调用checkpoint1函数：
If checkpoint1(Browser("数据魔方").Page("成交趋势分析#start:2010-10-08|end:20").Link("买家地域分析"))="买家地域分析" then
Browser("数据魔方").Page("买家地域分析").Link("最近7天").Click
else
msgbox "对象找不到"
end if
参考网址：http://testing.etao.com/node/155
