首页 ›测试› 体会 › 查看内容

QTP自带飞机订票系统的测试_登录测试

2014-6-25 14:31| 发布者: tianzc| 查看: 805| 评论: 0

摘要: 　　昨天对QTP自带的飞机订票系统进行了相关的录制。主要针对用户登录，即用户名及密码的输入进行自动化测试。测试思想为：以本地表中的内容对用户名及密码进行组合输入，当输入的用户名或者密码错误，点击OK的时候 ...

'登录部分
Dim i '定义行号
For i=1 to datatable.GetSheet("Action1").getrowcount
Dialog("Login").WinEdit("Agent Name:").Set DataTable("name", dtLocalSheet)
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure DataTable("password", dtLocalSheet)
Dialog("Login").WinButton("OK").Click
If Dialog("Login").Dialog("text:=Flight Reservations").Exist Then
'在 text 与 = 号之间还有一个冒号：
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
End If
Next

'主界面部分
Window("Flight Reservation").ActiveX("MaskEdBox").Type "090925"
Window("Flight Reservation").WinComboBox("Fly From:").Select "London"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "12488 LON 08:00 AM FRA 08:45 AM AA $105.40"
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "gege"
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

　　出现的问题：重新运行脚本并查看结果，发现软件只针对本地表用户名、密码的第一行进行了6次操作。即令用户名及密码都为空，点击OK，出现错误提示框，点击“确定”，这一段操作重复6次。然后必须手动输入正确密码后，才能进入主界面，后续操作正常进行。

　　问题解决：通过别人提醒发现，for循环中，只定义了循环的次数，却没有获取本地表每一行的数据，于是在for语句后加上datatable.LocalSheet.SetCurrentRow i 后，脚本成功运行。

原创作品，转载时请务必以超链接形式标明本文原始出处、作者信息和本声明，否则将追究法律责任。

　　专家视图代码如下：

12 / 2 页