uft代码自定义测试点

'打开查询界面
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 DataTable("Order_No", dtGlobalSheet)
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
'定义出发地，目的地，姓名，日期
Dim form,form1,to1,to2,name,name1,date1,date2
'出发地的分别从Global和运行时得到
form = DataTable("Fly_From", dtGlobalSheet)
form1 = Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("text")
'判断两个出发地是否相同
If from1=from2 Then
Reporter.ReportEvent micPass,"出发地点相同","出发地点与选定出发地点相同"
else
Reporter.ReportEvent micFail,"出发地点不同","出发地点与选定出发地点不同"
End If
'目的地的分别从Global和运行时得到
to1 = DataTable("Fly_To", dtGlobalSheet)
to2 = Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("text")
'判断两个目的地是否相同
If to1=to2 Then
Reporter.ReportEvent micPass,"目的地相同","目的地与选定目的地相同"
else
Reporter.ReportEvent micFail,"目的地不相同","目的地与目的地不相同"
End If
'姓名的分别从Global和运行时得到
name =  DataTable("Name", dtGlobalSheet)
name1 = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
'判断两个姓名是否相同
If name1=name Then
Reporter.ReportEvent micPass,"姓名相同","姓名与输入姓名相同"
else
Reporter.ReportEvent micFail,"姓名不相同","姓名与输入姓名不相同"
End If
'日期的分别从Global和运行时得到
date2 = Window("Flight Reservation").ActiveX("MaskEdBox").GetROProperty("text")
date2=left(date2,2)&mid(date2,4,2)&right(date2,2)
date1=DataTable("Date", dtGlobalSheet)
'判断两个日期是否相同
If date1=date2 Then
Reporter.ReportEvent micPass,"日期相同","日期相同"
else
Reporter.ReportEvent micFail,"日期不相同","日期不相同"
End If