TEst script sample

File1****************OPEN DATABASE CONNECTION AND READ ALL THE RECORDS *************
Dim oConn, rs, sql, result
result = ""
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft ODBC for Oracle};UID=scott;PASSWORD=tiger;SERVER=orahome;"
set rs=CreateObject("ADODB.recordset")
sql = "SELECT empno, ename, sal, job from emp where job = 'MANAGER' order by empno"
rs.Open sql, oConn
rs.MoveFirst
While not rs.eof
result = rs.Fields.Item(0)'Field that you want
rs.movenext
msgbox (result)
Wend
rs.close
oConn.close
File2***********INSERT SYNCHRONIZATION POINT DURING RECORDING****************
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"
Dialog("Login").WinEdit("Agent Name:").Set "jojo"
Dialog("Login").WinEdit("Password:").SetSecure "472896762adc9fc1d152d9daba8c13da6f833e56"
Dialog("Login").WinButton("OK").Click
Window("Window").WinToolbar("Running Applications").WaitProperty "enabled", 1, 20000
Window("Flight Reservation").Activate
Window("Flight Reservation").WinObject("Date of Flight:").Type "010109"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").Activate
Window("Flight Reservation").WinEdit("Name:").Set "prat"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Window").WinToolbar("Running Applications").WaitProperty "enabled", 1, 30000
Window("Flight Reservation").WinButton("Button").Click
'Synchronization point: To define the time mapping between the QTP and application, we use this concept. If we dont want to perform any operation until an object in our application achieves certain status then we can insert
'synchronization point to instruct QTP to pause the test until the object getting the certain value
FILE3************************DESCRIPTIVE STATIC PROGRAMMING***********************
Dialog("Title:=Login").WinEdit("AttachedText:=Agent Name:").Set "mercury"
Dialog("Title:=Login").WinEdit("AttachedText:=Password:").SetSecure"471a551993659d997ef82be92c753bc43ad5ee89"
Dialog("Title:=Login").WinButton("Text:=OK").Click
Window("Title:=Flight Reservation").WaitProperty "enabled", 0, 10000
Window("Title:=Flight Reservation").ActiveX("acx_name:=MaskEdBox").Type "080808"
Window("Title:=Flight Reservation").WinComboBox("attached text:=Fly From:").Select "Frankfurt"
Window("Title:=Flight Reservation").WinComboBox("attached text:=Fly To:").Select "London"
Window("Title:=Flight Reservation").WinButton("text:=FLIGHT").Click
Window("Title:=Flight Reservation").Dialog("title:=Flights Table").WinButton("text:=OK").Click
Window("Title:=Flight Reservation").Activate
Window("Title:=Flight Reservation").WinEdit("attached text:=Name:","focused:=True").Set "test"
Window("Flight Reservation").WinButton("text:=&Insert Order").Click
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
FILE4**************************CALLING FUNCTIONS*************************
SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dim uid
uid ="user"
call flt_login(uid)
call flt_createorder(uid)
SystemUtil.CloseProcessByWndTitle "Flight Reservation"
FILE5*********************FUNCTION.VBS FILE**********************FUNCTION DEFINITION************
Function flt_login(aa)
Dialog("Login").WinEdit("Agent Name:").Set aa
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure "4728dc3daf8caff96e25982256ea4d03596b6cbf"
Dialog("Login").WinButton("OK").Click
End Function
Function flt_CreateOrder(aa)
Window("Flight Reservation").WinObject("Date of Flight:").Type "010109"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
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 aa
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").WinButton("Button").Click
End Function
FILE6*****************REPORT EVENT AND INTRODUCING CHECKPOINT THROUGH PROGRAMMING*********
******************START END TRANSACTION********************
Dialog("Login").WinEdit("Agent Name:").Set "mercury"
Dialog("Login").WinEdit("Password:").Set "mercury"
Dialog("Login").WinButton("OK").Click
If Dialog("Login").Dialog("Flight Reservations").Exist Then
Reporter.ReportEvent micFail, "Password", "Incorrect Password is Supplied. Exiting the test"
End If
'CHECKPOINT TO CHECK WHETHER WINDOW EXISTS OR NOT
If Window("Flight Reservation").Exist Then
Services.StartTransaction "Order"
Services.StartTransaction "MeasureCreateOrder"
Reporter.ReportEvent micPass, "Password", "Correct Password is Supplied. Continueing the test"
Window("Flight Reservation").ActiveX("MaskEdBox").Type "080808"
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 "tester"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "3"
Window("Flight Reservation").WinButton("Insert Order").Click
Services.EndTransaction "Order"
Window("Flight Reservation").WaitProperty "enabled", 1, 10000
Window("Flight Reservation").WinButton("Button").Click
'Services.EndTransaction "MeasureCreateOrder"
End If
FILE7********************DYNAMIC DESCRIPTIVE PROGRAMMING************
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"
Dialog("Login").WinEdit("Agent Name:").Set "jojo"
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure "47290f08700672b09e55dc0c97033b5d1161ab1a"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Activate
Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."
'Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "ON"
'Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").Set "ON"
'Window("Flight Reservation").Dialog("Open Order").Click 22,147
Set mydescription=Description.Create()
mydescription("Class Name").value="WinCheckBox"
Set Checkboxes = window("text:=FLight Reservation").dialog("text:=Open Order").ChildObjects(mydescription)
a=Checkboxes.count
msgbox(a)
Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"