qtp的flight怎样处理“按file在下拉框中选择open order”这个操作

pengxing12121 · 发表于 2011-10-17 17:41:41

本帖最后由 pengxing12121 于 2011-10-18 11:40 编辑

大家好
我刚学习qtp  有些不懂望见谅啊
我录制了一个订票后，根据订票No，查询订票信息，再对比查询后的目的地和一开始的目的地的对比情况来验证查询的No信息是否正确，
----ps 我用的是activex 和 vb的插件
SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "mercury"'输入name
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").SetSecure "4e9bcc5a0b19dd3812c0322827f1a84930677590"'输入password
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinObject("Date of Flight:").Type DataTable("月日年", dtGlobalSheet)'输入月日年
Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("出发地", dtGlobalSheet)'输入出发地
Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("目的地", dtGlobalSheet)'输入目的地
Window("Flight Reservation").WinButton("FLIGHT").Click'调出当天航班信息
hangbangcout=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCount'获得航班的列数个数
xuanzhb=RandomNumber(0,hangbangcout)'在列表中得到随机数
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select xuanzhb'使用随机到的航班号
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "19138 LON 08:00 AM LAX 08:45 AM AA    $102.00"'选择某航班
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "pengxin"'输入订票人name
Window("Flight Reservation").WinButton("Insert Order").Click'生成订单
No = Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text") '取得订票no
Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."'调出查询订单框
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"'选择按查询No查询
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Type No' 设置订票号
'window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").set (No)
'Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").GetROProperty("No")'输入订票号
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click'确定查询
Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("查询后的目的地", dtGlobalSheet)'检查查询后的目的地是否和订单一致
Window("Flight Reservation").Close

----红色的第1列是书上的举例可是我执行还是不行下面那2列红色部分是我自己编辑的也还是不行
   求高手解答不胜感激涕零之