QTP自带订票实现循环执行，參数化和将异常提示信息输出

Posted 2020-06-14

做这个样例主要是为了积累一些较基础的知识，以便日后可參考学习

这个样例是一个订票的C/Sclient程序

一、业务需求：

1.实现异常和正常数据登录窗体，系统对数据进行校验

2.登录成功后。进行订票业务，涉及多人订不同一时候间、不同城市的机票业务

3.退出订票系统

二、自己主动化脚本须要实现功能：

1.多组数据登录时，数据须要參数化。并在登录窗体依据參数化数据个数进行循环登录【（1）參数化数据（2）设置脚本循环规则】

2.异常数据登录系统，系统给出校验的提示信息。须要将校验异常数据提示信息在QTP报告中展示出来【将异常提示信息显示在QTP报告中】

3.參数化飞行日期，机票持有人。飞行起飞地点和目的地【參数化数据】

4.将脚本切割为3部分。第一部分为：登录业务；第二部分为：机票订票业务；第三部分：退出订票系统业务

三、实现脚本：

Action1脚本

Dialog("Login").WinEdit("Agent Name:").Set DataTable("p_username", dtLocalSheet)
wait 1
Dialog("Login").WinEdit("Agent Name:").Type  micTab 
wait 1
Dialog("Login").WinEdit("Password:").SetSecure DataTable("p_passwd", dtLocalSheet)
wait 1
Dialog("Login").WinButton("OK").Click
wait 1
If  Dialog("Login").Dialog("Flight Reservations").Exist(2) Then
Dim err_message
err_message=Dialog("Login").Dialog("Flight Reservations").Static("Incorrect password. Please").GetROProperty("text")
wait 1
Reporter.ReportEvent micFail,"登录失败","错误信息是："&err_message
wait 1
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
wait 1
End If
wait 1

Action2脚本：

Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("p_data_of_flight", dtLocalSheet)
wait 1
Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("p_flyfrom", dtLocalSheet)
wait 1
Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("p_flyto", dtLocalSheet)
wait 1
Window("Flight Reservation").WinButton("FLIGHT").Click
wait 1
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
wait 1
Window("Flight Reservation").WinEdit("Name:").Set DataTable("p_name", dtLocalSheet)
wait 1
Window("Flight Reservation").WinButton("Insert Order").Click
wait 1
Window("Flight Reservation").WinMenu("Menu").Select "File;New Order"
wait 1

Action3脚本

Window("Flight Reservation").Close