QTP自动化测试自带订票系统登录功能

录制该实例时，出现过很多问题，里面有个很奇怪问题“Cannot find the "Agent name must be at least 4 characters long." object's parent "Login" (class Dialog).Verify that parent properties match an object currently displayed in your application.”，一直认为是不识别对象，又是改语句的，又是增加虚拟对象，都没一个成功，最后才查出是代码问题，少判断了"Flight Reservations"是否存在情况？导致跑到正确登录时候出问题。

最终代码如下：

'应用QTP自带订票系统
'应用六个不同登录情况测试用例
'检验弹出提出信息是否正确

Dim i      
Dim istatus     '预期值变量
Dim outvalue    '实际值变量

For i=1 to datatable.GetSheet("Action1").getrowcount     '循环从1到Action1最后一行

Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
Dialog("Login").WinEdit("Password:").SetSecure DataTable("password", dtLocalSheet)
Dialog("Login").WinButton("OK").Click

If Dialog("Login").Dialog("Flight Reservations").Exist Then
 '插入输出检查点,参数化outmsg
 Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at least 4 characters long.").Output CheckPoint("Agent name must be at least 4 characters long.")
    istatus=datatable("status",dtlocalSheet)  '将预期值status赋予变量istatus
 outvalue=datatable("outmsg",dtlocalSheet)  '将实际值outmsg赋予变量outvalue
 If  istatus <> outvalue Then
  reporter.ReportEvent 1,"登录功能测试","预期值为"+istatus+"，实际值为"+outvalue  
 else
  reporter.ReportEvent 0,"登录功能测试","登录成功！"
 End If
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

else
Window("Flight Reservation").Close
End If

datatable.getsheet("Action1").setnextrow  '获取Action1下一行数据
Next

参数化表