QTP - Descriptive Programming

QuickTestProfessional help refers Descriptive Programming as Programmatic description. Below given few info about Descriptive Programming.

Using Object Repository
When you record an operation on an object, QuickTest adds the appropriate test object to the Object Repository. Once the object exists in the Object Repository, you can add statements in the Expert View to perform additional methods on that object. To add these statements, you usually enter the logical name of each of the objects in the object's hierarchy as the object description, and then add the appropriate method.

Descriptive Programming (Programmatic Description) Usage
Programmatic description can be very useful if you want to perform an operation on an object that is not stored in the Object Repository. You can also use programmatic descriptions in order to perform the same operation on several objects with certain identical properties, or in order to perform an operation on an object whose properties match a description that you determine dynamically during the test run.

There are two types of programmatic descriptions:

1. Static . You list the set of properties and values that describe the object directly in a VBScript statement.
2. Dynamic . You add a collection of properties and values to a Description object, and then enter the Description object name in the statement.

Using the Static type to enter programmatic descriptions directly into your statements may be easier for basic object description needs. However, in most cases, using the Dynamic type provides more power, efficiency, and flexibility.

Useful Links :
Descriptive Programming by QTP Expert Tarun Lalwani

Sample QTP code for Descriptive Programming - Dynamic

Sample QTP code for Descriptive Programming - Static

QTP - Getting INPUT objects

I wrote a qtp (Quicktest Professional) code for listing INPUT element's objects. Descriptive Programming is a feature in QTP. It is used to handle dynamic objects. I will write later about Descriptive Programming. Here below function returns particular type of objects in a web page.

Function:

 
'Calling function to list editboxes
Set ObjEditAll = ListAllWebObjects (Browser("My APP").Page("First Form"),"text")

Function ListAllWebObjects (ObjContainer,sControlType)
'  Getting all type of INPUT objects
Dim MyDescription,objEditBoxes,NoOfChildObjs,Counter,strReport
Dim sTemp, objEdit

 'Initialization
'ListAllWebObjects = Nothing
Set MyDescription = Description.Create() 
MyDescription("html tag").Value = "INPUT" 
MyDescription("type").Value = sControlType 

Set  objEditBoxes = ObjContainer.ChildObjects(MyDescription) 
NoOfChildObjs = objEditBoxes.Count 

strReport = ObjContainer.ToString() & " contains the following child object(s):" 
For Counter=0 to NoOfChildObjs-1 
  strReport = strReport & vbNewLine & objEditBoxes.Item(i).ToString() 
  set objEdit = objEditBoxes(Counter)

  sTemp = objEdit.GetROProperty ("name")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - name property", sTemp
  
  sTemp = objEdit.GetROProperty ("class")
  'sTemp = objEdit.object.ClassName
  Reporter.ReportEvent micDone, objEdit.ToString() & " - class property", sTemp
  
  sTemp = objEdit.GetROProperty ("index")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - index property", sTemp
  
  sTemp = objEdit.GetROProperty ("location")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - location property", sTemp
  
  sTemp = objEdit.GetROProperty ("html id")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - html id property", sTemp
  
  sTemp = objEdit.GetROProperty ("innerhtml")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - innerhtml property", sTemp
  
  sTemp = objEdit.GetROProperty ("outerhtml")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - outerhtml property", sTemp
  
  sTemp = objEdit.GetROProperty ("innertext")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - innertext property", sTemp
  
  sTemp = objEdit.GetROProperty ("outertext")
  Reporter.ReportEvent micDone, objEdit.ToString() & " - outertext property", sTemp
          
Next 

set ListAllWebObjects = objEditBoxes

  Reporter.ReportEvent micDone, ObjContainer.ToString() & " child objects", strReport 
End Function