51Testing软件测试论坛

标题: 用qtp测试用户登录问题。。。急，弄了二天了 [打印本页]

作者: ALEN灬chen 时间: 2009-12-14 17:25
标题: 用qtp测试用户登录问题。。。急，弄了二天了
Dim outputvalue '读取系统实际的输出值的变量
Dim  dateh '定义系统预期提示信息的变量

Browser("网银申报系统").Page("网银申报系统").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("网银申报系统").Page("网银申报系统").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("网银申报系统").Page("网银申报系统").WebElement("WebButton").Click

'但是我想要的是验正时弹出一个提示层来验正输入是否正确。下面一行的文本验正应该如何修改？？
Browser("网银申报系统").Page("网银申报系统").WebElement("请输入正确的用户名")Output CheckPoint("请输入正确的用户名")'插入文本输出点
outputvalue=datatable("stamsg",dtlocalsheet) '将实际输出值赋于变量outputvalue
dateh=datatable("status",dtlocalsheet) '将预期值赋于变量dateh

If  outputvalue<>dateh Then
  Reporter.ReportEvent  1, "登录功能测试", "预期值为 " &dateh & " 实际值为" &outputvalue
　Browser("网银申报系统").Close
End If
Browser("网银申报系统").Page("网银申报系统").Frame("menu").Link("退出系统").Click
Browser("网银申报系统").Page("网银申报系统").Sync
Browser("网银申报系统").Close

以上是脚本代码
我如果是正确的帐号和密码，运行到检查点那行就出错了，请怎样做到，输入正确的可以运行，错误的也可以运行呢

作者: 欣苓木子 时间: 2009-12-14 17:43
呵呵，既然自动化做不来，何不用手动呢，手动测试操作起来哪会这么麻烦

作者: ALEN灬chen 时间: 2009-12-14 17:53
晕...不能因为不会，就不去做，而且自动化测试是趋势，快点来高手help me

[ 本帖最后由 ALEN灬chen 于 2009-12-14 17:56 编辑 ]

作者: 欣苓木子 时间: 2009-12-14 18:36
我只想说，自动化测试永远替代不了手动测试
自动化只能在某个地方起作用，当然，学点自动化当然是好的

作者: ermine 时间: 2009-12-14 18:58
什么样的错误？

作者: dana09 时间: 2009-12-14 19:55
菜鸟飘..帮顶

作者: jonsonzhang123 时间: 2009-12-14 21:34
Browser("网银申报系统").Page("网银申报系统").WebEdit("password").Set DataTable("password", dtLocalSheet)

Browser("网银申报系统").Page("网银申报系统").WebElement("请输入正确的用户名")Output CheckPoint("请输入正确的用户名")'插入文本输出点
'这句话什么意思，把实际值输出到"请输入正确的用户名"?你的表列名有没有弄错？

作者: maclehappy13 时间: 2009-12-14 22:04
我不是很明白你的问题,但你那个检查点在用正确的用户名、密码登录时，不会提示"请输入正确的用户名"，我认为这就是你的问题。
解决办法：在IF那里加ELSE，把检查点放到ELSE里，你的问题应该就解决了。

作者: yanfang84 时间: 2012-11-19 16:39
你的问题解决了吗？怎么解决的？

作者: fengerapple 时间: 2013-1-25 18:18
Thank you very much for sharing!The good man!The good life of peace!

作者: 491623644 时间: 2013-3-24 21:31
我也遇到这样的问题了

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