阶段一功能测试技术点

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

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