航班预定登录系统UFT脚本
Login
SystemUtil.Run"D:\Software\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("AgentName:").Set "merc"
Dialog("Login").WinEdit("Password:").SetSecure"5631b333ff143d5bab94d1d21873b5e041b15bf3"
Dialog("Login").WinButton("OK").Click
NewOrder
Window("FlightReservation").WinButton("Button").Click
Window("FlightReservation").ActiveX("MaskEdBox").TypeDataTable("Date", dtLocalSheet)
Window("FlightReservation").WinComboBox("Fly From:").SelectDataTable("FlyFrom", dtLocalSheet)
Window("Flight Reservation").WinComboBox("FlyTo:").Select DataTable("FlyTo", dtLocalSheet)
Window("FlightReservation").WinButton("FLIGHT").Click
Window("FlightReservation").Dialog("FlightsTable").WinButton("OK").Click
Window("FlightReservation").WinEdit("Name:").Set DataTable("Name",dtLocalSheet)
Window("FlightReservation").WinEdit("Tickets:").SetSelection 0,1
Window("FlightReservation").WinEdit("Tickets:").SetDataTable("Tickets",dtLocalSheet)
Window("FlightReservation").WinButton("Insert Order").Click
'同步点
Window("FlightReservation").ActiveX("Threed Panel Control").WaitProperty"text", "Insert Done...", 10000
'标准输出
Window("FlightReservation").WinEdit("Order No:").Output CheckPoint("OrderNo:")
RunAction "OpenOrder",oneIteration
OpenOrder
Window("Flight Reservation").WinButton("Button").Click
Window("FlightReservation").Dialog("Open Order").WinCheckBox("OrderNo.").Set "ON"
Window("FlightReservation").Dialog("Open Order").WinEdit("Edit").SetDataTable("Order_No",dtGlobalSheet)
Window("FlightReservation").Dialog("OpenOrder").WinButton("OK").Click
'标准输出名称、订单号、航班、总计
Window("FlightReservation").WinEdit("Name:").OutputCheckPoint("Name:")
Window("FlightReservation").WinEdit("Flight No:").OutputCheckPoint("Flight No:")
Window("FlightReservation").WinEdit("Total:").OutputCheckPoint("Total:")
Window("FlightReservation").WinEdit("Order No:").Output CheckPoint("OrderNo:")
DataTable.export"..\..\..\Data\OpenOrder11.xls"'导出数据
RunAction "FaxOrder",oneIteration
FaxOrder
'导入数据
DataTable.import"..\..\..\Data\FaxOrder11.xls"'导入数据
DataTable.import"..\..\..\Data\OpenOrder11.xls"'导入数据
Window("FlightReservation").WinMenu("Menu").Select "File;FaxOrder..."
'标准检查点
Window("FlightReservation").Dialog("Fax OrderNo.").WinEdit("Name:").Check CheckPoint("Name:")
Window("Flight Reservation").Dialog("FaxOrder No.").WinEdit("Order:").CheckCheckPoint("Order:")
Window("FlightReservation").Dialog("Fax OrderNo.").WinEdit("Flight:").Check CheckPoint("Flight:")
'自定义检查点
''总计
d=Window("FlightReservation").Dialog("Fax OrderNo.").WinEdit("Total:").GetROProperty("text")
d1=DataTable("Total_out",dtGlobalSheet)
dd1=mid(d1,2)
If d=dd1 Then
Reporter.ReportEventmicPass,"通过","总计相等"
Else
Reporter.ReportEvent micFail,"失败","总计不相等"
End If
Window("FlightReservation").Dialog("Fax OrderNo.").ActiveX("MaskEdBox").Type DataTable("p_Number",dtLocalSheet)
Window("FlightReservation").Dialog("Fax OrderNo.").WinButton("Send").Click
'同步点
Window("FlightReservation").ActiveX("Threed Panel Control").WaitProperty"text", "Fax Sent Successfully...", 10000
Logout
Window("Flight Reservation").Close