多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

QTP数据库检查和WEB表格数据检查-自动化测试

更新时间:2022-05-30 09:15:59 作者:多测师 浏览:67

  一、前提

  使用QTP测试数据输入是否成功。

  在本例中使用三个办法:1、检查页面显示的记录条数;2、根据关键字检查数据库中数据;3、检查页面显示的最后一行数据是否为新增的数据。

  二、方法及过程

  1、录制正常数据录入并保存过程的脚本

  2、在数据保存完,数据列表显示出来后进行检查,定义文本检查、数据库检查(内容见脚本中的说明)

  3、修改脚本,实现数据库数据按数据表关键字检查

  如输入编号为001的学生,检查是否存入了数据库,并使用脚本依次取得数据表的关键字进行数据库检查。

  4、当数据库数据保存成功时,检查数据是否正常显示

QTP数据库检查和WEB表格数据检查-自动化测试

  三、测试脚本

  '开始录入新增数据,所需要录入的数据存放在数据表中,循环执行测试,输入多组数据

  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

  以上内容为大家介绍了自动化测试中的QTP数据库检查和WEB表格数据检查,本文由多测师亲自撰写,希望对大家有所帮助。了解更多自动化测试相关知识:https://www.aichudan.com/xwzx/

联系电话

17727591462

返回顶部