【自动化测试QTP】使用数据驱动测试实现登录功能的正相和反相测试

'++++++++脚本说明++++++++
'脚本名称：Flight_full
'脚本说明：
' 	使用数据驱动测试实现登录功能的正向和反向测试
'脚本作者：
'脚本日期：
'脚本版本：
'程序 版本：
'+++++++++++++++++++++++++

''''Action说明：使用数据驱动测试实现登录功能的反向测试

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

''''登录流程
Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").Set DataTable("password", dtLocalSheet)
Dialog("Login").WinButton("OK").Click

'验证输入合法登录成功
If  Window("Flight Reservation").Exist Then
	Reporter.ReportEvent 0,"login success","login success login success"
else
	Reporter.ReportEvent 1,"login fail","login fail login fail"
End If

'关闭订票窗口
Window("Flight Reservation").Close