|
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOperatorID").Output CheckPoint("txtOperatorID")
'必添项检查
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("确 定").Click
Browser("后台管理系统").Dialog("Windows Internet Explorer").Static("- 必须输入原密码! - 必须输入新密码!").Check CheckPoint("- 必须输入原密码! - 必须输入新密码! - 必须输入确认新密码!")
Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
For i=1 to Datatable.GetRowCount
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").SetSecure DataTable("Old_password", dtLocalSheet)
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").SetSecure DataTable("New_password", dtLocalSheet)
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").SetSecure DataTable("Confirm_newpassword", dtLocalSheet)
a= Browser("后台管理系统").Dialog("Windows Internet Explorer").Static
Select Case a
'原密码不正确
Case "-原密码错误!" break
'原密码正确,新密码与确认密码不一致
Case a="- 两次输入的新密码不同!" break
'原密码正确,新密码与确认密码一致
Case a= "- 密码修改成功!" break
End Select
Browser("社区综合服务平台后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
datatable.localSheet.SetNextRow
Next
'关闭窗体
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("取 消").Click
页面是一个密码修改页面,当修改不能成功时,会弹出各种不同信息提示的对话框,图片见下:
我是个qtp新手,我的问题在
a= Browser("后台管理系统").Dialog("Windows Internet Explorer").Static
Select Case a
'原密码不正确
Case "-原密码错误!" break
'原密码正确,新密码与确认密码不一致
Case a="- 两次输入的新密码不同!" break
'原密码正确,新密码与确认密码一致
Case a= "- 密码修改成功!" break
End Select
我将旧密码,新密码,确认新密码都进行了参数化,并在datatable里添了能引起各种情况的值,我想通过数据表中的值,来判断应该出现什么样的信息提示,可是在上面的那段代码处,运行有问题,谁能帮我解答一下吗?
[ 本帖最后由 aishary 于 2007-9-12 16:20 编辑 ] |
|