QTP自带飞机订票系统_检查点的设置

    关于检查点的设置，之前一直存在一个疑惑，关于下面这个语句：

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.") 

   对static的直观理解，以至于我觉得这个语句只能检测到“Agent name must be at least 4 characters long.” 这一句话，而不能检测到该错误提示框在不同的用户名密码输入值的情况下 提示的不同错误信息。但经过实际检测，脚本运行过程中，本地表中的output的值是根据不同输入而出现的不同错误信息。只不过，output部分，只能在脚本运行过程中短时出现以下，当脚本运行结果，output重新为空。不过，可以在run results中查看到当时的情况。

Dim i     '定义一个行变量i
For i=1 to datatable.GetSheet("Action1").getrowcount   '使用for循环
 datatable.LocalSheet.SetCurrentRow i    '获取当前行的数据
 Dialog("Login").WinEdit("Agent Name:").Set DataTable("AgentName", 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
  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.")  '检查点
  Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
 End If

'======对检查点进行获取比较=========

  status = datatable("status", dtlocalsheet)       '获取该次循环的预期输出
 out = datatable("output",dtlocalsheet)           '获取该次循环的实际输出
 If out<>status Then
  Reporter.ReportEvent micFail, "检查点测试","实际的：" + out + "预期的：" + status + "不相同！"      '报错
 else Reporter.ReportEvent micPass , "检查点测试","实际的：" + out + "预期的：" + status + "相同！"      '通过
 End If
Next
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("Date", dtLocalSheet)
Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("Fly_From", dtLocalSheet)
Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("Fly_to", dtLocalSheet)
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "12572   LON   10:24 AM   FRA   11:09 AM   AA     $109.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").Close