|
本帖最后由 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列红色部分 是我自己编辑的 也还是不行
求高手解答 不胜感激涕零之 |
|