51Testing软件测试论坛

标题: 功能测试中从datapool中读取数据的问题，只能读取第一行的数据？？？ [打印本页]

作者: wql320088 时间: 2005-4-12 09:27
标题: 功能测试中从datapool中读取数据的问题，只能读取第一行的数据？？？
我在测试的时候，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

作者: winterwindy 时间: 2005-5-26 13:44
你没有加循环呀

作者: yuhuawang 时间: 2005-5-27 11:50
标题: 没用变量替换输入值
1。声明变量
2。用变量替换输入值

作者: jyxuan 时间: 2005-5-27 15:08
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)

作者: smh_dss 时间: 2009-10-22 17:20
标题: referrence,3Q

作者: 村上舞!舞!舞 时间: 2009-10-27 09:55
呵呵，好

作者: xinqingmoli 时间: 2010-6-25 15:38
谢谢

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