MyException - 我的异常网
当前位置:我的异常网» Web前端 » QTP范例——系统登陆界面

QTP范例——系统登陆界面

www.MyException.Cn  网友分享于:2013-11-24  浏览:66次
QTP实例——系统登陆界面
'登陆系统
Browser("XX系统").Page("XXpage").WebEdit("WebEdit").Set DataTable("userName", dtGlobalSheet)'输入用户名
Browser("XX系统").Page("XXpage").WebEdit("WebEdit_2").Set DataTable("passWord", dtGlobalSheet) '输入密码

'输入验证码
Dim input
input = Inputbox("请输入验证码:")
Browser("XX系统").Page("XXpage").WebEdit("WebEdit_3").Set input

'点击登陆按钮
Browser("XX系统").Page("XXpage").WebElement("WebElement").Click

'用户登陆——测试用例脚本
Dim expected,username,password
expected=DataTable.RawValue("Expected",dtGlobalSheet)'获取期望值
username=DataTable.RawValue("userName",dtGlobalSheet)'获取userName的数据
password=DataTable.RawValue("passWord",dtGlobalSheet)'获取passWord的值

'如果给定的数据为空,则只检查提示语
If username<>"" and password<>"" Then
	If expected="pass" Then'如果期望值为ok,则说明登陆成功
		Reporter.ReportEvent micPass,"用户名:"&(DataTable.RawValue("userName",dtGlobalSheet)&",密码:"&DataTable.RawValue("passWord",dtGlobalSheet))," 正确用户名或密码,登录成功"
	elseif expected="fail" then '如果期望值为no,则继续判断登录处理
		Reporter.ReportEvent micDone,"用户名:"&(DataTable.RawValue("userName",dtGlobalSheet)&",密码:"&DataTable.RawValue("passWord",dtGlobalSheet))," 用户名或密码错误,登录失败"
		Browser("XX系统").Dialog("来自网页的消息").WinButton("确定").Click '点击提示框中的确定按钮
	else
		reporter.ReportEvent micDone, "else brach", "数据源Expected中有除pass或fail以外的其它值!"
	End If
else
	If expected="pass"  Then
		Reporter.ReportEvent micFail,"用户名:"&(DataTable.RawValue("userName",dtGlobalSheet)&",密码:"&DataTable.RawValue("passWord",dtGlobalSheet))," 数据为空,不能登陆成功"
	elseif expected="fail" then
		If username="" Then
			reporter.ReportEvent micDone, "empty userName", "用户名不能为空"
			Browser("XX系统").Dialog("来自网页的消息").WinButton("确定").Click '点击提示框中的确定按钮
		else
			reporter.ReportEvent micDone, "empty password", "密码不能为空"
			Browser("XX系统").Dialog("来自网页的消息").WinButton("确定").Click '点击提示框中的确定按钮
		End If
	else
		reporter.ReportEvent micDone, "else brach", "数据源Expected中有除pass或fail以外的其它值!"
	End If
End If

'关闭窗口
Browser("XX系统").Page("XXpage").Sync
Browser("XX系统").CloseAllTabs 
 

文章评论

程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
程序员必看的十大电影
程序员必看的十大电影
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
每天工作4小时的程序员
每天工作4小时的程序员
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
我是如何打败拖延症的
我是如何打败拖延症的
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
程序员的鄙视链
程序员的鄙视链
我的丈夫是个程序员
我的丈夫是个程序员
漫画:程序员的工作
漫画:程序员的工作
鲜为人知的编程真相
鲜为人知的编程真相
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
为什么程序员都是夜猫子
为什么程序员都是夜猫子
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
总结2014中国互联网十大段子
总结2014中国互联网十大段子
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
10个调试和排错的小建议
10个调试和排错的小建议
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
一个程序员的时间管理
一个程序员的时间管理
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
编程语言是女人
编程语言是女人
中美印日四国程序员比较
中美印日四国程序员比较
程序员和编码员之间的区别
程序员和编码员之间的区别
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
老程序员的下场
老程序员的下场
Java程序员必看电影
Java程序员必看电影
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
程序员都该阅读的书
程序员都该阅读的书
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有