《qtp课程设计报告》由会员分享，可在线阅读，更多相关《qtp课程设计报告（5页珍藏版）》请在金锄头文库上搜索。
1、 实验报告封面课程名称： QTP 自动化测试技术 课程代码： ST2003 任课老师： 毛养红 实验指导老师: 毛养红 实验报告名称： QTP 课程设计报告 学生姓名： 吴思越 学号： 1540129231 教学班： KW 递交日期： 2017-5-1 签收人： 我申明，本报告内的实验已按要求完成，报告完全是由我个人完成，并没有抄袭行为。我已经保留了这份实验报告的副本。申明人(签名):吴思越实验报告评语与评分：评阅老师签名：一、实验名称： QTP 课程设计报告二、实验日期：2017 年 4 月 18 日三、实验目的：测试 Flight 订票系统的登录功能、订票功能四、实验用的仪器和材料：硬件：
2、PC 电脑一台；配置：内存，2G 及以上 硬盘 250G 及以上软件环境：QTP11、Flight 订票系统5、实验的步骤和方法：(以下 4 点均为分开实验)1、描述性编程的登录参数化,大数据测试。Dim obj1Set obj1= Description.Create()obj1(Class Name).Value=DialogFor i=0 to DataTable.GetSheet(Global).GetRowCountDialog(obj1).WinEdit(Attached text:=Agent Name:).Set DataTable(username, dtGlobalShee
3、t)Dialog(obj1).WinEdit(Attached text:=Password:).SetSecure DataTable(password, dtGlobalSheet)Dialog(obj1).WinEdit(Attached text:=Password:).Type micReturnWindow(Flight Reservation).WinMenu(Menu).Select File;ExitSystemUtil.Run C:Program Files (x86)HPQuickTest Professionalsamplesflightappflight4a.exeN
4、ext2、描述性编程及登录测试写一个循环，读取 datatable 的每一行测试用例 Dim i 定义变量 i Dim outputvalue 定义变量实际得到的输出 Dim istatus 定义变量希望得到的输出 For i=1 to datatable.GetSheet(Action1).getrowcount 从第一行，读到 datatable 的最后一行 Dialog(regexpwndtitle:=Login).WinEdit(attached text:=Agent Name:).Set DataTable(AgentName, dtLocalSheet)Dialog(regexp
5、wndtitle:=Login).WinEdit(attached text:=Password:).SetSecure DataTable(Password, dtLocalSheet)Dialog(regexpwndtitle:=Login).WinButton(name:=OK).Click Dialog(regexpwndtitle:=Login).Dialog(Flight Reservations).Static(Agent name must be at least 4 characters long.).OutputCheckPoint(Agent name must be a
6、t least 4 characters long.)Dialog(regexpwndtitle:=Login).Dialog(Flight Reservations).WinButton(确定).Clickoutputvalue=datatable(outmsg,dtlocalsheet) 获取该次循环的实际输出 istatus=datatable(status,dtlocalsheet) 获取该次循环的预期输出 If outputvalueistatus Then Reporter.ReportEvent micFail,登录测试, 实际的：+outputvalue+ 预期的：+istat
7、us+不相同! 报错 elseReporter.ReportEvent micPass,登录测试, 实际的：+outputvalue+ 预期的：+istatus+相同! 报对 End If datatable.GetSheet(Action1).setnextrow 获取下一行测试用例 Next Dialog(Login).WinButton(Cancel).Click Dialog(Login_2).WinButton(Cancel).Click3、写描述性编程：登录及买票的脚本。登录对话框Dialog(Regexpwndtitle:=Login).WinEdit(attached text
8、:=Agent Name:).Set AAAADialog(Regexpwndtitle:=Login).WinEdit(attached text:=Agent Name:).Type micTabDialog(Regexpwndtitle:=Login).WinEdit(attached text:=Password:).SetSecure 50cfda13f88e1aff562c68b65791e88de04949baDialog(Regexpwndtitle:=Login).WinEdit(attached text:=Password:).Type micReturnwait(5)等
9、待主窗口载入，该值可设为变量Dim winRez 主窗口 Flight Reservation 对象Set winRez = Description.Create() 创建一个 Description 对象，并绑定主窗口的类名和 titlewinRez(Class Name).Value = WindowwinRez(Regexpwndtitle).Value = Flight Reservation输入日期并选择地点Window(winRez).WinEdit(attached text:=Date of Flight: , nativeclass:=MSMaskWndClass).Type
10、 101017Window(winRez).WinEdit(attached text:=Date of Flight: , nativeclass:=MSMaskWndClass).Type micTabWindow(winRez).WinComboBox(attached text:=Fly From:).Select ParisWindow(winRez).WinComboBox(attached text:=Fly To:).Select Portland打开航班列表对话框选择航班Window(winRez).WinButton(text:=FLIGHT).ClickDialog(te
11、xt:=Flights Table).WinButton(text:=OK).Click回到主窗口，输入名字并下单Window(winRez).WinEdit(attached text:=Name: , nativeclass:=Edit).Set wheetleWindow(winRez).WinButton(text:=&Insert Order).Click 该按钮设置了快捷键，所以不能缺少&，否则无法识别wait(5) 等待下单完成，该值可设为变量4、循环遍历的脚本编写，测试为完成Dialog(Login).WinEdit(Agent Name:).Set AAAADialog(Lo
12、gin).WinEdit(Password:).SetSecure 58f86e7bc1df31117e206e928d7e5c3a2da74bf8Dialog(Login).WinEdit(Password:).Type micReturnWindow(Flight Reservation).WinObject(Date of Flight:).Type 101017For i=0 to Window(Flight Reservation).WinComboBox(Fly From:).GetItemsCount 第一个下拉菜单组Window(Flight Reservation).WinC
13、omboBox(Fly From:).Select i开始遍历For k=0 to Window(Flight Reservation).WinComboBox(Fly To:).GetItemsCount-1 Window(Flight Reservation).WinComboBox(Fly To:).Select k 开始遍历Window(Flight Reservation).WinButton(FLIGHT).Click选择航班键For p=0 to Window(Flight Reservation).Dialog(Flights Table).WinList(From).GetI
14、temsCount选择航班列表For b=0 to 2Window(Flight Reservation).Dialog(Flights Table).WinList(From).Select pWindow(Flight Reservation).Dialog(Flights Table).WinButton(OK).Click确认航班 ok 键Window(Flight Reservation).WinEdit(Name:).Set asdasdIf b=0 ThenWindow(Flight Reservation).WinRadioButton(First).SetEnd IfIf b=1 ThenWindow(Flight Reservation).WinRadioButton(Business).SetEnd IfIf b=2 ThenWindow(Flight Reservation).WinRadioButton(Economy).SetEnd IfNextNextNextNextWindow(Flight Reservation).Close六、数据记录和计算：指从实验中测到的数据以及计算结果。1、 2、 3 均为成功实验，而第 4 个实验还未有能力完善。七、实验结果或结论
