QTP基本循环正常遍历(代码方式实现)

0 环境

系统环境：win7

1 操作(正常遍历篇)

1.1 代码前看

systemutil.Run "D:Program Files (x86)HPQuickTest Professionalsamplesflightappflight4a.exe"
dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
dialog("Login").WinEdit("Password:").Set DataTable("password", dtLocalSheet)
dialog("Login").WinButton("OK").Click

If window("Flight Reservation").Exist(5) then
    reporter.ReportEvent micPass, "依据窗口Flight Reservation存在, 验证登录成功","实际Flight Reservation窗口存在"
    window("Flight Reservation").Close
    else
    reporter.ReportEvent micFail, "依据窗口Flight Reservation存在, 验证登录成功","实际Flight Reservation窗口不存在"
end if

点击小飞机

第一行代表  -->  可以理解为全局变量
获取用户名 密码
ok按钮
判断 若是存在(时间5s 默认20s) 
    跳出pass 标题和提示语
    关闭窗口
否则失败
 

1.2 图示

对应用进行配置

法一：

 

法二：初次创建的项目

打开小飞机 我需要利用代码形式将值写入到小飞机的用户和密码的输入框里 在点击ok键 为了简单我设置的密码和用户名都是正确的 跳转到一个正确的页面并设置它为check

    ---> 打开它

初始模板的话 为空 需要添加一些控件 用户名 密码 以及ok键 最后还有正确的跳转界面
 开始 与 结束

 

 

 

 

 

 

遍历多个数值 该如何设置

 

 

 

 

 

代码如下

systemutil.Run "D:Program Files (x86)HPQuickTest Professionalsamplesflightappflight4a.exe"
dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
dialog("Login").WinEdit("Password:").Set DataTable("password", dtLocalSheet)
dialog("Login").WinButton("OK").Click

If window("Flight Reservation").Exist(5) then
    reporter.ReportEvent micPass, "依据窗口Flight Reservation存在, 验证登录成功","实际Flight Reservation窗口存在"
    window("Flight Reservation").Close
    else
    reporter.ReportEvent micFail, "依据窗口Flight Reservation存在, 验证登录成功","实际Flight Reservation窗口不存在"
end if

2 总结

思维方式 代码与控件的相对应的添加 多个值的循环遍历 表格的填写 用户名和密码的别名和参数化 3处设置循环遍历的点