请各位老大指点一下这个GUI脚本中的判断语句

siberianwolf

下面是小弟使用Robot录制的一个GUI脚本，功能流程是启动应用程序的数据收集功能，取得当前系统时间，然后进行FTP操作使应用程序接受到数据并写入数据库，利用SQL查询语句取得最后写入数据库表的数据的时间列参数，比较先前取得的系统时间和SQL查询取得的时间，认为当前系统时间<最后写入的数据的时间时测试通过。问题是我把两个时间都设为variant类型，不知道这样比较是否可行，请各位指点一下。
      脚本如下：
'$include "sqautil.sbh"
Sub Main
    Dim Result As Integer
    dim connection as long
    dim retcode as variant
    dim outputstr as string
    dim query as string
    dim out(1 to 1,1 to 1) as variant
    dim curtime as variant
   
    'Initially Recorded: 2005-3-12  15:22:05
    'Script Name: 应用程序-collectdata-gui
   
    '启动应用程序收集功能
    Window SetContext, "Caption=应用程序", ""
    PushButton Click, "JavaCaption=应用程序;\;Type=PushButton;Name=启动收集"
    StartApplication "E:\WINDOWS\system32\cmd.exe"
   
    '取得当前系统时间
    curtime=time()
   
    'FTP操作
    Window SetContext, "Caption=E:\WINDOWS\system32\cmd.exe", ""
    InputKeys "ftp{ENTER}open{ENTER}FTP服务器IP地址{ENTER}username"
    InputKeys "{ENTER}password{ENTER}bye{ENTER}exit{ENTER}"
    delayfor(20000)
   
    '连接数据库
    connection=sqlopen("dsn=****;uid=sa;pwd=********",outputstr,)
   
    '查询数据库中最后写入的记录
    query="select max(时间列) from 表"
    retcode=sqlexecquery(connection,query)   
   
    '查询到的结果
    retcode=sqlretrieve(connection,out())   
   
    '判断语句
    if  out(1,1)>curtime then
        msgbox "Test is fail"
    end if
                       
    retcode=sqlclose(connection)   
    Window SetContext, "Caption=应用程序", ""
    PushButton Click, "JavaCaption=应用程序;\;Type=PushButton;Name=停止收集"
   
End Sub

pcl2004_27

没有问题的!

siberianwolf

Thanks