• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

软件测试工具QTP数据库检查和WEB表格数据检查

发布: 2009-12-28 17:12 | 作者: 网络转载 | 来源: 领测软件测试 | 查看: 121次 | 进入软件测试论坛讨论

领测软件测试网

软件测试工具QTP数据库检查和WEB表格数据检查

一、前提

    使用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

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网