用qtp测试用户登录

zjl2009

Dim i  '定义行号
Dim outputvalue '读取系统实际的输出值的变量
Dim  dateh '定义系统预期提示信息的变量

For  i=1 to datatable.GetSheet("Action1").getrowcount

Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Image("dl").Click 28,17

'但是我想要的是验正时弹出一个对话框来验正输入是否正确。下面一行的文本验正应该如何修改？？
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Output CheckPoint("江苏省政务和公益域名网上申报系统")'插入文本输出点
outputvalue=datatable("stamsg",dtlocalsheet) '将实际输出值赋于变量outputvalue
dateh=datatable("status",dtlocalsheet) '将预期值赋于变量dateh

If  outputvalue<>dateh Then
  Reporter.ReportEvent  1, "登录功能测试", "预期值为 " &dateh & " 实际值为" &outputvalue
End If
datatable.GetSheet("Action1").setnextrow '获取action1中的下一行数据
Next

Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务域名网上申报系统").Frame("menu").Link("退出系统").Click
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Sync
Browser("江苏省政务和公益域名网上申报系统").Close

ALEN灬chen

上楼和上上楼说得很有道理，我也遇到难点，不过你只是提出个问题，有人能给个解决方案吗，期待...

dftx511619

原帖由 liuxl 于 2009-11-30 17:54 发表
这样的脚本明显复用度是不够的，如果登录成功了怎么办呢？
还有不明白lz到底想问问题还是想让大家参考你的脚本呢？

此楼正解！  楼主还需 多多学习， 努力提高啊！ 加油！
测试之路 虽然很艰辛， 但是学习历程却很快乐！！

liuxl

这样的脚本明显复用度是不够的，如果登录成功了怎么办呢？
还有不明白lz到底想问问题还是想让大家参考你的脚本呢？

prince198509

对跳出的文本框里面的内容先获取，在做检查点，哈哈

prince198509

在跳出文本框之后，先获取文本框里面的static的提示内容，然后与你的datatable表中的预期值做比较，

zjl2009

不是的，你说的代码都不用修改，我说的意思是当有用户登录时，在不符合条件的情况下 ，会弹出一个对话框来说明，如：请输入用户名。我想问在弹出的对话框中怎么样做文本检查？？我把预期值和实际输出值都放在datatable中的。

要改的可以是这句话：
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Output CheckPoint("江苏省政务和公益域名网上申报系统")'插入文本检查点

testlab

outputvalue=datatable("stamsg",dtlocalsheet) '将实际输出值赋于变量outputvalue
为何你的实际输出值是在datatable中的?我没看到你之前有output

月上百合

弱弱的问一句，outputvalue=datatable("stamsg",dtlocalsheet) '将实际输出值赋于变量outputvalue
dateh=datatable("status",dtlocalsheet) '将预期值赋于变量dateh

If  outputvalue<>dateh Then
  Reporter.ReportEvent  1, "登录功能测试", "预期值为 " &dateh & " 实际值为" &outputvalue
End If
datatable.GetSheet("Action1").setnextrow '获取action1中的下一行数据
Next

Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务域名网上申报系统").Frame("menu").Link("退出系统").Click
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Sync
Browser("江苏省政务和公益域名网上申报系统").Close
这段话要写在哪里？在哪里修改