【QTP学习笔记 1 】下拉框数据随机选择，日期输入，如何获取动态的对话框

最近使用QTP遇到了一些问题，记录一下。

我负责编写的测试脚本流程是这样的：登录mercury自带的定机票页面后，插入一条新记录，插入成功后，再通过order no查询该记录，并传真，核对传真页面上的数据和录入时是否一致。

那需要解决的几个问题的是：

1、机票的日期指定为当前日期的第二天。

2、fly from 和fly to 下拉框随机选择数据。

3、随机选择航班；

4、tickets输入1-10之间的某一位数（该应用是要求订票数<=10）

5、查询出票价和总价格后，要核对总价是否正确（也就是说price*tickets是不是等于total），要考虑去掉$符号才能比较

6、新插入的订单order no是递增上去的，也就是说传真页面的窗口的text值是一直变化的，如果直接通过text取值是取不到这个页面的。

7、要取得fax preview页面上的文本数据。只能取到窗口对象，里面的信息都是文本的，用object spy是获取不到里面的name、price、total、tickets的。

尝试了几次，问题1-6都已经解决，第7点还在考虑。

解决方法如下：

1、日期选择为当前日期的第二天。解决方案：分别取得当前日期的年月日，如果月和日是1位数，则左边补一位0，最后将月&日&年后两位拼装，代码如下。

If len(Month(date+1))=1 Then
 flymon="0"&Month(date+1)
 else
 flymon=Month(date+1)
End If
If Len(Day(date+1))=1 Then
 flyday="0"&Day(date+1)
 else flyday=Day(date+1)
 End If
mydate=flymon&flyday&right(Year(date+1),2)
Window("Flight Reservation").WinObject("Date of Flight:").Type mydate

2、fly from 和fly to 下拉框随机选择数据。解决方案：先取得下拉框之的数量，使用随机函数取得其中一个。

flyfrom_i=Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
flyfrom_j=RandomNumber.Value(0,flyfrom_i-1)
Window("Flight Reservation").WinComboBox("Fly From:").Select flyfrom_j

flyto_i=Window("Flight Reservation").WinComboBox("Fly To:").GetItemsCount
flyto_j=RandomNumber.Value(0,flyto_i-1)
Window("Flight Reservation").WinComboBox("Fly To:").Select flyto_j
Window("Flight Reservation").WinButton("FLIGHT").Click

3、随机选择航班，解决方案同2

flyspec_i=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCount
flyspec_j=RandomNumber.Value(0,flyspec_i-1)
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select flyspec_j

4、tickets输入1-10之间的某一位数（该应用是要求订票数<=10），解决方案同2

ticks_j=RandomNumber.Value(1,10)
Window("Flight Reservation").WinEdit("Tickets:").Set ticks_j

5、查询出票价和总价格后，要核对总价是否正确（也就是说price*tickets是不是等于total），要考虑去掉$符号才能比较。

解决方案：取price的运行值为“$124.00”，去掉$符号，再运算。total值使用同样的方法

price=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
total_fact=mid(Cstr(price),2,len(price)-1)*ticks_j
total_on=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")
total=mid(Cstr(total_on),2,len(total_on)-1)
If CDbl(total_fact)=CDbl(total) Then
   Reporter.ReportEvent 1,"total calculateion Step", "pass"
   else
   Reporter.ReportEvent 2,"total calculateion Step", "fail"
End If

其中total_fact为实际应得的值，total为界面上得出的值。

6、新插入的订单order no是递增上去的，也就是说传真页面的窗口的text值是一直变化的，如果直接通过text取值是取不到这个页面的。

这个问题是最难的，我考虑了1天，后来想到用描述性编程的方式取得这个窗口。

描述性编程是通过编码虚拟化对象，实际运行时如果页面上对象的属性值和代码里面能够匹配到，就能够识别到这个对象。

Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set order_num
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

Window("Flight Reservation").WinMenu("Menu").Select "File;Fax Order..."
window("text:=Flight reservation").Dialog("Class Name:=Dialog","enabled:=-1").WinObject("attached text:=Fax Number:").Type "1111111111"
window("text:=Flight reservation").Dialog("Class Name:=Dialog","enabled:=-1").WinButton("text:=&Preview Fax").Click
window("text:=Flight reservation").Dialog("Class Name:=Dialog","enabled:=0").Dialog("text:=Fax Preview").Maximize
fax_print=window("text:=Flight reservation").Dialog("Class Name:=Dialog","enabled:=0").Dialog("text:=Fax Preview").GetVisibleText
print fax_print
window("text:=Flight reservation").Dialog("Class Name:=Dialog","enabled:=0").Dialog("text:=Fax Preview").Close
window("text:=Flight reservation").Dialog("Class Name:=Dialog","enabled:=-1").Close

需要注意的是，这里的Fax Preview点击打开后，上级窗口的enable的属性就是0了，就是不可操作的意思。所以我这几行的enable的值是不一样的。

最后

以上就是强健黑猫为你收集整理的【QTP学习笔记 1 】下拉框数据随机选择，日期输入，如何获取动态的对话框的全部内容，希望文章能够帮你解决【QTP学习笔记 1 】下拉框数据随机选择，日期输入，如何获取动态的对话框所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。