共享代码——航班预订管理系统UFT脚本代码

01_Login

'判断并结束flight4a.exe进程
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")' 建立任务管理对象，遍历进程
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='flight4a.exe' ")' 查找filght4a.exe进程
For Each objProcess in colProcessList ' 循环
objProcess.Terminate() ' 结束进程
Next
Systemutil.Run "C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"' 运行flight4a.exe
' 从外部导入表
Dim rownum
rownum=DataTable.GetSheet("Global").GetRowCount
If rownum=0 Then
DataTable.Import "..\table.xls"
End If
' 登陆系统（使用环境变量登陆）
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set Environment("AgentName")' 将AgentName定义成环境变量，从xml表中读值
Dialog("Login").WinEdit("Password:").SetSecure Environment("Password")' 将Password定义为环境变量，从xml表中读值
Dialog("Login").WinButton("OK").Click

02_New_Order

' 新建订单
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("New").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("p_KeyboardInput", dtLocalSheet)' 从本地表读入日期数据
Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("p_FlyFrom", dtLocalSheet)' 从本地表读入出发地
Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("p_FlyTo", dtLocalSheet)' 从本地表读入到达地
Window("Flight Reservation").WinButton("FLIGHT").Click
' 选择订票
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
' 输入订票人信息及票数
Window("Flight Reservation").WinEdit("Name:").Set DataTable("p_Name", dtLocalSheet)' 从本地表读入订票人
Window("Flight Reservation").WinRadioButton("Business").Set
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set DataTable("p_Tickets", dtLocalSheet)' 从本地读入订票数
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").ActiveX("Threed Panel Control").WaitProperty "text", "Insert Done...", 10000' 同步点
Window("Flight Reservation").WinEdit("Order No:").Output CheckPoint("Order No:")' 标准输出

03_Open_Order

' 设置循环次数
row=DataTable.GetSheet("02_New Order").GetCurrentRow' 读取2表当前指向的数字
For Iterator = 1 To row ' 设置循环
DataTable.GetSheet("02_New Order"). SetCurrentRow(Iterator)' 循环指向从1依次到row
' 打开订单
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("open").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set DataTable("Order_No_text_out", "02_New Order")
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
wait(1) ' 等待1秒读值
date1=DataTable("p_KeyboardInput", "02_New Order")
date2=Window("Flight Reservation").ActiveX("MaskEdBox").GetROProperty("text")
date2=left(date2,2)&mid(date2,4,2)&right(date2,2) ' 将日期中的"/"去掉
'另一种方法：date2=replace(date2,"/","")
' 判断日期是否符合
If date1=date2 Then
Reporter.ReportEvent micPass,"日期匹配","日期正确，两者匹配"
else
Reporter.ReportEvent micFail,"日期不匹配","日期不正确，两者不匹配"
End If
from1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("text")
from2=DataTable("p_FlyFrom", "02_New Order") ' 从2表获取出发地点
' 判断出发地点是否符合
If from1=from2 Then
Reporter.ReportEvent micPass,"出发地点匹配","出发地点与选定地点匹配"
else
Reporter.ReportEvent micFail,"出发地点不匹配","出发地点与选定地点匹配"
End If
to1=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("text")
to2=DataTable("p_FlyTo", "02_New Order") ' 从2表获取到达地点
' 判断到达地点是否符合
If to1=to2 Then
Reporter.ReportEvent micPass,"到达地点匹配","到达地点与选定地点匹配"
else
Reporter.ReportEvent micFail,"到达地点不匹配","到达地点与选定地点不匹配"
End If
num1=Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")
num2=DataTable("p_Tickets", "02_New Order") ' 从2表获取订票数
' 判断订票数是否符合
If num1=num2 Then
Reporter.ReportEvent micPass,"订票数匹配","订票数与选定票数匹配"
else
Reporter.ReportEvent micFail,"订票数不匹配","订票数与选定票数匹配"
End If
name1=Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
name2=DataTable("p_Name", "02_New Order") ' 从2表获取订票人
' 判断订票人是否符合
If name1=name2 Then
Reporter.ReportEvent micPass,"姓名匹配","姓名与输入姓名匹配"
else
Reporter.ReportEvent micFail,"姓名不匹配","姓名与输入姓名不匹配"
End If
' 发传真
Window("Flight Reservation").WinMenu("Menu").Select "File;Fax Order..."
Window("Flight Reservation").Dialog("Fax Order No.").Activate' 设置正则表达式，以确保每次发送均可找到该窗口
Window("Flight Reservation").Dialog("Fax Order No.").ActiveX("MaskEdBox").Type "1112223333"
Window("Flight Reservation").Dialog("Fax Order No.").WinButton("Send").Click
Window("Flight Reservation").Activate
Window("Flight Reservation").ActiveX("Threed Panel Control").WaitProperty "text", "Fax Sent Successfully...", 10000' 同步点
Next

04_Logout

' 退出系统

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"' 关闭系统

文章转载自http://blog.csdn.net/liyang19931127/article/details/49405613

共享代码——航班预订管理系统UFT脚本代码相关推荐

python代码实例sicket_Python socket聊天脚本代码实例
这篇文章主要介绍了Python socket聊天脚本代码实例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下没有前端,多开了一条线程用于接收信息. ...
python代码大全书籍_python代码实现图书管理系统
本文实例为大家分享了python代码实现图书管理系统的具体代码,供大家参考,具体内容如下图书管理系统功能简介添加图书时,图书ID不能重复,图书名可重复删除,查询,修改功能,输入图书名之后提供所 ...
图书管理系统python代码课程设计报告_python代码实现图书管理系统
本文实例为大家分享了python代码实现图书管理系统的具体代码,供大家参考,具体内容如下图书管理系统功能简介添加图书时,图书ID不能重复,图书名可重复删除,查询,修改功能,输入图书名之后提供所 ...
windows下tomcat8启动脚本代码剖析--catalina.bat
Windows下,Tomcat可以以服务形式启动.停止,也可以执行脚本启动(startup.bat).停止(shutdown.bat).执行startup.bat时会调用catalina.bat,ca ...
无代码开发+MES管理系统双向奔赴,MES进化新方向
如今,我国的工业企业已经站在了全球最大规模的产业变革的前沿,而MES管理系统是构建智能和数字工厂的关键体系,其重要性是毋庸置疑的.但当前,企业的业务发展速度越来越快,新的.个性化的应用场 ...
怎么引入gallery中的代码_驻马店【脚本代码】
驻马店[脚本代码],百变网络策划价格很低,在竞争激烈的网站建设行业,我们始终坚持以技术为核心,组建强大的技术开发团队,自主开发独立项目管理系统且安全稳定.简单易用:在业内具有强大的竞争力. 小白入门学 ...
mysql c语言写学生成绩管理系统,学生成绩管理系统C++实现代码
本文实例为大家分享了C++学生成绩管理系统的具体代码,供大家参考,具体内容如下 * (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学 ...
不用开着电脑，如何将脚本代码放到服务器上？
作者 | sergiojune 转载自公众号日常学python(ID:daily_learn) 程序员转行学什么语言? https://edu.csdn.net/topic/ai30?utm_sour ...
Linux oracle数据库自动备份自动压缩脚本代码
Linux oracle数据库自动备份自动压缩脚本代码 Linux oracle数据库备份完成后可以自动压缩脚本代码. 复制代码代码如下: #!/bin/bash #backup.sh #edit: ...

共享代码——航班预订管理系统UFT脚本代码

共享代码——航班预订管理系统UFT脚本代码相关推荐

最新文章

热门文章