51Testing软件测试论坛

标题: 怎样将点击得到的日期参数化呢? [打印本页]

作者: zhengpeipei    时间: 2009-6-16 11:51
标题: 怎样将点击得到的日期参数化呢?
最近在录制一个脚本时发现这样一个问题,日期对象是通过点击得到的,怎样才能给他作参数化呢?请高手指点一下,谢谢!!!
作者: dreamever    时间: 2009-6-16 13:34
如果那个日期文本框是可编辑的话,可以采取直接对日期文本框进行赋值的方法
作者: 5555    时间: 2009-6-16 13:36
如果不能直接 webEdit().set "2009-6-16"
可以试试在订餐日期的 WebEdit对象中使用:
WebEdit().Object.innerText="2009-6-16" 或者 
WebEdit().object.value="2009-6-16"

[ 本帖最后由 5555 于 2009-6-16 13:37 编辑 ]
作者: zhengpeipei    时间: 2009-6-16 14:03
标题: 回复3#的帖子
Browser("thaiharvest").Page("thaiharvest_2").Frame("main_iframe").WebEdit("orderTime1").Click
Browser("thaiharvest").Page("thaiharvest_2").Frame("Frame").WebElement("WebTable").Click
不能直接输入,这是录制日期的脚本。该怎样改呢?
作者: zhengpeipei    时间: 2009-6-16 14:06
这个日期先要在文本框中点击一下,然后它弹出日期,我再点击需要的日期。
作者: zhengpeipei    时间: 2009-6-16 15:36

作者: gloriaxh    时间: 2009-6-16 17:15
我今天刚试了两种方法都成功了

1.   'Browser("xxxx").Page("xxxxx").WebEdit("ctl00$MainContent$beginDate").Set "2009-06-18"

2. Brow.Page("xxxx").WebEdit("ctl00$MainContent$beginDate").Object.value=DataTable("start_date",dtGlobalSheet)
第二种方法是将你要录入的值写到global表里面,也就是将时间参数话
作者: liping4186    时间: 2009-6-16 18:02
楼上的能把过程写具体点吗?新手,看不太懂  谢谢
作者: 欧阳    时间: 2009-6-16 18:11
一般地这个控件会被设为不可手动输入,不过
听老鸟说过,可以在运行过程中暂时让这个日期文本框可以手动输入,就是修改一个属性,输完后再禁用就OK。
作者: dreamever    时间: 2009-6-16 23:01
原帖由 欧阳 于 2009-6-16 18:11 发表
一般地这个控件会被设为不可手动输入,不过
听老鸟说过,可以在运行过程中暂时让这个日期文本框可以手动输入,就是修改一个属性,输完后再禁用就OK。

的确,在RO或者TO里有一个属性可以设置该文本框是否可编辑,但是这也是跟代码实现有关系的.有些开发人员写代码的时候限制的比较死,连那个属性都禁止编辑,这样就没什么办法了.
作者: zhengpeipei    时间: 2009-6-17 09:47
标题: 回复7#的帖子
我试了一下,可以回放。
但是还有一个问题:输入的日期没有和当前日期比较。
本来如果我选择今天以前的日期,它会跳出一个对话框提示“日期不能早于今天”,现在用你的方法以后,这个功能就没有了。有没有什么解决办法呢?
作者: zhengpeipei    时间: 2009-6-17 09:49
请各位高手指点一下,多谢!!!
作者: zhengpeipei    时间: 2009-6-17 09:50

作者: 欧阳    时间: 2009-6-17 11:08
写if条件做判断啥的。
作者: hihotb    时间: 2009-6-17 15:46
自己改脚本判断看看
作者: lvguobin    时间: 2009-6-17 15:51
标题: 回复 11# 的帖子
1.   'Browser("xxxx").Page("xxxxx").WebEdit("ctl00$MainContent$beginDate").Set "2009-06-18"

2. Brow.Page("xxxx").WebEdit("ctl00$MainContent$beginDate").Object.value=DataTable("start_date",dtGlobalSheet)

加个判断
把弹出来的“订餐日期不能早于当前日期”这个对话框加到对象库中。object repository-->add objects to local-->点击“订餐日期不能早于当前日期”这个对话框。
Dim D1
D1=date
D2='Browser("xxxx").Page("xxxxx").WebEdit("ctl00$MainContent$beginDate").GetRoproperty("text")
Cint(D2)
if D2>D1 then '时间比当前日期还要大
window("microsoft internet explorer").winbutton("确定").click
......
else
.....
end if


或者
if window("microsoft internet explorer").exists(1)
window("microsoft internet explorer").winbutton("确定").click
else
继续你的脚本
end if
好久没写脚本了,不知道对不对。




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2