QTP自传之描述性编程

2023-07-18 16:12:52

描述性编程，即采用描述性的语言定位对象，不需要事先将对象添加到对象库中。下面，就说说如何使用描述性编程，我们将继续使用对象库编程中的网页。

使用描述性编程的两种方法

直接描述

对象("属性名:=属性值","属性名:=属性值"...)

这种方式很形象很好记，比方说要去找个人，就叫张三吧，用上面的公式就是这样。

人("名字:=张三")

如果有多个叫张三的人，可以更具体的描述出特征。

人("名字:=张三","性别:=男","身高:=175CM"...)

通过说出张三的这些特种，最终我们会找到他，下面是我们在对象库编程使用的代码。

Browser("web对象演示").Page("web对象演示").WebEdit("用户名").Set "test"

Browser("web对象演示").Page("web对象演示").WebEdit("邮箱").Set "11111@qq.com"

Browser("web对象演示").Page("web对象演示").WebEdit("个人介绍").Set "haha"

用描述性编程可以达到同样的效果，试试看，用户名是不是输入了test呢？

'描述性编程

Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=username").Set "test"

Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=mail").Set "11111@qq.com"

Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("class:=edit","html tag:=TEXTAREA").Set "haha"

注意，对个人介绍富文本使用了两个属性描述，通过网页源码(不想或看不到源码可以通过Spy工具查看对象属性)我们可以看到它没有name属性，而用户名和邮箱的class属性都为edit，要想定位，必须再添加唯一性的属性，这里选择html tag。

//截取的网页源码

<div class="content">

   <span>用户名</span><input type="text" name="username" class="edit">

</div>

<div class="content">

    <span>邮箱</span><input type="mail" name="mail"  class="edit">

</div>

<div class="content">

    <span>个人介绍</span><textarea rows="5" cols="20" class="edit"></textarea>

</div>

大家有没有注意，描述性编程有的时候不能直接从代码上看出所描述对象的具体用途，比如上面代码WebEdit("class:=edit","html tag:=TEXTAREA")，通过class和html tag属性描述，但是我们不知道它描述的什么对象，而对象库编程的代码WebEdit("个人介绍")，清楚的指出这是设置个人介绍输入框的值，这也算是描述性编程不足的地方吧。

Description对象方法

直接上代码

 '描述性编程description方式

 '生成description对象

 Set obj_browser=description.Create()

 Set obj_page=description.Create()

 Set obj_webedit_username=description.Create()

 Set obj_webedit_mail=description.Create()

 Set obj_webedit_textarea=description.Create()

 '设置属性值

 obj_browser("micClass").value="Browser"

 obj_page("micClass").value="Page"

 obj_webedit_username("name").value="username"

 obj_webedit_mail("name").value="mail"

 obj_webedit_textarea("html tag").value="TEXTAREA"

 Browser(obj_browser).Page(obj_page).WebEdit(obj_webedit_username).Set "test"

 Browser(obj_browser).Page(obj_page).WebEdit(obj_webedit_mail).Set "11111@qq.com"

 Browser(obj_browser).Page(obj_page).WebEdit(obj_webedit_textarea).Set  "haha"

 '释放对象

 Set obj_browser=nothing

 Set obj_page=nothing

 Set obj_webedit_username=nothing

 Set obj_webedit_mail=nothing

 Set obj_webedit_textarea=nothing

这样写看上去挺好，但当有很多相同对象的时候就会很麻烦，有100个WebEdit难道要设置100个description对象？我们可以改进代码如下

 '描述性编程description方式

 '生成description对象

 Set obj_browser=description.Create()

 Set obj_page=description.Create()

 Set obj_webedit=description.Create()

 '设置属性值

 obj_browser("micClass").value="Browser"

 obj_page("micClass").value="Page"

 obj_webedit("micClass").value="WebEdit"

 Set obj_webedits=Browser(obj_browser).Page(obj_page).ChildObjects(obj_webedit)

 obj_webedits.item().set "test"

 obj_webedits.item().set "11111@qq.com"

 obj_webedits.item().set "haha"

 '释放对象

 Set obj_browser=nothing

 Set obj_page=nothing

 Set obj_webedit=nothing

 Set obj_webedits=nothing

两种方式都已经介绍完了，第一种方式适用于一般的测试环境，第二种方式适用于基于框架的测试因其代码的复用性较高，具体的区别大家可以自己体会。下面用两种描述性编程方式重写对象库编程的代码。

 '描述性编程description方式

 '生成description对象

 Set obj_browser=description.Create()

 Set obj_page=description.Create()

 Set obj_webedit=description.Create()

 Set obj_weblist=description.Create()

 Set obj_webcheckbox=description.Create()

 Set obj_webradiogroup=description.Create()

 Set obj_webbutton=description.Create()

 Set obj_webtabe=description.Create()

 '设置属性值

 obj_browser("micClass").value="Browser"

 obj_page("micClass").value="Page"

 obj_webedit("micClass").value="WebEdit"

 obj_weblist("micClass").value="WebList"

 obj_webcheckbox("micClass").value="WebCheckBox"

 obj_webradiogroup("micClass").value="WebRadioGroup"

 obj_webbutton("micClass").value="WebButton"

 obj_webtabe("micClass").value="WebTable"

 '获取所有WebEdit对象

 Set obj_webedits=Browser(obj_browser).Page(obj_page).ChildObjects(obj_webedit)

 obj_webedits.item().set "test"

 obj_webedits.item().set "11111@qq.com"

 obj_webedits.item().set "haha"

 Browser(obj_browser).Page(obj_page).WebList(obj_weblist).Select "java"

 '获取所有WebCheckBox对象

 Set obj_webcheckboxs=Browser(obj_browser).Page(obj_page).ChildObjects(obj_webcheckbox)

 For i= to

     obj_webcheckboxs.item(i).set "ON"

 Next

 Browser(obj_browser).Page(obj_page).WebRadioGroup(obj_webradiogroup).Select "男"

 Browser(obj_browser).Page(obj_page).WebButton(obj_webbutton).Click

 '获取WebTable单元格内的值

 username=Browser(obj_browser).Page(obj_page).WebTable(obj_webtabe).GetCellData(,)

 mail=Browser(obj_browser).Page(obj_page).WebTable(obj_webtabe).GetCellData(,)

 sex=Browser(obj_browser).Page(obj_page).WebTable(obj_webtabe).GetCellData(,)

 If username="test" and mail="11111@qq.com" and sex="男" Then

     msgbox "OK"

 End If

 '释放对象

 Set obj_browser=nothing

 Set obj_page=nothing

 Set obj_webedit=nothing

 Set obj_webedits=nothing

 Set obj_weblist=nothing

 Set obj_webcheckbox=nothing

 Set obj_webradiogroup=nothing

 Set obj_webbutton=nothing

 Set obj_webcheckboxs=nothing

 Set obj_webtabe=nothing

 '描述性编程直接描述方式

 With Browser("micClass:=Browser").Page("micClass:=Page")

     .WebEdit("name:=username").Set "test"

     .WebEdit("name:=mail").Set "11111@qq.com"

     .WebEdit("class:=edit","html tag:=TEXTAREA").Set "haha"

     .WebList("micClass:=WebList").Select "java"

     .WebCheckBox("html id:=film").Set "ON"

     .WebCheckBox("html id:=game").Set "ON"

     .WebRadioGroup("micClass:=WebRadioGroup").Select "男"

     .WebButton("name:=提交").Click

     username=.WebTable("micClass:=WebTable").GetCellData(,)

     mail=.WebTable("micClass:=WebTable").GetCellData(,)

     sex=.WebTable("micClass:=WebTable").GetCellData(,)

 End With

 If username="test" and mail="11111@qq.com" and sex="男" Then

     msgbox "OK"

 End If

如何取舍

对象库编程

1.当对象的属性有更改时(例如对象name更改)，而脚本中大量引用此对象(10次，100次)，只需要更改对象库中对象的属性即可，描述性编程则需要手动更改所有涉及的代码，效率很低。

2.可以通过对象拖拽，F7等方式快速编写代码，自动生成，不容易打错。

描述性编程

1.不需要维护庞大的对象库。

2.在完成对象库编程不能完成的功能(对象不能识别的时候)

描述性编程和对象库编程各有优缺点，不能说谁好谁劣，只有在适当的时候采用适当的方法才是正理。

最好的方法就是，对象可以识别的时候就用对象库编程，不能识别的时候就用描述性编程。

码农公寓

使用描述性编程的两种方法

如何取舍

相关文章