QTP的那些事--终极项目脚本设计思路及其测试查询功能的一些实际项目体会

1，采用importdatable将外部的excel数据加载到对应的datatable中；

2，实际项目中可能不会让我们去设置数据库的检查点来校验数据，而且校验的数据比较复杂，就拿我们基本的手工测试来说。我们在测试查询条件的时候也是不去考虑数据库底层的查询结果的，我们关注的仅是查询的结果中有没有查询到结果，查询的结果中有没有我们的查询条件中的值；

3，针对以上情况，涉及思路如下：

3.1 所有的查询条件设计成相当于MVC模式中的VO层，也就是我们的输入层数据，然后将对应的录制的查询脚本都参数化为我们datatable中对应的字段；

3.2 判断检查查询的实际结果，实际结果我这里就没有坐那边复杂的处理，就简单的是做了一个判断，如下：

思路其实很简单，就是得到对应的webtable中的innnertext属性中所有的文本查询结果，然后再获取datatable中所有的查询条件，将所有的查询条件与innertext中内容比较一下，查看是否有对应的数据，如果有的话，那么就写上我们的实际的测试结果（查询到数据），如果没有查询到数据就写上（没有结果）。

这里的判断结果只存在两种情况，其他的复杂的情况没有考虑。

            Browser(“browser").Page(“page").Sync
            '得到实际的测试执行结果
            set listtab=Browser(“browser").Page(“page").Frame("frmae").WebTable("合计")
            writerow=datatable.LocalSheet.GetCurrentRow+1
            If listtab.Exist(1) Then
                listresult=listtab.GetROProperty("innertext")
            End If
            print "当前的行"&writerow
             If listtab.Exist(10) Then                    
                            For index=1 to datatable.LocalSheet.GetParameterCount
                                 indexres=datatable.LocalSheet.GetParameter(index)     '获得对应的参数数据
                                  if instr(1,listresult,indexres,1)>0 then
                                      datatable.LocalSheet.GetParameter("实际结果").Value="查询到结果"
                                    '写到excel中结果
                                    'writeExcelDatas(filename, sheetindex, x, y, values)
                                      writeExcelDatas "result",1,writerow,20,"查询到结果"
            
                                  else
                                     datatable.LocalSheet.GetParameter("实际结果").Value="没有结果"
                                      writeExcelDatas "result",1,writerow,20,"没有结果"
                                  end if
                            Next
                 else
                           datatable.LocalSheet.GetParameter("实际结果").Value="没有结果"
                           writeExcelDatas "result",1,writerow,20,"没有结果"
                 End If

                 '执行测试结果，预期值与实际值的比较
                expectvalue=trim(datatable.LocalSheet.GetParameter("期望结果"))
                actualvalue=trim(datatable.LocalSheet.GetParameter("实际结果").RawValue)
                
                If expectvalue=actualvalue Then
                         datatable.LocalSheet.GetParameter("测试结果").Value="PASS"            
                         writeExcelDatas "result",1,writerow,21,"PASS"
                else
                        datatable.LocalSheet.GetParameter("测试结果").Value="Failed"
                         writeExcelDatas "result",1,writerow,21,"Failed"
                End If
                '执行用例结束后的通知。。。
                If datatable.GetCurrentRow=runiteration Then
                    reportProgress "当前action用例执行完毕.....",5
                End If