51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2081|回复: 0
打印 上一主题 下一主题

[原创] 简单QTP描述性编程

[复制链接]
  • TA的每日心情
    奋斗
    2015-3-30 15:24
  • 签到天数: 3 天

    连续签到: 1 天

    [LV.2]测试排长

    跳转到指定楼层
    1#
    发表于 2013-7-5 18:30:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    本帖最后由 fsweicaixia 于 2013-7-8 12:14 编辑

    对程序不是很了解的测试同学们或许一时之间无法理解描述性编程,常问难不难等问题,其实不难,目前也在学习中...

    描述性编程,首先理解什么是描述,比如一个杯子,外形  高度  外观颜色  图案等进行描述,理解了描述,理解了什么是描述,再理解脚本内讲的描述。通过描述一些属性去查找符合条件(属性值)的对象,而java程序里面讲究的是面向对象(Object Oriented)思维,其基本思想是使用对象、类、继承、封装、多态等基本概念来进行程序设计,可以通过对象知道它包括哪些属性及属性值等等,而描述性语言恰好相反,通过属性找对象,具体案列如下:



    '-------------------脚本说明---------------
    '产品版本:
    '测试员:
    '编写日期:
    '测试功能:
    '脚本类型:
    '被测试对象初始状态:
    '进展程度:第一阶段
    '--------------------脚本内容-------------


    '通过读取Excel数据登录系统
    '将参数化的一些数据整理成excel数据,将代码和数据分离,方便后期脚本的维护,自动化测试不是一件简单的事情,做好自动化框架,'''对象库,脚本函数等共享工作。

    Dim i,rowcount,filepath,datatablename
    filepath = "d:\data\设备类型管理.xls"'测试数据文件
    datatablename = "设备类型管理"'QTP字典管理Action_datatable名称
    set datatable = getExcelData(filepath,datatablename)'将getExcelData函数返回值赋值给变量datatable
    rowcount = getRowCount(filepath,datatablename)'将getRowCount函数返回值赋值给变量rowcount

    With Browser("业务流程管理系统登录页面")

            With .Page("业务流程管理系统")
                    .Link("特种设备").Click
                    .Link("设备类型管理").Click
                    .WebElement("innerhtml:=基础设置","innertext:=基础设置").Click
                    .WebElement("innerhtml:=设备类型管理","innertext:=设备类型管理").Click
            End With

            With .Page("业务流程管理系统_2").Frame("title:=设备类型管理","html tag:=IFRAME")

                    For i = 1 to rowcount
                            datatable.SetCurrentRow i
                            .WebEdit("html id:=txt_Name","name:=txt_Name").Set datatable("Name","设备类型管理")
                            .WebEdit("html id:=txt_Code","name:=txt_Code").Set datatable("Code","设备类型管理")
                            .WebEdit("html id:=txt_Remark","name:=txt_Remark").Set datatable("Remark","设备类型管理")
                            .webButton("html id:=btn_Create","value:=新增").Click
                            If         Browser("业务流程管理系统登录页面").Dialog("来自网页的消息").WinButton("确定").Exist Then '返回true
                                    Browser("业务流程管理系统登录页面").Dialog("来自网页的消息").WinButton("确定").Click
                                    Reporter.ReportEvent micPass,"设备类型新增成功","suceecs"
                            else
                                    Reporter.ReportEvent micPass,"设备类型新增失败","error"
                            End If

                    Next

            End With

    End With
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-8 06:37 , Processed in 0.067182 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表