第一步：創建名字為dp的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

原文轉自：http://www.anti-gravitydesign.com