描述性编程-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").Click
End 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，并判断选择哪个Class
data=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").Click
End 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-1
wait 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 Then
Reporter.ReportEvent micPass,"检查定单号","一样 "'输出到报告中
else
Reporter.ReportEvent micFail,"检查定单号"," 不一样"'输出到报告
End If

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