'############################################################################################
'手工产生一个随机数,达到随机选择商务舱、经济舱、头等舱的目的,点击Insert Order插入订票信息
'############################################################################################
'方法(一)
'Dim x1,x2
'Randomize
'x1=RandomNumber(1,3)
' If x1="1" then
' x2="Business"
' else if x1="2" then
' x2="Economy"
' else x2="First "
' end if
' end if
'Window("Flight Reservation").WinRadioButton(x2).Set
'方法(二)
Dim i,b
i=RandomNumber(1,3)
Select Case i
Case 1 b="First"
Case 2 b="Business"
Case 3 b="Economy"
End Select
Window("Flight Reservation").WinRadioButton("First").SetTOProperty"text",b
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
wait(6)
Dim RecordNo,Radioitems '定义一个变量
RecordNo=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text") '获取Order No
DataTable("OrderNo",dtGlobalSheet)=RecordNo '将OrderNo写入datatable,以后检查用