QTP登陆测试脚本2

这个相对来说比上一个复杂点，我对登陆的用户名我做了一个参数化，然后设置了4个变量，分别来存储，用户名、密码、预期值、实际获取值。做了一个循环，通过登陆不同的用户，来验证一些检查点获得的值。

 

Dim i  '定义行号
Dim outputvalue '定义读取系统实际输出信息的变量
Dim istatus '定义读取系统预期显示信息的变量

For  i=1  to  datatable.GetSheet("Action1").getrowcount '做一个循环登陆

Browser("题库管理系统登录首页").Page("题库管理系统登录首页").WebEdit("sysUser.usrName").Set DataTable("username", dtLocalSheet)
Browser("题库管理系统登录首页").Page("题库管理系统登录首页").WebEdit("sysUser.usrPassword").SetSecure DataTable("password", dtLocalSheet)
Browser("题库管理系统登录首页").Page("题库管理系统登录首页").Image("登陆").Click

Browser("题库管理系统登录首页").Page("题库管理系统").Frame("menu").Output CheckPoint("menu")'对页面某一位置插入文本检查点
outputvalue=datatable("outmsg",dtLocalSheet)' 将实际输出信息赋值给变量
istatus=datatable("status",dtLocalSheet)'将预期信息赋值给变量

msgbox outputvalue'弹出实际输出信息的变量值

If istatus<>outputvalue Then
  Reporter.ReportEvent 1,"登陆功能测试","预期值为："+istatus+"，实际值为："+outputvalue
End If

Browser("题库管理系统登录首页").Page("题库管理系统").Frame("topFrame").Image("点击退出").Click
Browser("题库管理系统登录首页").Page("题库管理系统登录首页_2").Sync

datatable.GetSheet("Action1").setnextrow'获取Action1中的下一行数值
Next

Browser("题库管理系统登录首页").Close