第一步：創建名字為dp的javascript:;" onClick="javascript:tagshow(event, 'datapool');" target="_self">datapool,假如字段name,password并自動生成數據，然后把測試用例中各種數據輸入dp中
Sub Main
Dim Result As Integer
'Initially Recorded: 2004-4-24 10:59:24
'Script Name: Five
StartApplication "xxx"
Window SetContext, "Caption=登陸", ""
InputKeys "sa"
EditBox Click, "ObjectIndex=1", "Coords=34,9"
InputKeys "sa"
PushButton Click, "Text=登陸"
Window SetContext, "Caption=登陸;Class=#32770", ""
PushButton Click, "Text=確定"
End Sub
第三步：循環讀出datapool數據，進行自動化測試，腳本如下
'$Include "sqautil.sbh"
Sub Main
Dim Result As Integer
Dim dp_id as Long
Dim dp_Result as Long
Dim strName as String
Dim strPassWord as String
'Initially Recorded: 2004-4-24 10:30:51
'Script Name: Four
StartApplication "xxx"
Window SetContext, "Caption=登陸", ""
dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)
dp_Result = SQADatapoolFetch (dp_id)
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=登陸"
Window SetContext, "Caption=登陸;Class=#32770", ""
PushButton Click, "Text=確定"
wend
dp_Result = SQADatapoolClose (dp_id)
End Sub
第四步： 加入執行成功和失敗的result信息并寫入Result report中，和必要的除錯處理。對腳本進行優化。加入BASELINE設置（對于測試基線有兩種思路，一種是文件處理，采用文件類型為文本文件或者EXCEL或者WORD，讀取DATAPOOL測試數據和文件內容對比，檢測測試數據是否在文件中存在，當然這里的測試基線考慮的不夠周全，你可以定制規則，逐步完善，一種是直接從數據庫中讀取數據進行對比,用數據庫作為baseline來避免以后增加測試用例后改動baseline文件，當然這么做跟測試理論不合，應該把預期輸出保存到特定文件中作為baseline,這個留給你自己動手來改進）。
腳本如下：
'$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
總結：
上邊腳本是對登陸功能測試自動化初步優化后的代碼，后邊還要做的是腳本模塊化，函數話，功能分切。腳本過大不容易維護，把其中連接數據庫，處理datapool功能寫成函數提供其他工程使用。其實也可以把測試數據存入文本文件,word,excel等文件中，然后讀出處理模擬datapool功能，但開發腳本工程量大。datapool提供自動生成數據功能和能夠和工程結合是它的優點，但很困難多個工程共享datapool。
