有人了解SQABasic吗
正在学习Robot中的SQABasic，有人了解吗？感觉好多看不懂我们联系方式MSN:littlestone1021@tom.com Gtalk:hiwatering@gmail.com
请指教。 看看帮助就可以了。 确实主要看帮助文档，Robot帮助中的例子很全面很好 谢谢两位，我有点不知道从哪入手，这两天我从51上看了一篇关于数据池应用的例子，试着运行了一下，有一些不太明白，原文件我放到附件中了。
第一部分的前三步我大致会用了，对于第四步（加入执行成功和失败的 result 信息并写入 Result report 中，和必要的除错处理）就一头雾水了。
下面是第四步中的代码，请两位指点一下我怎么入手看呢？非常感谢。
PS:我加了上面版主的MSN，希望可以跟你交流。
'$Include "sqautil.sbh"
Sub Main
Dim Result As Integer
Dim dp_id as Long
Dim dp_Result as Long
Dim strMessage as String
Dim vSText as string
Dim cnn As object
Dim Rst As object
Dim strLink As String
Dim strSql As String
Dim strName as String
Dim strPassWord as String
'Initially Recorded: 2004-4-24 10:30:51
'Script Name: Four
strLink = " 连接字符串 "
Set cnn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
cnn.Open strLink
Rst.CursorLocation = 0
Rst.LockType = 1
Rst.CursorType = 2
On Error Goto Last
StartApplication "xxx"
Window SetContext, "Caption= 登陆 ", ""
dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)
dp_Result = SQADatapoolFetch (dp_id)
if (dp_Result = 0) then
while dp_Result <> sqaDpEOF
dp_Result = SQADatapoolValue (dp_id, "name", strName)
dp_Result = SQADatapoolValue (dp_id, "password", strPassWord)
dp_Result = SQADatapoolFetch (dp_id)
InputKeys strName
EditBox Click, "ObjectIndex=1", "Coords=34,9"
InputKeys strPassWord
PushButton Click, "Text= 登陆 "
strMessage = " 用户名： " + strName + "; 密码： " + strPassWord
strSql = "select * from login where name = "" " + strName + " "" and password = """ + strPassWord + """"
Rst.open strSql, cnn
Window SetContext, "Caption= 登陆 ;Class=#32770", ""
‘ 这个函数是作为插入验证点，验证点为窗体提示信息，没有用 window image 来作为验证点，是因为无法把该脚本进行模块化，存入 shl 文件中，将来多平台使用。
SQAGetProperty "Label", "Text", vSText
‘ 如果 rst.RecordCount 返回值为 1 ，说明此用户在数据库中存在
‘ 测试用例分为成功，失败的测试用例，失败的测试用例中即使数据
' 错误，但有预期输出就是成功的用例，所以写入 result report 中的信息分为三种，成功，失败，预期失败，对于程序中有不是预期的窗体，用程序自动关闭掉，继续执行，这里安全的做法做标志然后关闭整个软件，重新启动软件，测试脚本从失败处继续执行
if Rst.RecordCount= 1 then
if (vSText=" 登陆成功 ") then
PushButton Click, "Text= 确定 "
SQALogMessage sqaPass, " 测试数据为 " + strMessage + " 的测试用例执行成功 ", " 项目名称 "
else
' 出现异常窗体，该用例测试失败
SQALogMessage sqaFail, " 测试数据为 " + strMessage + " 的测试用例执行失败 ", " 项目名称 "
SQAGetProperty "Window", "Text", vSText
SQALogMessage sqaFail, " 出现错误窗体 :"+ vSText, " 项目名称 "
Window CloseWin, "Caption=" + vSText, ""
end if
else
if (vSText=" 登陆失败 ") then
' 数据错误，用例执行失败，软件功能正常
PushButton Click, "Text= 确定 "
SQALogMessage sqaFail, " 测试数据为 " + strMessage + " 的测试用例执行失败但软件功能正常 ", " 项目名称 "
else
' 出现异常窗体，该用例测试失败
SQALogMessage sqaFail, " 测试数据为 " + strMessage + " 的测试用例执行失败 ", " 项目名称 "
SQAGetProperty "Window", "Text", vSText
SQALogMessage sqaFail, " 出现错误窗体 :"+ vSText, " 项目名称 "
Window CloseWin, "Caption=" + vSText, ""
end if
end if
wend
dp_Result = SQADatapoolClose (dp_id)
else
SQALogMessage sqaFail, " 数据池打开失败 ", " 项目名称 "
end if
Last:
SQALogMessage sqaFail, " 测试脚本发生异常，测试脚本执行失败 ", " 项目名称 "
End Sub
页:
[1]
