QTP使用技巧（二）

上接 QTP使用技巧（二）23:

24处理Windows弹出窗口

Ａ：IF Not Window("Flight Reservation").Exist(1) Then
                        'Calling  open flight
               If    not Dialog("Login").Exist(1)  Then
                                                    Browser("管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

                                         End If

25．查询结果的比较

这是查询一个字段的，对查询结果多页的情况也涉及了，其实应该把所有查询字段联合起来的，也就是改改sql语句和判断条件。

[i]Set Conn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Conn.Open "Descrīption=kml-it;DRIVER=SQL Server;SERVER=KML-IT;UID=sa;PWD=password;APP=QuickTest Professional;WSID=KML-MICHELLE;DATABASE=kml_db"
sql="select distinct grn_no from grn_dtl where grn_no like '%"&grnNo&"%' order by grn_no DESC"
Rs.open sql,Conn,1,3
Dim i,j,cell
        i=1
        j=2 'j=2的原因是因为页面上table是的数据是隔一行一条，不知   道怎么回事，开发人员弄的怪把
                Do while not rs.eof
                        If i=13 Then  '13是每页显示出的最大行数,是个常数
                                i=1
                                j=2
                                 Browser("::").Page("::").Frame("mainFrm_5").Link("下一页").Click
                        end if
                        cell=Browser("::").Page("::").Frame("mainFrm_5").WebTable("收货单号").GetCellData(j,2)
                        If cell<>rs("grn_no") Then
                Reporter.ReportEvent 1, "查询功能"&cell, "查询结果错误."
                                Exit do
                        else
                                Reporter.ReportEvent 0, "查询功能"&cell, "查询结果正确."
                        End If
                        rs.movenext
                        j=j+2
                        i=i+1
               Loop
rs.close
conn.close
set conn=nothing[/i]