QTP之下拉列表单选框…

QTP之下拉列表单选框…

==下拉列表框的参数化==

1．通过下拉框对应项的实际值查找
       Browser(“****”).Page(“****”).WebList(“****”).Select “****”
       将select“****”的值参数化，可以将下拉框中的每一个选项都写到数据表中
2．通过下拉框对应项的索引号查找  Browser(“****”).Page(“****”).WebList(“****”).Select “#”&IndexNum
       比如说下拉框有5个选项
       IndexNum = RandomNumber(1,5)   以上代码生成1到5之间的随机数，5是上界，1是下界。

 

 

 Dim s,Get_Ran

s=Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_4").Frame("_mframe").WebList("province").GetROProperty("items count")

Randomize

Get_Ran=RandomNumber (0,s-1)

Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_4").Frame("_mframe").WebList("province").Select "#"&Get_Ran

 

 

   

==单选按钮的参数化==

单选按钮参数化与下拉列表参数化相同。
1．通过单选按钮对应项的实际值查找,以蓝派中国的舱位等级为例

   --------------------------------------
    Browser("蓝派中国lanpay.cn").Page("蓝派中国lanpay.cn_2").WebRadioGroup("BUNK_GRADE").Select DataTable("舱位", dtLocalSheet) 

   --------------------------------------
   将select“****”的值参数化，可以将下拉框中的每一个选项都写到数据表中

 2．通过单选按钮对应项的索引号查找  
       1 ‘代表选择的是公务舱，索引号以0开始

      --------------------------------------

      Browser("蓝派中国lanpay.cn").Page("蓝派中国lanpay.cn_2").WebRadioGroup("BUNK_GRADE").Select  "#" & 1    
      --------------------------------------

 

 

==链接的参数化==

 下面的例子是根据订单号，点击后面的操作链接。

例如我们要操作订单11072822830300001 的付款，因为我们只知道订单号，所以根据订单号先找到行，然后再通过行列找到对应的链接，进行点击。

 

  Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Link("交易管理").Click
 Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").Output CheckPoint("创建时间_3")
 Dim row
‘获取交易号所在的行
 row = Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").GetRowWithCellText(datatable.Value ("交易号", "Action1"), 3,2)   
 msgbox row
 Dim aa,bb,cc,dd
‘获取表中的行数
aa=Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").RowCount   ‘列表的总行数
 bb="09051316080300008"
For i =2 to aa
   ‘循环第三列所有的行，直到找到订单号所在的行
     cc= Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").GetCellData(i,3)
     msgbox cc
    If (bb=cc) Then
        msgbox(bb) 
      dd=i
 Exit for
End If
next
msgbox dd    ‘这就是订单09051316080300008所在的行
‘点击指定订单号所对应的链接
Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").ChildItem(dd,10,"Link",0).Click    ‘注意ChildItem中的参数Link首字母必须大写