QTP自带订票系统，如何对购票总金额添加检查点？

nydwp

我添加了标准检查点，但是回放时，都报错，不知道这里要怎么添加随机检查点，是调用函数么？

下面是网上搜来的，但是具体怎么操作不清楚，谁知道指点下~~

kong051

哈哈哈哈

nydwp

回复 2# kong051


   

黑羽祭

回复 3# nydwp


    这上面没写清楚是用什么用法做，目测是用的Insert->Checkpoint里的检查点操作。
然后在贴一个函数方式实现的检查点：http://www.cydtest.com/?p=617你都尝试一下吧

nydwp

回复 4# 黑羽祭


    嗯，是鼠标右键添加的标准检查点，感谢大侠指点~~那个连接中内容受用了~~

张轩阳

这个我之前实现过，其实比较好的办法是导出来在EXCEl中用公式自动对比的。在程序中检查可能通用性不太好

dyyouai

Set fly = window("regexpwndclass:=Afx:","regexpwndtitle:=Flight Reservation")
fly.WinEdit("nativeclass:=Edit","attached text:=Name:").set "huanglib"  '设置登机人姓名
fly.WinEdit("nativeclass:=Edit","attached text:=Tickets:").set 2   '购买票张数
fly.WinRadioButton("regexpwndtitle:=Business").Click   '选择商务舱
PriceTemp = fly.WinEdit("nativeclass:=Edit","attached text:=Price:").GetROProperty("text")   '获取机票单价￥123形式
TotalTemp = fly.WinEdit("nativeclass:=Edit","attached text:=Total:").GetROProperty("text")   '获取机票总价
Price = mid(PriceTemp,2)     '去掉￥元符号
Total = mid(TotalTemp,2)
msgbox Price
msgbox Total

Price1 = Price*2
msgbox Price1&","&Total
If   Total -1  = Price1-1 Then
        reporter.ReportEvent micPass,"Price check Succes" ,"Price Check  ok"
        else
        reporter.ReportEvent micFail,"Price Check Fail","Price = "&Price&"Total"&Total
End If

dyyouai

如果需要频繁判断的话，可以写成function，给的的参数就是订票的数量。