QTP數據庫檢查和WEB表格數據檢查[2] 軟件測試
檢查頁面顯示的記錄數是否新增，根據頁面下端顯示的記錄數進行文本檢查，正確數據存放在數據表中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/
