Write a Script in QTP 9.2 to perform different actions on Flight Reservation Application

Previous

21

22

23

24

25

26

27

28

29

30

Next

We will generate a script in QTP 9.2 to invoke the Flight Reservation Application, Login into the application, Insert an order into the application and print the order number to the user, Open an Order, Update an Order, Fax an Order.

'Script to invoke the Flight Reservation Application
'Checking whether a login screen is opened

If Not Dialog("Login").Exist(0) Then
App_Path = "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
InvokeApplication App_Path
End If

'Script to login in to the Application

Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set "Testuser"
Dialog("Login").WinEdit("Password:").Set "mercury"
Dialog("Login").WinButton("OK").Click

'Script to insert an order and print the Order Number

Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("New").Click
Window("Flight Reservation").WinObject("Date of Flight:").Type "121212"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Los Angeles"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "Test user"
Window("Flight Reservation").WinButton("Insert Order").Click
Wait 8
Ord_Num = Window("Flight Reservation").WinEdit("Order No:").GetRoProperty("text")
Msgbox "The Order Number is: "&Ord_Num

'Script to Open an Existing Order
'Here we will assume that the order is already inserted

Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Open Button").Click
Window("Flight Reservation").Dialog( "Open Order").WinCheckBox("Check order").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Order Number").Set Ord_Num
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

'Script to update an existing order

Window("Flight Reservation").Activate
Window("Flight Reservation").WinObject("Date of Flight:").Type "111111"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Los Angeles"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "Test User 1"
Window("Flight Reservation").WinButton("Update Order").Click

'Script to close the Application

Window("Flight Reservation").Close

Previous

21

22

23

24

25

26

27

28

29

30

Next