关于今晚的实验 自己做出来的 满满的成就感感觉自己棒棒哒

先贴个代码 好不容易做出来的 当然只是A2的  记一下省的自己忘记鸟

'添加位图检查点，检查某特定图片是否正常出现。
Window("Flight Reservation_2").Static("Static").Check CheckPoint("Static_2")
'创建新订单
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "121315"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"
Window("Flight Reservation").WinButton("FLIGHT").Click
'在02_ New&Fax中填完时间、出发地、目的地之后点击flight按钮后，选择最下面的一个航班
Dim itemscount
itemscount=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetROProperty("items count")
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select(itemscount-1)
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "mmc"
Window("Flight Reservation").WinEdit("Tickets:").Set "2"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
'insert order后检查是否显示order no的值
Window("Flight Reservation").WinEdit("Order No:").Check CheckPoint("Order No:")
'新建一个Fax Order
Window("Flight Reservation").WinMenu("Menu").Select "File;Fax Order..."
'比较order no的值和fax对话框中的标题中的数字是否一致
Dim a, b
a=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")
b=Window("Flight Reservation").Dialog("Fax Order No. 35").GetROProperty("text")
b=mid(b,15,2)'截取标题上的订单号数字
a=cdbl(a)
b=cdbl(b)  '强制类型转换后比较
If a=b Then
Reporter.ReportEvent micPass,"结果","一致"
Else
Reporter.ReportEvent micFail,"结果","不一致" 
End If
'在创建订单后获取flyfrom,flyto,name,price,total的值，比较和faxorder中显示的信息是否一致。（自定义检查点）
Dim FF1,FF2,FT1,FT2,N1,N2,P1,P2,T1,T2


FF1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("text")
FF2=Window("Flight Reservation").Dialog("Fax Order No. 35").WinEdit("From:").GetROProperty("text")
If FF1=FF2 Then
Reporter.ReportEvent micPass,"结果","一致"
Else
Reporter.ReportEvent micFail,"结果","不一致" 
End If
FT1=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("text")
FT2=Window("Flight Reservation").Dialog("Fax Order No. 35").WinEdit("To:").GetROProperty("text")
If FT1=FT2 Then
Reporter.ReportEvent micPass,"结果","一致"
Else
Reporter.ReportEvent micFail,"结果","不一致" 
End If
N1=Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
N2=Window("Flight Reservation").Dialog("Fax Order No. 35").WinEdit("Name:").GetROProperty("text")
If N1=N2 Then
Reporter.ReportEvent micPass,"结果","一致"
Else
Reporter.ReportEvent micFail,"结果","不一致" 
End If
P1=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
P1=mid(P1,2,7)
P2=Window("Flight Reservation").Dialog("Fax Order No. 35").WinEdit("Ticket Price:").GetROProperty("text")
P2=mid(P2,1,7)
P1=cdbl(P1)
P2=cdbl(P2)
If P1=P2 Then
Reporter.ReportEvent micPass,"结果","一致"
Else
Reporter.ReportEvent micFail,"结果","不一致" 
End If
T1=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")
T1=mid(T1,2,7)
T2=Window("Flight Reservation").Dialog("Fax Order No. 35").WinEdit("Total:").GetROProperty("text")
T2=mid(T2,1,7)
If T1=T2 Then
Reporter.ReportEvent micPass,"结果","一致"
Else
Reporter.ReportEvent micFail,"结果","不一致" 
End If


Window("Flight Reservation").Dialog("Fax Order No. 35").Close
Window("Flight Reservation").WinButton("Button").Click