jdfk5566 发表于 2008-8-2 15:01:58

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:16

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

zte_boy 发表于 2008-8-2 22:23:25

鼓励一下，呵呵:lol

qianshi 发表于 2011-5-7 10:48:24

借鉴下…
页: [1]
查看完整版本: QTP的Flight程序简单的测试