QTP参数化实例——应用程序

上一篇 / 下一篇 2007-01-17 18:43:02 / 个人分类：QTP

y L&VxbH [0刚刚看了 xiaonan 博客中的《QTP参数化实例(续)》不禁手痒，就按照 xiaonan 的例子，完成了 “课后练习题”^_^51Testing软件测试网 I2{QmD
QTP自带的windows程序fight．其中有一个WinRadioButton对象．如下图：
iy0TM/u-]0现在将修改后的完整脚本贴出来，给自己留个印记~~~
P6e[6Vs t9?:P V6N0Dialog("Login").WinEdit("Agent Name:").Set "ddddd"
,U{:u/?1_l&x&zz0Dialog("Login").WinEdit("Password:").SetSecure "45adf43a0fd43490f85d6c773e624a56d97576d1"51Testing软件测试网,])V BX C1E
Dialog("Login").WinButton("OK").Click
T'J }5M&V;h0Window("Flight Reservation").ActiveX("MaskEdBox").Type "111111"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
5unwZQL-i{r0Window("Flight Reservation").WinComboBox("Fly To:").Select "Los Angeles"
DQ |Qg0[P ~"A)k^0Window("Flight Reservation").WinButton("FLIGHT").Click
`)vde8B&{&t/pn0Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "20330   FRA   08:12 AM   LAX   03:23 PM   AA     $112.20"
oZykTF0Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
+d(^E"N0}0Window("Flight Reservation").WinEdit("Name:").Set "123"
L#Q1Y v8WC)G{~0Dim i, b51Testing软件测试网.Y;TRc!b d
For i = 1 to 351Testing软件测试网)_/Dh3nLG8H
Select Case i
W5m8m4A2_O"Lx(l0        Case 1 b = "First"51Testing软件测试网)pe0qrSW}J
        Case 2 b = "Business"
        Case 3 b = "Economy"
1r{I0n2`W#eLG0 End Select51Testing软件测试网u,MHTp(z7r
    Window("Flight Reservation").WinRadioButton("Business").SetTOProperty "text",b51Testing软件测试网#A d|A^$L/R
    Window("Flight Reservation").WinRadioButton("Business").Set'
Next51Testing软件测试网*x7P-_Hv c
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close51Testing软件测试网mWO?O6[

P{"L.zX%C/Y0参考链接：http://blog.51testing.com/html/49/26649_itemid_3098.html

相关阅读:

Action级别的参数调用 (kevin_swpi, 2007-1-10)
QTP的学习历程 (higkoo, 2007-1-10)
解决运行QTP IE进程不能启动的问题! (andy, 2007-1-11)
对象库的管理与合并 (ccc11yyy, 2007-1-11)
Object Repository的一个Bug (ccc11yyy, 2007-1-11)
QTP描述性编程原理介绍 (kevin_swpi, 2007-1-13)
[原创]QTP中根据日期计算年龄的解决办法 (风过无息, 2007-1-13)
QTP参数化实例(续) (xiaonan, 2007-1-16)
关于QTP的一些控件的操作 (kevin_swpi, 2007-1-17)

收藏举报

TAG: QTP

引用删除 luochunfeng / 2012-02-16 20:07:38: 哦，上面说错了，应该是“Business”标示不唯一，修改如下，已在9.2中验证了

Dialog("Login").WinEdit("Agent Name:").Set "ddddd"
Dialog("Login").WinEdit("assword:").SetSecure "45adf43a0fd43490f85d6c773e624a56d97576d1"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111111"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Los Angeles"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "20330 FRA 08:12 AM LAX 03:23 PM AA    $112.20"
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "123"
Dim i, b
For i = 1 to 3
Select Case i
      Case 1 b = "First"
      Case 2 b = "Business"
      Case 3 b = "Economy"
End Select
Window("Flight Reservation").WinRadioButton("Business").SetTOProperty "text",b
Window("Flight Reservation").WinRadioButton("text"=&b).Set'
Next
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close