QTP测试实验

来源：互联网发布：淘宝网开衫编辑：程序博客网时间：2024/06/08 06:53
Dialog("Login").WinEdit("Agent Name:").Set DataTable("agentname", dtLocalSheet)Dialog("Login").WinEdit("Password:").Set DataTable("password", dtLocalSheet)Dialog("Login").WinButton("OK").ClickWindow("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("time", dtLocalSheet)Dim n1,Rdm_flyfromn1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")RandomizeRdm_flyfrom=RandomNumber(0,n1-1)'msgbox(Rdm_flyfrom)Window("Flight Reservation").WinComboBox("Fly From:").Select (Rdm_flyfrom)    wait(2) Dim n2,Rdm_flyton2=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("items count")RandomizeRdm_flyto=RandomNumber(0,n2-1)'msgbox(Rdm_flyto)Window("Flight Reservation").WinComboBox("Fly To:").Select (Rdm_flyto)      wait(2)Window("Flight Reservation").WinButton("FLIGHT").ClickWindow("Flight Reservation").Dialog("Flights Table").WinList("From").Select 1Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").ClickWindow("Flight Reservation").WinEdit("Name:").Set DataTable("name", dtLocalSheet)Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1Window("Flight Reservation").WinEdit("Tickets:").Set DataTable("tickets", dtLocalSheet)Dim i,bi=RandomNumber(1,3)   Select Case i      Case 1 b="First"           Case 2 b="Business"        Case 3 b="Economy"End SelectWindow("Flight Reservation").WinRadioButton(b).SetWindow("Flight Reservation").WinButton("Insert Order").Clickwait(10)Dim RecordNoRecordNo=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 RecordNoWindow("Flight Reservation").Dialog("Open Order").WinButton("OK").ClickWindow("Flight Reservation").Close
0 0