UFT设置自定义检查点

'测试人员：XXX
'时间：2015-10-19
'模块：航班订票系统订单模块
'脚本主要功能：1、检查程序中图片里的自由女神像部分是否正常出现
' 2、输入详细信息，点击Insert Order按钮进行订票
' 3、检查新生成的订单号Order No是否为正整数，并用用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句
' 4、检查Price*Ticket的价格是否等于Total




Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "102515"'输入日期
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"'选择起点
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"'选择终点
Window("Flight Reservation").WinButton("FLIGHT").Click'选择航班
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click'点击选择航班后的OK按钮
Window("Flight Reservation").WinEdit("Name:").Set "swl"'输入姓名
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"'输入票数
Window("Flight Reservation").WinRadioButton("First").Set'选择席位
Window("Flight Reservation").Static("Static").Check CheckPoint("Static_3")'添加位图检查点，检查程序中图片里的自由女神像部分是否正常出现；




'采用自定义检查点，检查Price*Ticket的价格是否等于Total，并用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句
Dim Price,prices,Ticket,tickets,Total,totals   '声明变量并分配存储空间
Price=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")'获取单价框内容
prices=mid(price,2)'Mid从字符串中返回指定数目的字符  从第二位读取单价框内容，去除dollar符号，只取数值位
msgbox"prices:"&prices'msgbox在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。


Ticket=Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")'获取票数框内容
msgbox"tickets:"&Ticket


Total=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")'获取总价框内容
totals=mid(Total,2)'Mid从字符串中返回指定数目的字符  从第二位读取单价框内容，去除dollar符号，只取数值位
msgbox"totals:"&totals


msgbox "系统报价："&totals& vbcrlf & "计算报价："&prices*Ticket  '比较 总价 与 票数 X 单价


If abs(totals-cdbl(prices*ticket))<0.00001 Then    'ABS函数取绝对值
Reporter.ReportEvent micPass, "价格比较", "相等"'将定义的事件提交到结果日志中
Else
    Reporter.ReportEvent micFail, "价格比较", "不相等"
End If






'采用标准检查点，检查新生成的订单号Order No是否为正整数（【0-9】+）或\d；
'使用自定义检查点，并用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句，记录到测试结果中
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Activate
Window("Flight Reservation").WinEdit("Order No:").Check CheckPoint("Order No:")


Dim OrderNo
OrderNo=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")
Dim regEx
Set regEx=New regExp
regEx.Pattern="[0-9]+"


If regEx.test(OrderNo) Then
Reporter.ReportEvent micPass, "同为整数", "成功"
Else
Reporter.ReportEvent micFail, "不为整数", "失败"
End If
Window("Flight Reservation").WinButton("Button").Click