做这个例子主要是为了积累一些较基础的知识，以便日后可参考学习
这个例子是一个订票的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自带订票实现循环运行，参数化和将异常提示信息输出