QTP的那些事--项目实践操作案例代码--查询操作

    '登陆系统

RunAction "login [loginsystem]", oneIteration
'**************************************************************************************************************
'功能：产品名称查询结果 162测试机器
'参数：产品名称
'用例：
'
''**************************************************************************************************************
Browser("【   】测试浏览器").Page("【   】测试浏览器").Sync
wait 5
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("menuFrame").Link("产品管理").Click
'Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebEdit("productName").Set
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame1").WebEdit("productName").Set DataTable("producename", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebEdit("travelDaySpan").Set DataTable("days", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebEdit("pproductId").Set DataTable("id", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebEdit("hinpDeptCity").Set DataTable("fromto", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebEdit("hinpArriCity").Set DataTable("goto", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebEdit("departmentName").Set DataTable("apartname", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebList("valid").Select DataTable("status", dtLocalSheet)

Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebList("recommandLevel").Select DataTable("stars", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebEdit("createUserName").Set DataTable("creater", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebCheckBox("WebCheckBox").Set DataTable("type_all", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebCheckBox("lineType").Set DataTable("type_play", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebCheckBox("lineType_2").Set DataTable("type_shopping", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebCheckBox("lineType_3").Set DataTable("type_travel", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebCheckBox("lineType_4").Set DataTable("type_best", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebCheckBox("lineType_5").Set DataTable("type_honey", dtLocalSheet)
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebCheckBox("lineType_6").Set DataTable("type_fallow", dtLocalSheet)
'Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("menuFrame").Link("产品管理").Click
Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebButton("查 询").Click

expectid=datatable("expectid",dtlocalsheet)
expectname=datatable("expectname",dtlocalsheet)
expectdepartment=datatable("expectdepartment",dtlocalsheet)
expectstars=datatable("expectstars",dtlocalsheet)
expecttype=datatable("expecttype",dtlocalsheet)
expecttraveltype=datatable("expecttraveltype",dtlocalsheet)
expectline=datatable("expectline",dtlocalsheet)
expectarea=datatable("expectarea",dtlocalsheet)
expectdays=datatable("expectdays",dtlocalsheet)
expectstatus=datatable("expectstatus",dtlocalsheet)
expectcreater=datatable("expectcreater",dtlocalsheet)
expectlogtime=datatable("expectlogtime",dtlocalsheet)

Function testResult(testcasesuite)
            '检查预期的查询测试产品的ID号是否正确
            Dim id,proname,partment,stars,protype,totalerror
            totalerror=0
            id=(expectid=trim(actualid))
    '        print "id is:"&id
               If   id Then
                   reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的产品ID:"&expectid&",实际的产品ID为:"&actualid&",测试执行结果相同，测试用例通过"
              else
                   reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的产品ID:"&expectid&",实际的产品ID为:"&actualid&",测试执行结果不相同，测试用例失败"
                   totalerror=totalerror+1
              End If
             '检查预期的查询测试产品名称是否正确
             proname=(expectname=trim(actualname))
'             print "name is:"&proname
             If  proname Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的产品名称:"&expectname&",实际的产品名称为:"&actualname&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的产品名称:"&expectname&",实际的产品名称为:"&actualname&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
              End If
              '检查预期的查询的测试部门是否正确
             expectd=trim(expectdepartment)
             actuald=trim(actualdepartment)
              partment=(expectd=actuald)
    '         print "partment is:"&partment
              If  partment Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的产品部门:"&expectdepartment&",实际的产品部门为:"&actualdepartment&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的产品部门:"&expectdepartment&",实际的产品部门为:"&actualdepartment&",测试执行结果不相同，测试用例失败"
                   totalerror=totalerror+1
             End If
               '检查预期的查询的推荐星级是否正确
               stars=(expectstars=trim(actualstars) )
    '           print "stars:"&stars
              If  stars Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的产品推荐星级:"&expectstars&",实际的产品推荐星级为:"&actualstars&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的产品推荐星级:"&expectstars&",实际的产品推荐星级为:"&actualstars&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
                '检查预期的查询的产品类型是否正确
                protype=(expecttype=trim(actualtype))
        '        print "type is"&protype
              If   protype Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的产品产品类型:"&expecttype&",实际的产品类型为:"&actualtype&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的产品类型:"&expecttype&",实际的产品类型为:"&actualtype&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
              '检查预期的查询的旅游类型是否正确
              traveltype=(expecttraveltype=trim(actualtraveltype))
        '      print "traveltype is:"&traveltype
              If   traveltype Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的旅游类型:"&expecttraveltype&",实际的旅游类型为:"&actualtraveltype&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的旅游类型:"&expecttraveltype&",实际的旅游类型为:"&actualtraveltype&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
             '检查预期的查询的起始终止路线是否正确
             expectl=trim(expectline)
             actuall=trim(actualline)
             travelline=(expectl=actuall)
              If  travelline Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的起始终止路线:"&expectline&",实际的起始终止路线为:"&actualline&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的起始终止路线:"&expectline&",实际的起始终止路线为:"&actualline&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
              '检查预期的查询的销售地区是否正确
              If  expectarea=trim(actualarea) Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的销售地区为:"&expectarea&",实际的销售地区为:"&actualarea&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的销售地区为:"&expectarea&",实际的销售地区为:"&actualarea&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
               '检查预期的查询的行程天数是否正确
              If  trim(expectdays)=trim(actualdays) Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的行程天数为:"&expectdays&",实际的行程天数为:"&actualdays&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的行程天数为:"&expectdays&",实际的行程天数为:"&actualdays&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
               '检查预期的查询的产品状态是否正确
              If  expectstatus=trim(actualstatus) Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的产品状态为:"&expectstatus&",实际的产品状态为:"&actualstatus&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的产品状态为:"&expectstatus&",实际的产品状态为:"&actualstatus&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
                '检查预期的查询的产品创建人是否正确
              If  expectcreater=trim(actualcreater) Then
                    reporter.ReportEvent micPass,"按照"&testcasesuite&"进行查询","预期的产品创建人为:"&expectcreater&",实际的产品创建人为:"&actualcreater&",测试执行结果相同，测试用例通过"
                  else
                    reporter.ReportEvent micFail,"按照"&testcasesuite&"进行查询","预期的产品创建人为:"&expectcreater&",实际的产品创建人为:"&actualcreater&",测试执行结果不相同，测试用例失败"
                    totalerror=totalerror+1
             End If
           If totalerror=0 Then
              ' msgbox ("恭喜你，测试执行完成，全部通过！")
          elseif  totalerror>10 then
               msgbox ("你确定你的测试用例的数据正确，还是你是在除了72上的其他环境上进行的测试？如果是，请重新设计测试用例")
          else
              msgbox("测试用例执行中有些没有通过，请查看测试报告，提交测试缺陷！")
           End If
End Function

    If datatable.GetCurrentRow=0 Then
    actualid=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,1)
    actualname=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,2)
    actualdepartment=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,3)
    actualstars=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,4)
    actualtype=Browser("【   】上航假
    期 - 后台管理系统").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,5)
    actualtraveltype=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,6)
    actualline=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,7)
    actualarea=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,8)
    actualdays=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,9)
    actualstatus=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,10)
    actualcreater=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,11)
    actuallogtime=Browser("【   】测试浏览器").Page("【   】测试浏览器").Frame("mainFrame0").WebTable("产品 编号").GetCellData(2,12)
    reporter.ReportEvent micDone,"执行按照产品名进行查询产品","预期测试结果和实际结果参考如下:"
    Call testResult("产品名称:")

    print "---------------------------"
    print actualid
    print actualname
    print actualdepartment
    print actualstars
    print actualtype
    print actualtraveltype
    print actualline
    print actualarea
    print actualdays
    print actualstatus
    print actualcreater
    print actuallogtime
    End If


If datatable.GetCurrentRow=1 Then
    msgbox datatable("producename",dtlocalsheet)
End If