航班预定登录系统UFT脚本

航班预定登录系统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