目標如下：
1. 腳本需要處理成功和失敗的用戶的登陸
2. 數據驅動
設計開發腳本如下：
第一步錄制腳本如下
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebEdit("txtLoginName").Set "呂巍"
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登 錄").set ""
Browser("智能變電巡檢儀系統 4.0").Page("Page").Syn
Browser("智能變電巡檢儀系統 4.0").Close
以上為錄制的正確的用戶名,下邊錄制錯誤的用戶名
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebEdit("txtLoginName").Set "xx"
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登 錄").set ""
出現錯誤提示“該用戶不存在”
第二步 增強腳本
現在需要設計的是一套腳本驅動所有的測試數據，這樣可以驅動所有的用例數據，qtp中提供了datatable。
但是有數據驅動也要做一個事情就是如何處理錯誤的用戶名和正確的用戶名，如何結合起來呢？
這里我把datatable看作存放測試用例的地方，里面放入測試數據，還放入測試的預期結果。這樣我的設計已經出現雛形了。
我把datatable設計為三列
username password status
呂x
xxx xxxx 該用戶不存在
第三列放入最后執行的結果,我設計的是空為成功登陸,如果有信息就用實際運行的結果和這一列對比.好了萬事俱備只欠東風了
修改腳本如下：
Dim iStatus
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebEdit("txtLoginName").Set DataTable("username", dtLocalSheet)
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登 錄").set DataTable("password", dtLocalSheet)
iStatus = DataTable("status", dtLocalSheet)
If iStatus="" Then
Browser("智能變電巡檢儀系統 4.0").Close
End If
If iStatus="該用戶不存在" Then
Reporter.ReportEvent micFail, "登陸", "登陸失敗."
End If
Browser("智能變電巡檢儀系統 4.0").Close
第三步，設置腳本運行過程
打開 tests-〉settings
設置RUN TAB頁面下 Datatable iterations中 Run On all rows
這樣就完成了整個腳本的設計工作，以上通過一個簡單例子吧腳本的設計和軟件的功能結合起來，達成腳本的設計效果。文章引用自：
延伸閱讀
文章來源于領測軟件測試網 http://www.anti-gravitydesign.com/
