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

肖欢伟

哪位好心人能弄一个 飞机订票系统然后再参数化一下（就是“起始地点”和“到达地点”的参数化或者还有“订票人”）
我只会在关键字视图里面点击 VALUE值右键参数化，然后把相应的参数写在 表里面，接下来就不知道改哪里了。。。。。。。

wz403692767

把你的DataTable截出来看看

肖欢伟

出发地点      到达地点
1   Denver        London
2  Paris            Frankfurt
3  Portland      Seattle

-------------------------公司电脑装不了FALSH 所以传不了截图，等下回去用自己的电脑传。样子就是这样的

wz403692767

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

肖欢伟

我临时写了一个完整的，自己参考下，写的不好请见谅，有些没有参数化
DataTable
wz403692767 发表于 2010-12-21 12:29

恩。谢谢你。非常感谢。 我在去研究研究。

肖欢伟

回复 5# wz403692767

你这个都是用函数写的哦。比较高深一点，可以不用函数写，更“傻瓜式”一点么？就是尽量简单易懂一点，尤其像我这种小白。。。。

1987wing

在qtp help菜单中有一个QuickTest Professional Tutorial，打开它里面有教你如何参数化

wz403692767

回复 7# 肖欢伟


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

1. 
   
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
    
13. 
    
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
    
35. 
    
36. 'Exit
    
37. Window("Flight Reservation").WinButton("Insert Order").WaitProperty "enabled",false,100000
    
38. Window("Flight Reservation").Close
    

复制代码

肖欢伟

回复  肖欢伟


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

    恩，真的非常感谢。可以加你QQ吗？以后有什么问题可以请教你。

wz403692767

回复 10# 肖欢伟


    QQ:403692767     
    我也就接触了一个月，有机会一起探讨

肖欢伟

回复  肖欢伟


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

哥们，我把你给我的代码复制进去，允许。报错。报错内容写的是
Line (3): "If Dialog("Login").Exist(2) = False Then".
不知道是什么原因。你给看看？

wz403692767

回复 12# 肖欢伟


    你需要把脚本里的对象全部添加到对象库中

17800455

do

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

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

如果你用别的action的话要在action中设置一下。

肖欢伟

回复 14# 17800455
楼上的哥们， 要不你也帮帮忙，不要在专家视图里写。就用 用录制。在 关键字视图里面操作一个。
把订票 的 出发地  到达地 和 订票人等 参数化一下。 帮忙把 源码复制一下。 万分感激。