QTP测试实验

最新推荐文章于 2025-09-28 10:57:43 发布

原创最新推荐文章于 2025-09-28 10:57:43 发布 · 898 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#qtp #测试

测试专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个自动化测试案例，演示了如何使用自动化工具进行登录操作、填写表单、选择随机选项及订单处理等步骤。通过设置变量从数据表读取数据，实现界面元素的交互，包括组合框的选择、按钮点击及等待时间的设定。

Dialog("Login").WinEdit("Agent Name:").Set DataTable("agentname", dtLocalSheet)
Dialog("Login").WinEdit("Password:").Set DataTable("password", dtLocalSheet)
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("time", dtLocalSheet)

Dim n1,Rdm_flyfrom
n1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")
Randomize
Rdm_flyfrom=RandomNumber(0,n1-1)
'msgbox(Rdm_flyfrom)
Window("Flight Reservation").WinComboBox("Fly From:").Select (Rdm_flyfrom)    
wait(2) 

Dim n2,Rdm_flyto
n2=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("items count")
Randomize
Rdm_flyto=RandomNumber(0,n2-1)
'msgbox(Rdm_flyto)
Window("Flight Reservation").WinComboBox("Fly To:").Select (Rdm_flyto)      
wait(2)

Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select 1
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set DataTable("name", dtLocalSheet)
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set DataTable("tickets", dtLocalSheet)

Dim i,b
i=RandomNumber(1,3)
   Select Case i
      Case 1 b="First"
           Case 2 b="Business"
        Case 3 b="Economy"
End Select

Window("Flight Reservation").WinRadioButton(b).Set
Window("Flight Reservation").WinButton("Insert Order").Click
wait(10)

Dim RecordNo
RecordNo=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")    

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 RecordNo
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Window("Flight Reservation").Close