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首字母必须大写

 

转载于:https://www.cnblogs.com/vanya/p/6742652.html