51Testing软件测试论坛

标题: 关闭提示信息框语句没有执行？ [打印本页]

作者: hollyecho 时间: 2010-6-21 11:28
标题: 关闭提示信息框语句没有执行？
系统功能：一个简单的编辑功能
1）列表中，单击对应数据的编辑按钮，打开编辑界面
2）在编辑界面录入正常数据，单击编辑按钮，系统提示“保存成功”，单击确定按钮，关闭编辑界面，返回列表
3）在编辑界面录入异常数据，单击编辑按钮，系统提示保存不成功的原因，单击确定按钮，返回编辑界面

脚本如下：
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","http://10.20.56.32:8023/Login.aspx","C:\Documents and Settings\Administrator","open"
Browser("登录").Page("登录").WebEdit("txtPassword").SetSecure "4c1ed3ffc6b1a204778774826f92e90b9d5480011529e220ef32"
Browser("登录").Page("登录").WebEdit("txtName").Set "zhangwei"
Browser("登录").Page("登录").WebButton("登录").Click
‘-------------------------------------------’
Browser("登录").Page("家庭信息化管理系统工作台").Link("信息管理").Click
Browser("登录").Page("汕头移动家庭信息化管理系统").Link("业务类型").Click
Browser("登录").Page("业务类型").Image("ctl00$ctl00$idAll$idList$Smart").Click 2,7
Browser("登录").Page("业务类型").Sync
Browser("业务类型编辑").Page("业务类型编辑").WebEdit("ctl00$idFormMain$SmartFormView").Set DataTable("业务名称", dtLocalSheet)
Browser("业务类型编辑").Page("业务类型编辑").WebButton("保存").Click
Browser("业务类型编辑").Dialog("Microsoft Internet Explorer").Static("保存成功！").Check CheckPoint("保存成功！")
Browser("业务类型编辑").Dialog("Microsoft Internet Explorer").WinButton("OK").Click

'如果不是正常保存，有提示消息框
If (Browser("业务类型编辑").Page("业务类型编辑").WebButton("保存").Exist) Then
Browser("业务类型编辑").Page("业务类型编辑").WebButton("name:=关闭").Click
End If

‘-------------------------------------------’

Browser("登录").Page("业务类型").Sync
Browser("登录").Close

以上是没有进行分割的脚本，当录入正常数据，编辑界面自动关闭，此时QTP运行到红色字体部分，会等待很久，但基本上可以顺利执行

分割后，分割成登录、修改、退出三个部分后，虚线表示分割
设置修改的ACTION循环次数

分割后执行，第一次循环是正常数据，QTP执行到红色字体部分后，等待很久后，再做下一个循环（异常数据），就报其他对象找不到了
[attach]63110[/attach]

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)