51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2049|回复: 3
打印 上一主题 下一主题

[原创] 在线等qtp测试用户登录界面

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-3-29 17:37:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Option explicit
Dim i
Dim outputvalue
Dim istatus
Dim datastr
Dim username
Dim password
Dim error_message

datastr ="f:\\test.xls"
datatable.AddSheet ("testdata")
datatable.ImportSheet  datastr,sheet1,testdata
For i=1 to datatable.GetSheet ("testdata").getrowcount
username=datatable.Value ("username","testdata")
password=datatable.Value ("password","testdata")
Browser("欢迎使用 | 科海考勤管理系统").Page("欢迎使用 | 科海考勤管理系统").WebEdit("UserName").Set username
Browser("欢迎使用 | 科海考勤管理系统").Page("欢迎使用 | 科海考勤管理系统").WebEdit("UserPwd").Set password
Browser("欢迎使用 | 科海考勤管理系统").Page("欢迎使用 | 科海考勤管理系统").Image("btn_1").Click
if  Browser("欢迎使用 | 科海考勤管理系统").Dialog("Windows Internet Explorer").Exist(1)  then
error_message=Browser("欢迎使用 | 科海考勤管理系统").Dialog("Windows Internet Explorer").GetROProperty("text")


outputvalue=error_message
istatus=datatable("status",testdata)

if outputvalue<>istatus then
reporter.ReportEvent 1,"登录功能测试","预期值为:"+istatus+",实际值为:"+outputvalue
end if
Browser("欢迎使用 | 科海考勤管理系统").Dialog("Windows Internet Explorer").WinButton("确定").Click
datatable.GetSheet("testdata").setnextrow
end if
Next
Browser("欢迎使用 | 科海考勤管理系统").Page("欢迎使用 | 科海考勤管理系统_2").Frame("topFrame").Link("退出").Click
Browser("欢迎使用 | 科海考勤管理系统").Page("欢迎使用 | 科海考勤管理系统_3").Sync
Browser("欢迎使用 | 科海考勤管理系统").Close



大家帮我看一下为什么会提示sheet1是未知变量?
另外,从外部excel导入到datatable中,文本输出点是不是跟在本地表中是一样的建?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-3-29 17:48:36 | 只看该作者
datatable.ImportSheet  datastr,sheet1,testdata
sheet1,testdata 都没定义,当然是未知的。
做值需要加双引号
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2010-3-30 10:02:09 | 只看该作者
http://bbs.51testing.com/thread-120617-1-1.html
这个帖子或许会对LZ有所帮助。
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2010-4-6 13:47:38 | 只看该作者
我去看看帖子去,看看能否解决我的问题

[ 本帖最后由 angle-ying 于 2010-4-6 13:50 编辑 ]
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-9 03:22 , Processed in 0.076209 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表