[自动化测试QTP]参数化

为什么要进行数据参数化？

个人理解是为了方便我们的测试，使用参数化信息，可以为我们节省了很多代码。，以下以小飞机订票系统来说明一下参数化的用法：

'''使用SystemUtil对象的Run方法打开程序
SystemUtil.Run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

'''''登录流程
''参数化之一：用户名参数化，数据从DataTable来
'Dialog("Login").WinEdit("Agent Name:").Set DataTable("agentName", dtLocalSheet)
msgbox DataTable("agentName",dtLocalSheet)
msgbox DataTable("agentName","Action1")
msgbox DataTable("A",dtGlobalSheet)
msgbox DataTable("A","Global")
'Dialog("Login").WinEdit("Password:").SetSecure "5db392006d791cc172c6a4c8e3d99d5c1c33f3fb"
'Dialog("Login").WinButton("OK").Click
'wait 2
''Window("Flight Reservation").Close


'''''登录流程
''参数化之二：用户名参数化，数据从Environment来
Dialog("Login").WinEdit("Agent Name:").Set Environment("agentNameE") 
msgbox Environment("agentNameE")
Dialog("Login").WinEdit("Password:").SetSecure "5db3a128773e44d8fac8d81cf62f9f39f4953f5c" 
Dialog("Login").WinButton("OK").Click 
'Window("Flight Reservation").Close


''''订票流程
Window("Flight Reservation").WinObject("Date of Flight:").Type "010120"
Window("Flight Reservation").WinComboBox("Fly From:").Select "London"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Paris"
Window("Flight Reservation").WinButton("FLIGHT").Click


'参数化之三：选票信息参数化，数据从RandomNumber来
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select RandomNumber(0, 1)
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "ammy"
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close