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

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

这个例子是一个订票的C/S客户端程序

一、业务需求：

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

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