51Testing软件测试论坛

标题: ROBOT数据池问题求助 [打印本页]

作者: lpbenben 时间: 2007-11-16 14:18
标题: ROBOT数据池问题求助
我刚录制完脚本加入了数据池，点击回放和编译无任何反应。那位帮我看一下
'$Include"sqautil.sbh"

Sub Main
Dim Result As Integer
dim groupname as string
dim cycnumber as Integer


'Initially Recorded: 2007-11-16  13:33:10
'Script Name: group

  groupdp = SQADataPoolOpen("zuname")
  for cycnumber = 1 to 15

  call SQADataPoolFetch(groupdp)
  call SQADataPoolValue(groupdp,1,groupname)

Window SetContext, "Caption=Central", ""
ListView Click, "ObjectIndex=1", "Coords=218,38"
Toolbar Left_Drag, "ObjectIndex=1;\;ItemID=32798", "Coords=25,26,22,26"

Window SetContext, "Caption=添加组", ""
InputKeys groupname
PushButton Click, "Text=确定"

Window SetContext, "Caption=Central", ""
TreeView Click, "ObjectIndex=1", "Coords=85,143"
TreeView Click, "ObjectIndex=1;\;ItemText=所有组->"groupname, "Location=Icon"
Toolbar Click, "ObjectIndex=1;\;ItemID=32799", "Coords=32,5"

Window SetContext, "Caption=添加终端", ""
InputKeys groupname
EditBox Click, "ObjectIndex=2", "Coords=26,7"
InputKeys groupname
EditBox Click, "ObjectIndex=3", "Coords=26,8"
InputKeys groupname
EditBox Click, "ObjectIndex=4", "Coords=32,4"
InputKeys groupname
ComboBox Click, "ObjectIndex=1", "Coords=77,12"
ComboListBox Click, "ObjectIndex=1", "Text=groupname"
PushButton Click, "Text=确定"

Window SetContext, "Caption=Central", ""
ListView Click, "ObjectIndex=1", "Coords=254,272"
ListView Click, "ObjectIndex=1", "Coords=58,120"

next groupname
  call SQADataPoolClose(groupdp)


End Sub

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