51Testing软件测试论坛

标题: QTP的Flight程序简单的测试 [打印本页]

作者: jdfk5566 时间: 2008-8-2 15:01
标题: QTP的Flight程序简单的测试
Flight这是简单的QTP自带的测试程序,用于对QTP的了解和使用的,本人正在学习QTP的使用,在大家的帮忙下,完成一个简单的脚本增强
,不敢独享,希望不要笑我, 也希望大家多多帮忙 ,

以下的代码是对  QTP中的Flight这个程序中的随机产生起始地点和终点以及随机选取航班的代码

Window("Flight Reservation").Activate
Window("Flight Reservation").WinObject("Date of Flight:").Type DataTable("Data_of_Fight", dtGlobalSheet) ' 输入航班日期

Dim counts,temp1,temp2

'得到出发地组合框里选项的条目总数，放在变量counts中

counts=Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount

'初始化随机数生成器，用系统计时器返回的值作为新的种子值将 Rnd 函数的随机数生成器初始化

Randomize

'生成0-（counts-1）之间的随机整数，放在变量temp1中

temp1=int(rnd*counts)

'出发地选择temp1

Window("Flight Reservation").WinComboBox("Fly From:").Select(temp1)

'得到目的选项的条目总数放在变量counts中

counts=Window("Flight Reservation").WinComboBox("Fly To:").GetItemsCount

'生成随机整数，放在变量temp2中

temp2=int(rnd*counts)

'判断出发地和目的地是否相同.

Do While temp2=temp1

temp2=int(rnd*counts)

loop

'在出发地和目的地肯定不相同后，目的地选择temp2

Window("Flight Reservation").WinComboBox("Fly To:").Select(temp2)

Window("Flight Reservation").WinButton("FLIGHT").Click ' 查看航班

ItemCount  = Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCount ' 取得航班列表的行数
Selectitem=RandomNumber(0 , ItemCount)  '随机选取其中一项
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select Selectitem  '选择航班

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click '确认选择航班
Window("Flight Reservation").WinEdit("Name:").Set "CML" ' 输入订票人的名字
Window("Flight Reservation").WinButton("Insert Order").Click ' 插入订票记录
Window("Flight Reservation").WinButton("Update Order").Click ' 更新订票记录
Window("Flight Reservation").WinButton("Delete Order").Click ' 删除订票记录
Window("Flight Reservation").Dialog("Flight Reservations").WinButton("是(Y)").Click ' 输入是完成删除订票

作者: 小孩 时间: 2008-8-2 22:22

QTP 里面带了例子自己看看对提高很有帮助D

作者: zte_boy 时间: 2008-8-2 22:23
鼓励一下，呵呵

作者: qianshi 时间: 2011-5-7 10:48
借鉴下…

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)