不相信最佳实践，只相信在一定条件下，一些实践比其他实践更有用

全局变量的简单使用

上一篇 / 下一篇 2008-10-30 13:18:43

Action1

'DataTable("username")="admin"
'DataTable("password")="mercury"
SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open"

'使用全局变量设置，可以在全局变量中初始化值，在下面的Data Table视图里设置初始值，
'另外也可以将全局变量里的值设为空，在action里再进行赋值,如DataTable("username")="admin"，'DataTable("password")="mercury"

Action2

Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtGlobalSheet)
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure DataTable("password", dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
' If Dialog("Login").Dialog("Flight Reservations").Exist(5) Then
' Dim a
' a=Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")
' msgbox a
' reporter.ReportEvent micFail,"Step1","登陆失败"+"    "+a
' else if    Window("Flight Reservation").Exist then
'     reporter.ReportEvent micPass,"Step1","登陆成功"
'   end if
'End If
'上面这些注释的只是输出报告，没有比较
If   Dialog("Login").Dialog("Flight Reservations").Exist(5)   then
     Dim a
     a=Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")
Dim b
b=DataTable("ExpectedResult", dtGlobalSheet)
    If a=b Then
      reporter.ReportEvent micPass,"Step1","用例执行成功"
             DataTable("Result", dtGlobalSheet)="pass"
     else
          reporter.ReportEvent micPass,"Step1","用例执行失败"
          DataTable("Result", dtGlobalSheet)="fail"
   End If
End If
If window("Flight Reservation").Exist and not( Dialog("Login").Dialog("Flight Reservations").Exist(5) ) Then
    reporter.ReportEvent micPass,"Step1","用例执行成功"
DataTable("Result", dtGlobalSheet)="pass"
else
   reporter.ReportEvent micFail,"Step1","用例执行失败"
DataTable("Result", dtGlobalSheet)="fail"
end if