51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4133|回复: 6
打印 上一主题 下一主题

[Robot] 功能测试中从datapool中读取数据的问题,只能读取第一行的数据???

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2005-4-12 09:27:56 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我在测试的时候,datapool中有几十个数据,但只能读取第一行的数据:下面是代码:
'$include "sqautil.sbh"
Sub Main
   
    Dim Result    As Integer
    Dim strOperatorid  As String
    Dim i         As Integer
    Dim dp_id     As Long
    Dim dp_Result as Long
    Dim x         as Integer
    'Initially Recorded: 2005-3-17  17:27:16
    'Script Name: 添加操作员
   
   
    StartBrowser "http://192.168.1.96/index.jsp", "WindowTag=WEBBrowser"
   
    Window SetContext, "WindowTag=WEBBrowser", ""
    Browser SetFrame,"Type=HTMLFrame;HTMLId=left",""
    Browser NewPage,"",""
    HTMLImage Click, "Type=HTMLImage;Name=myTocnodeIcon10", "Coords=10,9"
    HTMLLink Click, "Type=HTMLLink;HTMLText=添加操作员", ""
    Window WMaximize, "", ""
    Browser SetFrame,"Type=HTMLFrame;HTMLId=main",""
    Browser NewPage,"HTMLTitle=添加操作员",""
    EditBox Click, "Type=EditBox;Name=operatorid", "Coords=10,8"
   
    dp_id = SQADatapoolOpen ("datapool", FALSE, SQA_DP_SEQUENTIAL, FALSE)
   
'   username = SQADatapoolFetch("datapool",1,1)
   ' username = SQADatapoolFetch(dp_id)
    dp_Result = SQADatapoolFetch (dp_id)
    while dp_Result <> sqaDpEOF

    dp_Result = SQADatapoolValue (dp_id, "operatorid", strOperatorid)
    dp_Result = SQADatapoolFetch (dp_id)
   
    inputkeys strOperatorid
    EditBox Click, "Type=EditBox;Name=realname", "Coords=11,9"
    InputKeys "dong"
    EditBox Click, "Type=EditBox;Name=password", "Coords=91,16"
    InputKeys "111"
    EditBox Click, "Type=EditBox;Name=password1", "Coords=46,11"
    InputKeys "111"
    EditBox Click, "Type=EditBox;Name=tel", "Coords=73,7"
    InputKeys "13520589320"
    EditBox Click, "Type=EditBox;Name=email", "Coords=31,7"
    InputKeys "caixw@ort.com.cn"
    RadioButton Click, "Type=RadioButton;Name=isdisabled;Index=2"
    PushButton Click, "Type=PushButton;Name=yes"
   
    Window SetContext, "Caption=Microsoft Internet Explorer", ""
    PushButton Click, "Text=确定"   
   
    wend
   
    dp_Result = SQADatapoolClose (dp_id)
  

End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏

该用户从未签到

2#
发表于 2005-5-26 13:44:39 | 只看该作者
你没有加循环呀
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2005-5-27 11:50:17 | 只看该作者

没用变量替换输入值

1。声明变量
2。用变量替换输入值
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2005-5-27 15:08:15 | 只看该作者
for j = 1 to 10
     dp = SQADatapoolOpen("i",FALSE,SQA_DP_RANDOM,FALSE)
     call sqadatapoolfetch(dp)
     call SQadatapoolvalue(dp,1,i)   ' 赋值给i
     inputkeys i
     next j
     call sqadatapoolclose(dp)
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2016-12-14 13:59
  • 签到天数: 113 天

    连续签到: 1 天

    [LV.6]测试旅长

    5#
    发表于 2009-10-22 17:20:42 | 只看该作者

    referrence,3Q

    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2009-10-27 09:55:32 | 只看该作者
    呵呵,好
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2010-6-25 15:38:18 | 只看该作者
    谢谢
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-13 07:56 , Processed in 0.070818 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表