阶段一功能测试技术点

实现打开相应飞机订单与创建订单的页面的日期，出发地、目的地、姓名信息比较是否一致性的代码

Dim Date_1,FlyFrom_1,FlyTo_1,name_1,row

 row=datatable.GlobalSheet.GetCurrentRow()     //获取Row属性

Date_1=datatable.GlobalSheet.GetParameter(“Date”).ValueByRow(row)
将Global表中的Date信息获取出来，赋给Date_1

FlyFrom_1=datatable.GlobalSheet.GetParameter(“Fly_From”).ValueByRow(row)

同理

FlyTo_1=datatable.GlobalSheet.GetParameter("Fly_To").ValueByRow(row)

同理

name_1=datatable.GlobalSheet.GetParameter("Name").ValueByRow(row)

同理

Dim Date_2,FlyFrom_2,FlyTo_2,name_2

Date_2= Window( "Flight Reservation").ActiveX( "MaskEdBox").GetROProperty( "cliptext")'

获取不带/的text

FlyFrom_2=Window(“Flight Reservation”).WinComboBox(“Fly From:”).GetROProperty(“text”)
获取Fly From信息

FlyTo_2=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("text")

获取Fly To信息

name_2=Window(“Flight Reservation”).WinEdit(“Name:”).GetROProperty(“text”) 

'比较结果，并将检查结果打印在Report中
If (Date_1=Date_2  and FlyFrom_1=FlyFrom_2  and FlyTo_1=FlyTo_2  and name_1=name_2)  Then
    Reporter.ReportEvent micPass, "值是否一致", "值一致"
Else
    Reporter.ReportEvent micFail, "值是否一致", "值不一致"
End If