描述性编程-HP HP Unified Functional Test

'打开软件，SystemUtil.Run "C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"'登录软件With Dialog("text:=Login").WinEdit("attached text:=Agent Name:").set "mercury".WinEdit("attached text:=Password:").set "mercury".WinButton("text:=OK").ClickEnd With

With Window("text:=Flight Reservation").ActiveX("acx_name:=MaskEdBox").Type DataTable("Date", dtGlobalSheet)'输入日期.WinComboBox("attached text:=Fly From:").Select DataTable("FlyFrom", dtGlobalSheet)'输入出发地.WinComboBox("attached text:=Fly To:").Select DataTable("FlyTo", dtGlobalSheet)'输入目的地.WinButton("text:=FLIGHT").Click'点击Flight按钮.Dialog("text:=Flights Table").WinButton("text:=OK").Click'选择机票.WinEdit("window id:=1014").set DataTable("Name", dtGlobalSheet)'输入姓名End With'活动Global中的Class，并判断选择哪个Classdata=DataTable("Class", dtGlobalSheet)Window("text:=Flight Reservation").WinRadioButton("text:="&Data).Set'选择Class选项Window("text:=Flight Reservation").WinButton("regexpwndtitle:=&Insert Order").Click'点击insert Order按钮'同步点Window("text:=Flight Reservation").ActiveX("acx_name:=Threed Panel Control").WaitProperty "text", "Insert Done...", 10000'获得订单编号OrderNo1=Window("regexpwndtitle:=Flight Reservation").WinEdit("window id:=1016").GetROProperty("Text")Datatable.Value("No","Global")=OrderNo1'将编号保存到Global中

'*********************************************************************************************************

<pre name="code" class="vb">With Window("text:=Flight Reservation").WinButton("window id:=5").Click '打开订单'选择customer Name选项.Dialog("regexpwndtitle:=Open Order").WinCheckBox("regexpwndtitle:=Customer &Name").Click'输入Customer Name.Dialog("regexpwndtitle:=Open Order").WinEdit("window id:=1014").Set DataTable("Name", dtGlobalSheet)'选择Flight Date 选项.Dialog("regexpwndtitle:=Open Order").WinCheckBox("regexpwndtitle:=&Flight Date").Click'在Flight Data中输入.Dialog("regexpwndtitle:=Open Order").WinEdit("acx_name:=MaskEdBox").Type DataTable("Date", dtGlobalSheet)'点击OK按钮.Dialog("regexpwndtitle:=Open Order").WinButton("text:=OK").ClickEnd With'获取当前票的数量i=Window("text:=Flight Reservation").Dialog("regexpwndtitle:=Open Order").Dialog("regexpwndtitle:=Search Results").WinList("window id:=2017").GetROProperty("items count")'msgbox I'选择第I-1个票Window("text:=Flight Reservation").Dialog("regexpwndtitle:=Open Order").Dialog("regexpwndtitle:=Search Results").WinList("window id:=2017").select i-1wait 2'等待2秒,防止选错'点击OK按钮Window("text:=Flight Reservation").Dialog("regexpwndtitle:=Open Order").Dialog("regexpwndtitle:=Search Results").WinButton("regexpwndtitle:=OK").Click'获取打开订单的编号OrderNo2=Window("regexpwndtitle:=Flight Reservation").WinEdit("window id:=1016").GetROProperty("Text")'冲Global中获得New Order中的编号j=DataTable("No", dtGlobalSheet)'判断编号是否相等If OrderNo2=j ThenReporter.ReportEvent micPass,"检查定单号","一样 "'输出到报告中elseReporter.ReportEvent micFail,"检查定单号"," 不一样"'输出到报告End If

'关闭窗口Window("text:=Flight Reservation").close