51Testing软件测试论坛

标题: 在线等qtp测试用户登录界面 [打印本页]

作者: fbs19871014 时间: 2010-3-29 17:37
标题: 在线等qtp测试用户登录界面
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中，文本输出点是不是跟在本地表中是一样的建？

作者: skyzhu 时间: 2010-3-29 17:48
datatable.ImportSheet datastr,sheet1,testdata
sheet1,testdata 都没定义，当然是未知的。
做值需要加双引号

作者: shotstar 时间: 2010-3-30 10:02
http://bbs.51testing.com/thread-120617-1-1.html
这个帖子或许会对LZ有所帮助。

作者: angle-ying 时间: 2010-4-6 13:47
我去看看帖子去，看看能否解决我的问题

[ 本帖最后由 angle-ying 于 2010-4-6 13:50 编辑 ]

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