大家帮我看一下

apple69

如果用ROBOT结合DATAPOOL，做验证登录的测试，如果密码正确，则关闭系统，提示用例通过，如何跑下一组用户名和密码，用户名和密码错误，提示密码错误，但是用例正确，
'$Include "sqautil.sbh"

Sub Main
    Dim Result As Integer
    dim dp as long
   
    dim i as integer
   
    dim strName as String
    dim strPassWord as string
    'Initially Recorded: 2007-3-29  10:44:03
    'Script Name: datapool
    StartApplication """xxx.exe"""
   
    dp=SQADatapoolOpen("dp1")' dp1为DATAPOOL的名称,循环读datapool的数据'
   for i=1 to 3
      call SQADatapoolFetch(dp)
      call SQADatapoolValue(dp,1,strName)
     
      call SQADatapoolValue(dp,2,strPassword)
      
     
      
    InputKeys strName
    inputKeys "{ENTER}"
    Inputkeys strPassword
    InputKeys "{ENTER}"

   
Result = WindowVP (Exists, "Class=#32770;Level=6", "VP=Window Existence")'验证出现密码错误的对话框
    if result=1 then
    msgbox "密码不正确，但是用例正确"
    Window SetContext, "Class=#32770;Level=6", ""
    InputKeys "{ENTER}"
    else
  
    msgbox "密码正确，进入系统，通过测试"
   
    Window SetContext, "Type=Form;Name=FrmLogOff", ""
    PushButton Click, "Type=PushButton;Name=btnOK"
    '关闭系统
   
end if
next
   call SQADatapoolClose(dp)

end sub
大家帮我看一下有流程对吗？需要那些完善的地方，谢谢

ruisnow

楼主的程序调试过了么？

   call SQADatapoolValue(dp,2,strPassword)
      
     
      
    InputKeys strName
    inputKeys "{ENTER}"

inputkeys 前也没有指定是对哪个控件进行输入？

apple69

调试过的，前面已经启动了登录窗口的，会自动的输入的呀。没有语法错误，但是流程好像不对

ilovejolly

先把流程用文字写出来,然后翻译成代码,就很清晰了

apple69

我想实现的流程就是测试用户登录，循环的度DATAPOOL的数据，如果登录成功，提示正确，进入系统，然后关闭要进入的主页，继续读datapool的下行，密码失败提示密码或这用户名错误，接着走datapool的下行。，
版主帮一下忙呀，我这个代码哪写的不对