QTP - Pemrograman Deskriptif

Skrip QTP dapat dijalankan hanya jika objek ada di Object Repository. Deskripsi Objek dibuat menggunakan pemrograman Deskriptif -

Saat penguji ingin melakukan operasi pada objek yang tidak ada di repositori objek
Saat objek dalam aplikasi bersifat sangat dinamis.
Ketika Object Repository tumbuh besar, itu menghasilkan Kinerja yang buruk karena ukuran Object Repository meningkat.
Ketika framework dibuat, sehingga telah diputuskan untuk tidak menggunakan Object Repository sama sekali.
Saat penguji ingin melakukan tindakan pada aplikasi pada waktu proses tanpa memiliki pengetahuan tentang properti unik objek.

Sintaksis

Ada dua cara untuk membuat skrip menggunakan teknik Pemrograman Deskriptif. Mereka adalah -

Deskripsi Objek
Deskripsi String

Deskripsi Objek

Script dikembangkan menggunakan Description Objects yang bergantung pada properti yang digunakan dan nilainya yang sesuai. Kemudian, deskripsi ini digunakan untuk membuat skrip.

'Creating a description object
Set btncalc = Description.Create()

'Add descriptions and properties
btncalc("type").value = "Button"
btncalc("name").value = "calculate"
btncalc("html tag").value = "INPUT"

' Use the same to script it
Browser("Math Calc").Page("Num Calculator").WebButton(btncalc).Click

Deskripsi String

Deskripsi objek dikembangkan menggunakan properti dan nilai sebagai string seperti yang ditunjukkan di bawah ini.

Browser("Math Calc").Page("Num Calculator").WebButton("html 
tag:=INPUT","type:=Button","name:=calculate").Click

Objek Anak

QTP menyediakan metode ChildObjects, yang memungkinkan kita untuk membuat kumpulan objek. Objek induk mendahului ChildObjects.

Dim oDesc
Set oDesc = Description.Create
oDesc("micclass").value = "Link"

'Find all the Links
Set obj = Browser("Math Calc").Page("Math Calc").ChildObjects(oDesc)

Dim i
'obj.Count value has the number of links in the page

For i = 0 to obj.Count - 1	 
   'get the name of all the links in the page			
   x = obj(i).GetROProperty("innerhtml") 
   print x 
Next

Pengenal Ordinal

Pemrograman deskriptif digunakan untuk menulis skrip berdasarkan pengidentifikasi ordinal, yang akan memungkinkan QTP untuk bertindak pada objek tersebut ketika dua atau lebih objek memiliki properti yang sama.

' Using Location
Dim Obj
Set Obj = Browser("title:=.*google.*").Page("micclass:=Page")
Obj.WebEdit("name:=Test","location:=0").Set "ABC"
Obj.WebEdit("name:=Test","location:=1").Set "123"
 
' Index
Obj.WebEdit("name:=Test","index:=0").Set "1123"
Obj.WebEdit("name:=Test","index:=1").Set "2222"
 
' Creation Time
Browser("creationtime:=0").Sync
Browser("creationtime:=1").Sync
Browser("creationtime:=2").Sync