10.19

Window("Flight Reservation").ActiveX("MaskEdBox").Click 8,2
Window("Flight Reservation").ActiveX("MaskEdBox").Type  micBack
Window("Flight Reservation").ActiveX("MaskEdBox").Type "101815"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Paris"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "13566   FRA   08:00 AM   PAR   11:30 AM   SR     $169.70"


Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "LIUJIE"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
pricetext=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
'取值price
price=mid(pricetext,1) 
'弹出票价对话框
msgbox "price:"&price
Dim price,num,total,real
'取值Tickets
num1 = Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")
'弹出票的张数对话框
msgbox "Tickets:" &num1
price1=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
'取值Total
total1=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")
price = cdbl(mid(price1,2))
num = cint(num1)
total =cdbl(mid(total1,2))
real = price*num
'比较Price*Ticket的价格是否等于Total
If abs(total-real) <0.001Then
 
Reporter.ReportEvent micPass, "success", "订票正确" 
msgbox "订票正确" 
else
Reporter.ReportEvent micFail, "fail", "订票错误"
msgbox "订票错误"
End If
Window("Flight Reservation").WinMenu("Menu").Select "File;New Order"