QTP数据库检查和WEB表格数据检查[2]

发表于:2010-02-02来源:作者:点击数: 标签:数据库qtpQTPwebWeb
QTP数据库检查和WEB表格数据检查[2] 软件测试 检查页面显示的记录数是否新增,根据页面下端显示的记录数进行文本检查,正确数据存放在数据表中Browser("学生信息管理系统")。Page("学生资料列表最后一页")。Check CheckPoint("8") rem 检查数据库检索结果是

  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.ltesting.net

评论列表(网友评论仅供网友表达个人看法,并不表明本站同意其观点或证实其描述)