QTP數據庫檢查和WEB表格數據檢查[2]

　　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.anti-gravitydesign.com