nydwp 发表于 2014-5-4 16:11:38

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

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

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

kong051 发表于 2014-5-5 21:01:37

哈哈哈哈

nydwp 发表于 2014-5-6 14:54:14

回复 2# kong051


    :L

黑羽祭 发表于 2014-5-7 12:09:52

回复 3# nydwp


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

nydwp 发表于 2014-5-19 15:48:21

回复 4# 黑羽祭


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

张轩阳 发表于 2014-5-19 16:56:10

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

dyyouai 发表于 2014-6-10 12:03:25

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 Checkok"
        else
        reporter.ReportEvent micFail,"Price Check Fail","Price = "&Price&"Total"&Total
End If

dyyouai 发表于 2014-6-10 12:10:45

如果需要频繁判断的话，可以写成function，给的的参数就是订票的数量。
页: [1]
查看完整版本: QTP自带订票系统，如何对购票总金额添加检查点？