飞机登录系统脚本问题

上一篇 / 下一篇  2012-10-18 17:17:12 / 个人分类:自动化

 

 

下面是我录制的一个飞机登录系统的脚本,为什么在运行到datatable的第四行就结束程序了。第五行的值不会执行?如果action-call call properties-run设置为run all rows时datatable的值都可以执行,但是会重复执行五次?

Dim url
Dim expa
Dim fact
expa=datatable("expect",dtlocalsheet)
fact=datatable("outmsg",dtlocalsheet)
url="C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
If  Dialog("Login").Exist(1)Then
           Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
           Dialog("Login").WinEdit("Agent Name:").Type  micTab
           Dialog("Login").WinEdit("Password:").SetSecure DataTable("pwd", dtLocalSheet)
           Dialog("Login").WinButton("OK").Click
else
      SystemUtil.run url
    Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
        Dialog("Login").WinEdit("Agent Name:").Type  micTab
          Dialog("Login").WinEdit("Password:").SetSecure DataTable("pwd", dtLocalSheet)
          Dialog("Login").WinButton("OK").Click
End If

If  Dialog("Login").Dialog("Flight Reservations").Exist(2) Then
          Dialog("Login").Dialog("Flight Reservations").Static("Incorrect password. Please try again").Output CheckPoint("Incorrect password. Please try again_3")
          Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
           Reporter.ReportEvent 1,"登录功能测试","预期输出结果为:"+expa+"实际输出结果:"+fact
    Dialog("Login").Close
 
else
        If    Window("Flight Reservation").Exist  (2) Then
              Reporter.ReportEvent micPass, "登录验证通过","用户名密码正确"
              Window("Flight Reservation").close
       End If
 End If
 


TAG: QTP qtp 登录系统

小丫头amy的个人空间 引用 删除 小丫头amy   /   2012-10-18 17:29:03
为什么datatable的值到第四行就结束了。不会执行datatable中第五行的值呢?
 

评分:0

我来说两句

日历

« 2024-05-15  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 5406
  • 日志数: 11
  • 建立时间: 2012-10-17
  • 更新时间: 2014-01-28

RSS订阅

Open Toolbar