软件测试 飞机票的订购系统,QTP自带飞机订票系统的测试_登录测试

'登录部分

Dim i      '定义行号

For i=1 to datatable.GetSheet("Action1").getrowcount

Dialog("Login").WinEdit("Agent Name:").Set DataTable("name", 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

'在 text 与 =  号之间还有一个冒号 ：

Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

End If

Next

'主界面部分

Window("Flight Reservation").ActiveX("MaskEdBox").Type "090925"

Window("Flight Reservation").WinComboBox("Fly From:").Select "London"

Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"

Window("Flight Reservation").WinButton("FLIGHT").Click

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "12488   LON   08:00 AM   FRA   08:45 AM   AA     $105.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").WinButton("Button").Click

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"