qtp脚本！自己写的！

tiger_86

Browser("index").Page("index").Link("联系人管理").Click

Dim sum,expectpage,page,range,nonce_page
dim Contact,j,a,b,row , rowcount'sum，添加用户的总数，range，下拉框的数字，page页数,expectpage预期的页数
sum = inputbox("请输入你想加入联系人的个数：")

For Contact=1 to sum
                        Browser("index").Page("index").Link("新增联系人").Click
                        Browser("index").Page("index_2").WebEdit("lastName").Set Contact
                        Browser("index").Page("index_2").WebEdit("firstName").Set Contact
                        Browser("index").Page("index_2").WebEdit("otherMobNumber").Set Contact
                        Browser("index").Page("index_2").WebEdit("homeTelNumber").Set Contact
                        Browser("index").Page("index_2").WebEdit("bizTelNumber").Set Contact
                        Browser("index").Page("index_2").WebButton("新增联系人").Click
Next                                                                                                                                                     '  添加用户的操作

For j=0 to 4
                                                                        Browser("index").Page("index_3").WebList("pageRange").Select(j)
                                                                        If  j=0 Then
                                                                                range=10
                                                                                elseif j=1 then
                                                                                range=20
                                                                                elseif j=2 then
                                                                                range=50
                                                                                elseif j=3 then
                                                                                range=100
                                                                                else
                                                                                range=200  '以上是 取值（每页显示的预期条数）
                                                                        End If
                                                                          'msgbox "每页显示的纪录数"&s                                                            '     显示预期每页的记录数
                                                                         If sum mod range = 0 Then
                                                                                expectpage=sum/range
                                                                        else
                                                                 expectpage=cint(sum\range)+1
                                                  '   msgbox m&"预期的总页数"                                                                         '  显示期望的页数
                                                End If
                                                b=sum mod range
                                                   'msgbox b&"最后一页显示的记录数"
                                                 
                                                For a=0 to expectpage-1
                                                 Browser("index").Page("index").WebList("combobox").Select(a)                ' 翻页的操作
                                                nonce_page=a+1
                                         '   msgbox nonce_page
                                         '  msgbox a+1 &"当前的页数" '当前的页数
                                           row =          Browser("index").Page("index_4").WebTable("姓").RowCount '           取页面联系人记录的行数
                                                  rowcount = cint(row)-1 ' 实际的记录数
                                        'msgbox con '显示当前页的记录数
                                       
                                   page=Browser("index").Page("index_3").WebList("combobox").GetROProperty("items count")'取实际的总页数
                                         '   msgbox n&"当前的总页数"  '显示实际的总页数
                                         If  a=expectpage-1  Then
                               range=b
                                         End If

                                        If   expectpage=page Then
                           Reporter.ReportEvent micPass,"实际的分页数"&page&"预期分页数"&expectpage,"第"&nonce_page&"分页数通过"
                                                   else
                                                   reporter.ReportEvent micFail,"实际的分页数"&page&"预期分页数"&expectpage,"第"&nonce_page&"分页数不通过"
                                        End If
                                        If   rowcount=cint( range) or rowcount=b Then
                                                reporter.ReportEvent micPass,"实际行数"&rowcount&"预期行数"& range ,"列表"&range&"每页"&"行数通过"
                                                else
                                                reporter.ReportEvent micFail,"实际行数"&rowcount&"预期行数"& range ,"列表"&range&"每页"&"行数不通过"
                                        End If
                                 
                                        Next
Next

machao514

没看到需求和用例，很难明白lz的思路；

walker1020

不明白楼主写这段代码的目的是什么。单就代码的质量来说，总的来说还可以，但编程能力尚需提高：
1， 注释最好是要写在一段代码的前面，这样方便别人理解你写的那段代码的目的；
2，下面的这段代码太繁琐，都形成If嵌套了。这样既不便于别人理解，也不方便以后的维护。强烈建议你使用  Select Case语句去改写一下
If  j=0 Then
    range=10
    elseif j=1 then
    range=20
    elseif j=2 then
    range=50
    elseif j=3 then
    range=100
    else
    range=200  '以上是 取值（每页显示的预期条数）
End If

[ 本帖最后由 walker1020 于 2008-3-24 21:01 编辑 ]

walker1020

还有， 在项目开发的过程中，很少有人会这样命名变量：
dim a,b

tiger_86

谢谢大家的支持！谢谢，我会好好的努力，我会好好的努力！