一、前提
使用QTP測試數據輸入是否成功。
在本例中使用三個辦法：1、檢查頁面顯示的記錄條數；2、根據關鍵字檢查數據庫中數據；3、檢查頁面顯示的最后一行數據是否為新增的數據。
二、方法及過程
1、錄制正常數據錄入并保存過程的腳本
2、在數據保存完，數據列表顯示出來后進行檢查，定義文本檢查、數據庫檢查（內容見腳本中的說明）
3、修改腳本，實現數據庫數據按數據表關鍵字檢查
如輸入編號為001的學生，檢查是否存入了數據庫，并使用腳本依次取得數據表的關鍵字進行數據庫檢查。
4、當數據庫數據保存成功時，檢查數據是否正常顯示
三、測試腳本
'開始錄入新增數據，所需要錄入的數據存放在數據表中，循環執行測試，輸入多組數據
Browser（"學生信息管理系統"）。Page（"學生資料列表首頁"）。Link（"新增"）。Click
Browser（"學生信息管理系統"）。Page（"新增學生資料頁面"）。WebEdit（"studID"）。Set DataTable（"stu_ID"， dtLocalSheet）
Browser（"學生信息管理系統"）。Page（"新增學生資料頁面"）。WebEdit（"studName"）。Set DataTable（"stu_name"， dtLocalSheet）
Browser（"學生信息管理系統"）。Page（"新增學生資料頁面"）。WebEdit（"age"）。Set DataTable（"stu_age"， dtLocalSheet）
Browser（"學生信息管理系統"）。Page（"新增學生資料頁面"）。WebButton（"保 存"）。Click
'保存后即回到列表顯示頁面
Browser（"學生信息管理系統"）。Refresh '保證新錄入數據后顯示出來，正常情況下，不需要該刷新顯示的操作
'檢查頁面顯示的記錄數是否新增，根據頁面下端顯示的記錄數進行文本檢查，正確數據存放在數據表中Browser（"學生信息管理系統"）。Page（"學生資料列表最后一頁"）。Check CheckPoint（"8"）
rem 檢查數據庫檢索結果是否與輸入的數據一致
Browser（"學生信息管理系統"）。Page（"學生資料列表首頁"）。Link（"最后一頁"）。Click
' 根據數據表的數據，設置數據庫檢索參數Dim sql ' 取得數據庫檢查點的SQL語句sql = DbTable（"DbTable"）。GetTOProperty （"Source"）
Dim e_w ' 取得SQL語句中條件的位置e_w = inStr（sql，"="）
' 使用DataTable（"stu_ID"， dtLocalSheet）取得當前參數表中的關鍵字，使用該關鍵字在數據庫中檢索數據sql = mid（sql，1，e_w ） + "'" + DataTable（"stu_ID"， dtLocalSheet） + "'）" DbTable（"DbTable"）。SetTOProperty "Source"， sql
' 可以使用msgbox sql查看SQL語句是否正確
Dim row Dim stu_id，stu_name
'數據庫檢查點建立時，以任意關鍵字檢索一行需要檢查的數據，本例檢查編號和姓名If DbTable（"DbTable"）。Check （CheckPoint（"DbTable_5"）） Then '如果從數據庫檢索的數據和數據表的數據一致
從表對象（設計此程序前，手工從頁面獲取該WEB表對象）的最后一頁取得最后一行的編號和姓名
row = Browser（"學生信息管理系統"）。Page（"學生資料列表最后一頁"）。WebTable（"學生資料"）。RowCount stu_id = Browser（"學生信息管理系統"）。Page（"學生資料列表最后一頁"）。WebTable（"學生資料"）。GetCellData（row，3）
stu_name = Browser（"學生信息管理系統"）。Page（"學生資料列表最后一頁"）。WebTable（"學生資料"）。GetCellData（row，4）
'將取得的表對象的編號和姓名與數據表中的數據進行比較
If stu_id = DataTable（"stu_ID"， dtLocalSheet） and stu_name = DataTable（"stu_name"， dtLocalSheet） Then Else reporter.ReportEvent 1，"新增學生信息錯誤"，"信息存入數據庫，但數據沒有在保存后立即顯示，數據編號："+ DataTable（"stu_ID"， dtLocalSheet）
End If Else reporter.ReportEvent 1，"新增學生信息錯誤"，"信息沒有存入數據庫，可能是關鍵字重復或其他問題，數據編號："+ DataTable（"stu_ID"， dtLocalSheet）
End If
Browser（"學生信息管理系統"）。Page（"學生資料列表最后一頁"）。Sync
文章來源于領測軟件測試網 http://www.kjueaiud.com/
