使用 QTP 測試 數據輸入是否成功。
在本例中使用三個辦法：一、檢查頁面顯示的記錄條數；二、根據關鍵字檢查 數據庫 中數據；三、檢查頁面顯示的最後一行數據是否爲新增的數據。
2、方法及過程
一、錄製正常數據錄入並保存過程的腳本
二、在數據保存完，數據列表顯示出來後進行檢查，定義文本檢查、數據庫檢查（內容見腳本中的說明）
三、修改腳本，實現數據庫數據按數據表關鍵字檢查
如輸入編號爲001的學生，檢查是否存入了數據庫，並使用腳本依次取得數據表的關鍵字進行數據庫檢查。
四、當數據庫數據保存成功時，檢查數據是否正常顯示
3、測試腳本
'開始錄入新增數據，所須要錄入的數據存放在數據表中，循環執行測試，輸入多組數據
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("學生資料列表最後一頁").Syncsql
|