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

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

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

pengxing12121 发表于 2011-10-17 18:01:04

please

pengxing12121 发表于 2011-10-18 09:07:26

求高手解答 不胜感激涕零之

softCore 发表于 2011-10-19 10:55:43

ugly coding style 现在的培训书和培训机构对coding style这块都不重视，弄出来的代码风格真的不忍多看。

icu200934 发表于 2011-10-19 16:55:21

NO. 差了个“.”这个吧。

gszhaochengyong 发表于 2011-11-2 14:05:41

没看明白 你的意思

SexyCat_1113 发表于 2011-11-2 14:47:17

帮顶，，，
页: [1]
查看完整版本: qtp的flight怎样处理“按file在下拉框中选择open order”这个操作