51Testing软件测试论坛

标题: QTO参数化请教？（QTP自带的飞机订票系统参数化问题求救） [打印本页]
作者: 肖欢伟    时间: 2010-12-21 11:09
标题: QTO参数化请教？（QTP自带的飞机订票系统参数化问题求救）
我是个QTP新手，就用QTP自带的飞机订票系统来学习。但是参数化不会，失败了。求老手赐教。

file:///C:/DOCUME%7E1/ADMINI%7E1/LOCALS%7E1/Temp/moz-screenshot.png
  1. Dialog("Login").Activate
  2. Dialog("Login").WinEdit("Agent Name:").Set "mercury"
  3. Dialog("Login").WinEdit("Password:").SetSecure "4d10154623f52e115d81b29cb8a50e19a164ceec"
  4. Dialog("Login").WinButton("OK").Click
  5. Window("Flight Reservation").ActiveX("MaskEdBox").Type "122510"
  6. Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("出发地点", dtGlobalSheet)
  7. Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("到达地点", dtGlobalSheet)
  8. Window("Flight Reservation").WinButton("FLIGHT").Click
  9. Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "20259   DEN   07:12 AM   LON   02:23 PM   AA     $112.20"
  10. Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
  11. Window("Flight Reservation").WinEdit("Name:").Set "kaka"
  12. Window("Flight Reservation").WinButton("Insert Order").Click
  13. Window("Flight Reservation").Close
复制代码
file:///C:/Documents%20and%20Settings/Administrator/%E6%A1%8C%E9%9D%A2/QTP1.jpg
作者: 肖欢伟    时间: 2010-12-21 11:11
本帖最后由 肖欢伟 于 2010-12-21 11:15 编辑

哪位好心人能弄一个 飞机订票系统然后再参数化一下（就是“起始地点”和“到达地点”的参数化或者还有“订票人”）
我只会在关键字视图里面点击 VALUE值右键参数化，然后把相应的参数写在 表里面，接下来就不知道改哪里了。。。。。。。
作者: wz403692767    时间: 2010-12-21 11:23
把你的DataTable截出来看看
作者: 肖欢伟    时间: 2010-12-21 11:30
出发地点      到达地点
1   Denver        London
2  Paris            Frankfurt
3  Portland      Seattle

-------------------------公司电脑装不了FALSH 所以传不了截图，等下回去用自己的电脑传。样子就是这样的
作者: wz403692767    时间: 2010-12-21 12:29
本帖最后由 wz403692767 于 2010-12-21 12:32 编辑
  1. '================================
  2. ' 函数：LoginFlight
  3. ' 功能：登录订票系统
  4. ' 参数：FightPath,订票系统目录
  5. '================================
  6. Public Function LoginFlight(FlightPath)
  7.   Do
  8.     If Dialog("Login").Exist(2) = False Then
  9.       SystemUtil.Run FlightPath
  10.     Else
  11.       Dialog("Login").WinEdit("Agent Name:").Set "admin"
  12.       Dialog("Login").WinEdit("Password:").Set "mercury"
  13.       Dialog("Login").WinButton("OK").Click
  14.       Exit do
  15.     End If
  16.   Loop While True
  17. End Function
  18. '===============================
  19. ' 函数：OrderFlight
  20. ' 功能：订票
  21. ' 参数：无
  22. '===============================
  23. Public Function OrderFlight
  24.   Do
  25.     If Window("Flight Reservation").Exist(2) = False Then
  26.       Wait 2
  27.     Else
  28.       Exit do
  29.     End If
  30. Loop While True
  31. If Window("Flight Reservation").Exist(5) Then
  32.   Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("Date",dtGlobalSheet)
  33.   Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("From",dtGlobalSheet)
  34.   Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("To",dtGlobalSheet)
  35.   Window("Flight Reservation").WinButton("FLIGHT").Click
  36.   Wait 2
  37.   Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select 0
  38.   Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
  39.   Wait 1
  40.   Window("Flight Reservation").WinEdit("Name:").Set DataTable("Name",dtGlobalSheet)
  41.   Window("Flight Reservation").WinEdit("Tickets:").Set "1"
  42.   Window("Flight Reservation").WinButton("Insert Order").Click
  43. End If
  44. End Function
  45. '====================================
  46. ' 函数：ExitFlight
  47. ' 功能：退出订票系统
  48. ' 参数：无
  49. '====================================
  50. Public Function ExitFlight
  51.   Window("Flight Reservation").WinButton("Insert Order").WaitProperty "enabled",false,100000
  52.   Window("Flight Reservation").Close
  53. End Function
  54. '====================================
  55. ' Main 函数
  56. '====================================
  57. FlightPath = "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
  58. LoginFlight(FlightPath)
  59. OrderFlight
  60. ExitFlight
复制代码

我临时写了一个完整的，自己参考下，写的不好请见谅，有些没有参数化
DataTable
[attach]67450[/attach]
作者: 肖欢伟    时间: 2010-12-21 13:51
我临时写了一个完整的，自己参考下，写的不好请见谅，有些没有参数化
DataTable
wz403692767 发表于 2010-12-21 12:29


恩。谢谢你。非常感谢。 我在去研究研究。
作者: 肖欢伟    时间: 2010-12-21 13:56
回复 5# wz403692767

你这个都是用函数写的哦。比较高深一点，可以不用函数写，更“傻瓜式”一点么？就是尽量简单易懂一点，尤其像我这种小白。。。。
作者: 1987wing    时间: 2010-12-21 14:22
在qtp help菜单中有一个QuickTest Professional Tutorial，打开它里面有教你如何参数化
作者: wz403692767    时间: 2010-12-21 14:24
回复 7# 肖欢伟


    不用函数写的话就把Function里面的东西拿出来,最好函数化，看的比较清楚，容易修改


  2. 'Login
  3. Do
  4.   If Dialog("Login").Exist(2) = False Then
  5.     SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
  6.   Else
  7.     Dialog("Login").WinEdit("Agent Name:").Set "admin"
  8.     Dialog("Login").WinEdit("Password:").Set "mercury"
  9.     Dialog("Login").WinButton("OK").Click
  10.     Exit do
  11.   End If
  12. Loop While True

  14. 'Order
  15. Do
  16.   If Window("Flight Reservation").Exist(2) = False Then
  17.     Wait 2
  18.   Else
  19.     Exit do
  20.   End If
  21. Loop While True
  22. If Window("Flight Reservation").Exist(5) Then
  23.   Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("Date",dtGlobalSheet)
  24.   Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("From",dtGlobalSheet)
  25.   Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("To",dtGlobalSheet)
  26.   Window("Flight Reservation").WinButton("FLIGHT").Click
  27.   Wait 2
  28.   Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select 0
  29.   Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
  30.   Wait 1
  31.   Window("Flight Reservation").WinEdit("Name:").Set DataTable("Name",dtGlobalSheet)
  32.   Window("Flight Reservation").WinEdit("Tickets:").Set "1"
  33.   Window("Flight Reservation").WinButton("Insert Order").Click
  34. End If

  36. 'Exit
  37. Window("Flight Reservation").WinButton("Insert Order").WaitProperty "enabled",false,100000
  38. Window("Flight Reservation").Close
复制代码
作者: 肖欢伟    时间: 2010-12-21 15:14
回复  肖欢伟


    不用函数写的话就把Function里面的东西拿出来,最好函数化，看的比较清楚，容易修改 ...
wz403692767 发表于 2010-12-21 14:24



    恩，真的非常感谢。可以加你QQ吗？以后有什么问题可以请教你。
作者: wz403692767    时间: 2010-12-21 15:24
回复 10# 肖欢伟


    QQ:403692767     
    我也就接触了一个月，有机会一起探讨
作者: 肖欢伟    时间: 2010-12-29 10:14
回复  肖欢伟


    不用函数写的话就把Function里面的东西拿出来,最好函数化，看的比较清楚，容易修改 ...
wz403692767 发表于 2010-12-21 14:24


哥们，我把你给我的代码复制进去，允许。报错。报错内容写的是
Line (3): "If Dialog("Login").Exist(2) = False Then".
不知道是什么原因。你给看看？
作者: wz403692767    时间: 2010-12-29 12:05
回复 12# 肖欢伟


    你需要把脚本里的对象全部添加到对象库中
作者: 17800455    时间: 2010-12-31 15:20
do

loop while true    你为什么要写个死循环  你怕qtp不读dataTable表中的数据吗。

在qtp中设置一下就行了。让读所有的。应该在setting里的运行，这是设置全局的。

如果你用别的action的话要在action中设置一下。
作者: 肖欢伟    时间: 2011-2-10 15:29
回复 14# 17800455
楼上的哥们， 要不你也帮帮忙，不要在专家视图里写。就用 用录制。在 关键字视图里面操作一个。
把订票 的 出发地  到达地 和 订票人等 参数化一下。 帮忙把 源码复制一下。 万分感激。



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2