请教一个QTP测试添加成功的脚本

bowen601

Browser("商企平台").Page("商企平台").Frame("leftmenu").Link("合作伙伴").Click
Browser("商企平台").Page("商企平台").Frame("leftmenu").Link("合作伙伴管理").Click
Browser("商企平台").Page("商企平台").Frame("content").Image("B_add").Click
Browser("商企平台").Page("商企平台").Frame("content_2").WebEdit("partnerInfo.partnerName").Set "QTPTESTn"
Browser("商企平台").Page("商企平台").Frame("content_2").WebEdit("partnerInfo.partnerShortName").Set "QTPTESTn"
Browser("商企平台").Page("商企平台").Frame("content_2").WebEdit("partnerInfo.partnerEname").Set "QTPTESTn"
Browser("商企平台").Page("商企平台").Frame("content_2").WebEdit("partnerInfo.partnerAccount").Set "QTPTESTn"
Browser("商企平台").Page("商企平台").Frame("content_2").WebList("partnerInfo.partnerType").Select "应用提供商"
Browser("商企平台").Page("商企平台").Frame("content_2").WebList("partnerInfo.partnerCallingType").Select "旅行社"
Browser("商企平台").Page("商企平台").Frame("content_2").WebEdit("partnerInfo.partnerLinkman").Set "QTPTESTn"
Browser("商企平台").Page("商企平台").Frame("content_2").WebEdit("partnerInfo.partnerLinkmanTel").Set "1111111"
Browser("商企平台").Page("商企平台").Frame("content_2").WebButton("提 交").Click
Browser("商企平台").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
————————————————————————————————————————————————————————————
下面需要检查数据是否添加成功，如果添加的数据在列表页面存在，弹出“添加成功”对话框
请教下后面的脚本这么写,数据列表页面分页显示，每页显示10条，添加的数据随即显示在某一页

[ 本帖最后由 bowen601 于 2008-12-31 10:05 编辑 ]

david208

如果是webtable的列表，
用webtable().object.ChildItem (Row, Column, MicClass, Index)来取值吧，然后和你预期输入比较。然后msgbox("").
不知道理解对你的意思没,做测试就怕需求搞不清，以前不明白这个道理，工作后明白了。

bowen601

好的，我试试，谢谢你了

helius

Cou=Browser("商企平台").Page("商企平台").Frame("leftmenu").webtabel().RowCount
For i=1 to Cou
Text=Browser("商企平台").Page("商企平台").Frame("leftmenu").webtabel().GetCellData(i,列数)
if trim(Text)="QTPTESTn" then
msgbox "添加成功!所在行数
i=Cou
end if
Next

happychap

不太清楚题意，不过我一般都是通过查询数据库来确定添加是否成功，至于添加成功后是否显示正确，用Helius所说的方法试试吧。

centurystone

两种方法都可以实现，我更喜欢查询数据库来判断，原因是页面表格有可能会有跨页显示的情况，而通过数据库查询更简单直接

zhangxinnow

设置数据库检查点。