51Testing软件测试论坛

标题: QTP在执行时，页面自动计算功能没有了 [打印本页]

作者: dgang 时间: 2007-12-5 16:24
标题: QTP在执行时，页面自动计算功能没有了
我正在用qtp8.2录web页面的脚本，在录脚本时，我在一个文本框中输入一个数据，另外一个文本框中会自动按照某种算法计算出一个数据显示出来。但我在执行脚本时，就不能自动计算并显示。
请问如何解决呢？

作者: yzem99 时间: 2007-12-5 16:32
按下回车键试试，或者点击下其他的控件。

作者: scorix 时间: 2007-12-5 17:45
模拟键盘输入

作者: dgang 时间: 2007-12-5 17:52
标题: 关注中
关注中

作者: gy21st 时间: 2007-12-5 19:58
set完成后试一下type micTab, 然后wait 1看行不行

作者: walker1020 时间: 2007-12-5 23:18
不知道楼主说的“自动计算并显示” 具体是什么含义。如果QTP没有录制相应的操作，那么你就自己写代码去检查要检查的对象吧。这时可能用到楼上的朋友说的“set完成后试一下type micTab”。

作者: dgang 时间: 2007-12-6 09:26
标题: 继续关注
谢谢楼上两位朋友，但我的水平实在很差，“set完成后试一下type micTab”这句话是什么意思呀？“自动计算并显示”指的是当在执行脚本时，当脚本自动将数据填入文本框时，另外一个有自动计算功能的文本框中什么都不显示出来。当我录脚本时，手工输入时，就会自动计算并显示出来。

作者: 板砖 时间: 2007-12-6 09:36
用type 命令试试

作者: xiaoyaoke 时间: 2007-12-6 10:07
明确你手工输入时候需不需要输完数字后按回车键
如果需要回车键，那好：type micTab在输入之后
如果不需要就直接使用type模拟键盘输入

作者: scorix 时间: 2007-12-6 10:58
WebEdit要用WshShell.SendKeys

作者: dgang 时间: 2007-12-6 12:18
标题: Type方法报错
这是我的代码，按楼上朋友说的将“set”改为了“Type”（红色的字）但当执行到含有Type的语句时，就会报“对象不支持此属性或方法的错误”，该如何解决呀？

Browser("计划统计").Page("计划统计").WebEdit("username").Set "bq"
Browser("计划统计").Page("计划统计").Image("img_yj_dl_17").Click
Browser("计划统计").Page("综合管理系统").Image("img_yj_01").FireEvent "onmouseover"
Browser("计划统计").Page("综合管理系统").Image("img_yj_01").Click
Browser("计划统计").Page("计划统计_2").Frame("leftframe").Link("季度销售计划").Click
Browser("计划统计").Page("计划统计_2").Frame("index_up").Image("add").Click
Browser("本企业产量构成").Page("本企业产量构成").WebList("TB_GH_JDXSJH_LDATA__C_JD").Select "第一季度"
Browser("本企业产量构成").Page("本企业产量构成").WebList("TB_GH_JDXSJH_LDATA__C_TBDW").Select "公司"
Browser("本企业产量构成").Page("本企业产量构成").WebList("TB_GH_JDXSJH_LDATA__C_XMMC").Select "GDFA"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__C_JLDW").Set "d"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_QNSCJH").Type "5"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMJHL").Type "6"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMYJW").Set "7"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_FYAPDYY").Set "8"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_FYAPDEY").Set "9"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_FYAPDSY").Set "10"
Browser("本企业产量构成").Page("本企业产量构成").Image("img_baocun_02").Click
Browser("本企业产量构成").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("本企业产量构成").Page("本企业产量构成_2").Sync
Browser("本企业产量构成").Close
Browser("计划统计").Page("计划统计_2").Sync
Browser("计划统计").Close

作者: walker1020 时间: 2007-12-6 21:50
9# 朋友的意思是：在操作之后需要增加 WshShell.SendKeys 语句或 type micTab，以实现回车的功能。由于你把set 改为Type后，QTP报告“对象不支持此属性或方法的错误”，那么你还是用原来的 Set 方法吧

作者: scorix 时间: 2007-12-6 22:46
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_QNSCJH").set ""
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_QNSCJH").FireEvent("onfocus")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "5"
WshShell.SendKeys "{ENTER}" '不需要回车请注释这行
Wait 2
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMJHL").set""
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMJHL").FireEvent("onfocus")
WshShell.SendKeys "6"
WshShell.SendKeys "{ENTER}" '不需要回车请注释这行
Wait 2
Set WshShell = Nothing

作者: walker1020 时间: 2007-12-7 00:16
楼主可以试试 scorix 在 12# 提供的代码，这个方法应该可行。

作者: walker1020 时间: 2007-12-7 00:16
非常感谢 scorix 的热情帮助！论坛需要这样热心的朋友

作者: dgang 时间: 2007-12-7 10:03
标题: 非常感谢
谢谢scorix朋友的帮助，按照你的方法，问题已经解决了。
真是高手呀，不！是高手！高手！高高手！
51testing真是个好地方，以后要常来，这里面的高手太多了！

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