晶晶 发表于 2006-1-26 10:52:40

请教:QTP是否录制不了使用回车键查询的功能?

如图示:须先输入证号,按enter 后显示人员信息,然后才能录入其它操作。
但回放后出错,无法查询到人员信息。
请问如何解决呢?

[ 本帖最后由 晶晶 于 2006-1-26 11:03 编辑 ]

每天喝水 发表于 2006-1-26 12:41:31

你的问题描述不清!
首先,回车是可以被录制的。
其次,从截图上看,登陆界面应该有几个必填项目,不知道你是否都填写了。
最后,WEB的反应时间不是立即的。可能是由于延时所引起的。加上个等待函数或其它的什么应该就可以了。

要是再不行,那就靠运气吧。

lovetest6 发表于 2006-1-27 20:04:58

加wait应该可以解决你的问题
wait(5)

晶晶 发表于 2006-2-4 09:33:29

加了等待函数还是不起作用

yangkinki 发表于 2006-2-4 11:37:32

你在weblist中增加的项目是否是d1003,如果这个项目是动态的,可能会识别不了,最好是能提供出你录制的脚本,方便各位给你提供详细的帮助

晶晶 发表于 2006-2-4 12:05:08

Browser("系统登录").Page("系统登录").Image("space").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("left").Image("menu_02").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("left").Link("补偿管理").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Set "d1003"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Submit
wait(10)
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("personoid").Select "d1003"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Select "1|门诊"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Select "2|普通门诊"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Select "3|体格检查"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Select "4|预防接种"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Select "5|门诊特殊疾病补偿"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Select "6|其他"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Select "7|住院"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("hospitalEdit").Set "001|乡镇卫生院"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("amount").Set "5000"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("invoiceNo").Set "1004"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("invoiceNo").Submit
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("typeoid").Submit
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("personoid").Submit
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("amount").Submit
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("hospitalEdit").Submit
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("cdate").Set "20050203"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("diseaseTypeEdit").Set "A|传染病计"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("beginDate").Set "20050101"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("enddate").Set "20050206"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebButton("确 定").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M|门诊"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M001|挂号费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M002|门诊检查费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M003|门诊输液费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M004|门诊诊疗费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M005|门诊治疗费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M009|门诊输血费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "M010|门诊其它费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "Z|住院"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "Z001|床位费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("treatmentFeeTypeList").Select "Z002|护理费"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebEdit("invoiceItemAmount").Set "5000"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebButton("确 定_2").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebButton("保 存").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_3").WebButton("计算金额").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_4").WebButton("确认补偿").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_5").WebButton("新 建").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Sync

运行到Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Submit
出错

mstiunicon 发表于 2006-2-5 10:30:59

Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Submit
你的系统中应该是使用了放大镜这样的技术。看看“医疗证号”的输入框附近,应该会有一个图标之类的,用鼠标点击这个图标,应该可以达到和点击回车键一样的效果。不能直接点回车键,只能回避。

晶晶 发表于 2006-2-5 12:09:48

没有,只能通过回车键来查询该“医疗证号”对应的人员信息

mstiunicon 发表于 2006-2-5 15:06:44

Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Set "d1003"
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Submit
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main_2").WebList("personoid").Select "d1003"

看上面的代码,同样的一个页面却出现了两个Frame--Frame("main")Frame("main_2"),应该是中间有一个弹出页。
你试试看这样的操作:把医疗证号设这样两个编号:dl003,dl004,然后在输入框中输入dl00,直接点回车键,看会不会有一个弹出页,让你选择具体的编号。

晶晶 发表于 2006-2-6 15:15:30

由于我描述不清,以及把“医疗证号”和“人员”设成相同的名称,可能会引起大家的误解。

看以下图示应该就明白了

每天喝水 发表于 2006-2-6 18:06:37

在你那乱七八糟的要输入的代码后面在加一行:

Browser("系统登录").Page("系统登录").Image("space").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("left").Image("menu_02").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("left").Link("补偿管理").Click
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Set "d1003"

加行:
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Set micReturn

试试看吧。

晶晶 发表于 2006-2-7 09:11:35

这语句什么意思?

加了不管用啊,回放时WebEdit("ylzh")里的值变为<__MicReturn>

kai_top 发表于 2006-2-7 09:49:09

可以参考以下解决方法:
关键是:焦点在什么状态下,点击Enter
把以下这句:
Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Submit
替换成以下几句:

Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").FireEvent("onfocus")
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"


----另外个人感觉,“只能用回车进行确定”很不妥当;程序应该再提供一个按钮;试想如果一台电脑上没有键盘只有鼠标,就不方便进行操作了;所以你应该建议程序开发人员,增加这个按钮

[ 本帖最后由 kai_top 于 2006-2-7 09:56 编辑 ]

hongtang 发表于 2006-2-8 11:40:15

你增加一个键盘事件就行了!

增加一个ENTER事件 在Browser("系统登录").Page("贵阳市新型农村合作医疗信息管理系统").Frame("main").WebEdit("ylzh").Set "d1003"
之后~
:)

晶晶 发表于 2006-2-9 10:47:42

谢谢大家的帮助,问题解决了:)

yesman 发表于 2007-3-13 14:25:06

楼主,请问你是什么解决的?
我现在碰到与你类似的问题,但是按论坛中提供的各种办法都无法解决,请赐教,谢谢啦~~

yhzmw 发表于 2007-3-13 14:42:45

原帖由 晶晶 于 2006-2-9 10:47 发表
谢谢大家的帮助,问题解决了:)

这样的家伙,真的辜负了大家对你的帮助,你怎么解决的写出来啊。这样可以让更多的人受益!

dlh2002 发表于 2007-3-14 10:26:40

sdlkfj2

19thangel 发表于 2007-3-14 15:31:02

sdlkfj8 一年前的帖子......

rita.l 发表于 2007-3-15 09:20:22

郁闷,一年前的帖子都给翻出来了,又不给个答案sdlkfj9
页: [1] 2 3
查看完整版本: 请教:QTP是否录制不了使用回车键查询的功能?