51Testing软件测试论坛

标题: 请各位老大指点一下这个GUI脚本中的判断语句 [打印本页]

作者: siberianwolf 时间: 2005-3-12 20:58
标题: 请各位老大指点一下这个GUI脚本中的判断语句
下面是小弟使用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 时间: 2005-3-12 23:52
没有问题的!

作者: siberianwolf 时间: 2005-3-13 11:23
Thanks

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