发布新日志

  • QTP中的描述性编程

    lvsh11 发布于 2007-10-12 16:29:51

    使用编程性描述(Using Programmatic Descrīptions

    在录制脚本时,QTP会将被测对象添加到对象仓库中。只要对象存在于仓库中,我们就可以在专家视图中使用该对象进行手动添加脚本。在脚本中,我们一般都使用对象的名称(该对象名称不区分大小写)作为对象描述。

    例如:

    在下面的语句中“username”是一个编辑框的名称。这个编辑框位于某页面(Page)之上(该页面的名称为“Mercury Tours”),并且该页面属于名为“Mercury Tours”的浏览器(browser)。

    Browser("Mercury Tours").Page("Mercury Tours").WebEdit("username")

    因为对象仓库中的对象的名称是唯一的,因此你只要在脚本中指定对象的名称即可。QTP根据指定的对象名称以及它的父对象在对象仓库中找到该对象,然后根据仓库中对象的详细描述从被测试程序中查找并识别对象。

    其实,在QTP脚本中,不使用对象仓库或对象名称,也可以对被测程序中的对象进行操作。为了做到这一点,我们需要在QTP脚本中提供对象的属性及其值的列表。这就是编程性描述。

    当对象不存在于对象仓库之中,而我们又希望操作该对象时,编程性描述就非常有用。如果有多个对象,它们具有某些相同的属性,通过编程性描述,我们可以在这些对象上进行相同的操作;或者某个对象的属性无法确定,需要在运行过程中指定,我们也可以使用编程性描述,来对该对象进行操作。

    例如:在一个页面有多个check box,你不能预知其个数,也不知道所有check box的准确描述,然而你希望选中所有的check box。在这种情况下,你可以使用编程性描述来解决。你只需要让QTP对所有描述为 HTML TAG=input,TYPE=check box的对象执行一个 Set “ON”的操作即可。

    编程性描述的方法有两种:

    方法一:在语句中直接列出对象的属性及值的列表;

    方法二:使用Descrīption对象,为Descrīption对象添加属性及值的集合,然后在语句中直接使用Descrīption对象的名称即可。

    使用第一种方法要简单一些,但是在很多情况下,第二种方法更显得功能强大并更有效率。

    在语句中直接使用编程描述(Entering Programmatic Descrīptions Directly into Statements

    在语句中不使用对象的名称,而是使用对象的描述(指定多对property:=value值)。

    通常语法如下:

    TestObject(“PropertyName1:=PropertyValue1”,”,“PropertyNameX:=PropertyValueX)

    TestObject:指的是测试对象的类名

    PropertyName:=PropertyValue:指的是测试对象的属性及值。每对property:=value用双引号标记,并用逗号隔开。

    注:property value可以是变量。

    注意:在编程性描述中,QTP将所有的property value视为正则表达式。因此,当property value中包括正则表达式特殊字符(如*,?,+)时,要在特殊字符前加“\”

    下面的语句中,使用到了Mercury Tours网页中的一个WebEdit对象,它的NameAuthorIndex3。在运行过程中,QTP就会从网页中查找NameAuthor并且Index3WebEdit对象,并在WebEdit中输入文字“MarkTwain”。

    Browser("Mercury Tours").Page("Mercury Tours").WebEdit("Name:=Author", "Index:=3").Set "Mark Twain"

    注意:如果你对测试对象层级关系中的某个上级对象使用了编程性描述,那么在同一语句中,从该对象开始,它的所有下级对象都必须使用编程性描述,否则QTP不能识别该父级对象的下级对象。

    例如:语句中,层级关系中所有的对象都使用了编程性描述:

    Browser("Title:=Mercury Tours").Page("Title:=Mercury Tours").WebEdit("Name:=Author", "Index:=3").Set "Mark Twain"

    下面的语句中,从层级关系中的某个点开始,使用编程性描述(从Page对象开始):

    Browser("Mercury Tours").Page("Title:=Mercury Tours").WebEdit("Name:=Author", "Index:=3").Set "Mark Twain"

    但是,你不能象下面的语句这样使用编程性描述。(它对BrowserPage对象使用了编程性描述,但是对于WebEdit对象,却又想使用对象仓库中的名称)

    Browser("Title:=Mercury Tours").Page("Title:=Mercury Tours").WebEdit("Author").Set "Mark Twain"

    QTP偿试根据WebEdit的名称在仓库中定位对象,但是却无法在仓库中找到它的父对象。

    For more information on working with test objects, see Working with Test Objects.

    如果在脚本中你要多次使用到相同的编程性描述,可以将对象指定到变量。

    例如,有如下脚本:

    Window("Text:=Myfile.txt - Notepad").Move 50, 50

    Window("Text:=Myfile.txt - Notepad").WinEdit("AttachedText:=Find what:").Set "hello"

    Window("Text:=Myfile.txt - Notepad").WinButton("Caption:=Find next").Click

    你可以将脚本改进为:

    Set MyWin = Window("Text:=Myfile.txt - Notepad")

    MyWin.Move 50, 50

    MyWin.WinEdit("AttachedText:=Find what:").Set "hello"

    MyWin.WinButton("Caption:=Find next").Click

    你还可以使用With语句,将脚本改进为:

    With Window("Text:=Myfile.txt - Notepad")

           .Move 50, 50

           .WinEdit("AttachedText:=Find what:").Set "hello"

           .WinButton("Caption:=Find next").Click

    End With

    For more information about the With statement, see With Statement.

    在编程性描述中使用Descrīption对象(Using Descrīption Objects for Programmatic Descrīptions

    你可以使用Descrīption对象,来返回一个Properties collection对象,该集合对象包括一系列Property对象。每个Property对象由Property namevalue组成。

    然后在语句中用Properties collection对象替代被测对象的名称。

    注意:默认情况下,所有被添加到Properties collection中的Property对象的值被当成正则表达式对待。因此,当Property Value中包含正则表达式的特殊字符(如*?+)时,要在特殊字符前使用“\”符号。

    你也可以在Properties Collection中,将RegularExpression属性值设置为False,这样即使在Property Value中用到了正则表达式的特殊字符,也会被视为普通字符。更多信息参考QuickTest Professional Object Model ReferenceUtility部分。

    要创建Properties collection,使用Dexcription Create语句,语法如下:

    Set MyDescrīption = Descrīption.Create()

    一旦创建了Properties 对象(例如上例中的Mydescrīption,在运行过程中,你就可以使用语句向Properties对象添加、编辑、移除或获取属性及属性值。这使你在运行过程中可以动态的决定:在对象描述中使用哪些属性、使用多少属性。

    当你将一系列的属性及属性值加入到Properties collection中以后,你就可以在脚本语句中用Properties对象替代被测对象的名称。

    例如,有如下语句:

    Window("Error").WinButton("text:=OK", "width:=50").Click

    通过改造,成为:

    Set MyDescrīption = Descrīption.Create()
    MyDescrīption("text").Value = "OK"
    MyDescrīption("width").Value = 50
    Window("Error").WinButton(MyDescrīption).Click

    注:当为一个ActiveX对象创建编程性描述时,如果该对象的run-time对象是windowless的(即没有相应的window handel),就必须在属性描述中将它的windowless property设置为Ture

    例如:

    Set ButDesc = Descrīption.Create
    ButDesc("ProgId").Value = "Forms.CommandButton.1"
    ButDesc("Caption").Value = "OK"
    ButDesc("Windowless").Value = True
    Window("Form1").AcxButton(ButDesc).Click

     

    获取Child ObjectsRetrieving Child Objects

    通过ChildObjects方法,可以获取指定对象下的所有子对象,或只获取那些符合编程性描述的子对象。为了获取某对象的子对象的子集,首先需创建一个descrīption对象,然后在该对象的descrīptions collection中添加一系列的属性及属性值,这些属性及属性值必须符合子集的要求。

    注意:你必须使用Descrīption对象来为ChildObjects描述参数 创建编程性描述,不能使用property:=value语法直接将编程性描述添加到参数中。

    一旦你已经在descrīption对象中“built”了描述,就可以使用下面的语法来获取与描述匹配的子对象:

    Set MySubSet=TestObject.ChildObjects(MyDescrīption)

    例如:下面的语句使QTP选中网页中的所有选择框:

    Set MyDescrīption = Descrīption.Create()

    MyDescrīption("html tag").Value = "INPUT"

    MyDescrīption("type").Value = "checkbox"

    Set Checkboxes = Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)

    NoOfChildObjs = Checkboxes.Count

    For Counter=0 to NoOfChildObjs-1

           Checkboxes(Counter).Set "ON"

    Next

    For more information about the ChildObjects method, refer to the QuickTest Professional Object Model Reference.

    WebElement对象使用编程性描述(Using Programmatic Descrīptions for the WebElement Object

    如果没有录制WebElement对象,也可以使用编程性描述,来对Web网站中的任何一个WebElement对象进行操作。

    例如:

    Browser("Mercury Tours").Page("Mercury Tours").WebElement("Name:=UserName", "Index:=0").Click

    set WebObjDesc = Descrīption.Create()

    WebObjDesc("Name").Value = "UserName"

    WebObjDesc("Index").Value = "0"

    Browser("Mercury Tours").Page("Mercury Tours").WebElement(WebObjDesc).Click

    QuickTest clicks on the first Web object in the Mercury Tours page with the name UserName.

    关于WebElement对象的更多信息,参考QuickTest Professional Object Model Reference

    在编程性描述中使用Index属性(Using the Index Property in Programmatic Descrīptions

    在需要唯一识别一个对象时,index属性有时候可能非常有用。index属性是对象在源代码中出现的顺序,第1次出现时,index值为0

    Index属性是object-specific的。因此,当你用index属性值“3来描述一个WebEdit对象时,QTP会在被测程序的当前页面中查找第4WebEdit对象。

    如果你使用index属性值3来描述一个WebElement对象时,QTP会在被测程序的当前页面中查找第4Web对象。

    例如,当前页面中存在下面的对象:

    • 一个名为QppleImage对象
    • 一个名为UserNameImage对象
    • 一个名为UserNameWebEdit对象
    • 一个名为PasswordImage对象
    • 一个名为PasswordWebEdit对象

    下面的语句中指的是列表中的第3个对象,因为它要求指向的是第1个名为UserNameWebEdit对象。

    WebEdit("Name:=UserName", "Index:=0")

     

    下面的语句中指的是列表中的第2个对象,因为它要求指向的是第1个名为UserNameWebElement对象。

    WebElement("Name:=UserName", "Index:=0")

    注:如果当前只有一个对象,使用index=0将无法查找到对象,因此就不能在对象描述中使用index属性。

  • QTP精华问题

    lvsh11 发布于 2007-10-17 15:56:40

    QTP问与答

    1.Q:runaction 后面能不能接变量(动态调用action,所以从数据库取数据做action名字了,但是调用总是找不到)?  
      A:脚本中原有RunAction "testbase [case1]", oneIteration
        把引号中的内容放到Global表中的第22行,然后将代码修改为:
        datatable.getsheet("Global")
        datatable.setcurrentrow(22)

        strLogin=DataTable("ActionName","Global")
        RunAction strLogin, oneIteration
       
        help中也有相关帮助
        如:
        Syntax
        RunAction ActionName, [IterationMode , IterationRange , Parameters]
        ActionName : String : The name of the action



    2.Q:QTP8.2 中调用VB函数的问题(用VBscrīpt写了一些测试脚本需要的几个通用函数,有没有办法可以用类似include的方式进行调用,而不需要每次都把这些函数Copy到新的脚本中)?
      A:程序开头加上ExecuteFile "..\..\..\project\DeVariable.vbs"



    3.Q:QTP 如何做回归测试(300多个TestCase,TD是否可以管理) ?
      A:TD可以实现,可以生成测试集,一个测试集可以包含若干个测试脚本
        QTP8.2本身提供一个工具Test Batch Runner但是运行完没有报告。
        MI有另一个工具叫MTM(multitestmanager)



    4.Q:qtp 自动节图功能

    A: 具体可参考此帖:[url]http://www.51testing.com/cgi-bin[/url] ... d=17663&fpage=1



    5.Q: 在QTP中如何设置使用别的浏览器(XP系统,用IE访问程序时,每次总提示屏蔽安装ActiveX插件,需要手动安装.但把这个过程录制到QTP后,回放一次是成功的。当我给某个输入框参数化了好多数据后,回放过程中,某些就会失败.
        可能有两个方面可以解决这问题1、每个动作设置延迟时间 2、设置为用别的浏览器。)
        (失败的提示信息是  object not visible)
      A:1.延迟可用WAIT X(X单位是秒)
        2.可以安装插件添加新的浏览器
           SystemUtil.Run "file” "params" "dir" "op'' "mode"
           QTP运行可执行文件的方法及其参数
         ps: 建议是用IE浏览器,或者IE内核浏览器做测试



    6.Q:checkpoint 检查网页,是否能实现只要网页出现乱码就返回错误报告?
      A:Text not displayed能解决问题
        关于 Text Checkpoint 的总结。
        1)Text Checkpoint 的检查部分分为三个部分。Checked Text 、Text Before 、Text After。在默认的情况下,Checked Text执行的是精确检查,其余两个部分执行的是模糊检查。Text Before(After)检查的内容可以比实际的内容少。但是不能有和是实际内容不相符的地方,否则就失败。
        2) Exact match选项。如果选择了这个选项,三部分完全都进行精确检查。个人觉得和只检查checked Text部分没有区别。
        3) Text not displayed。这个选项本质上就是一个结果取反的过程。就是把检查的结果给反过来,把pass变成Fail,Fail变成pass。我觉得这样就很容易理解。



    7.Q:WSH 的应用方法
      A:WSH 实际上是一个脚本语言的运行环境,它之所以具备强大的功能,是在于其充分挖掘了脚本语言的潜力。因此,如果抛开脚本语言而空谈 WSH ,那实际上就没有了意义。而如果再展开来讲述脚本语言,显然就离开了今天的主题。

    在这种情况下,只好采取一种折衷的方法:给大家推荐几个脚本文件利用 WSH 执行任务的实例,希望大家能通过这些例子对 WSH 的使用有一个初步的认识。

      脚本文件的编写十分方便,你可以选用任意一个文字编辑软件进行编写,编写完成后,只需将它保存为 WSH 所支持的文件名就可以了(如.js 文件和.vbs 文件)。最常用的就是记事本编辑器,下面的实例都是以它作为工具编写的。

    打开记事本编辑器,在上面编写如下内容:
      Wscrīpt.Echo("走近 WSH")
      将它保存为以 .vbs 或 .js 为后缀名(千万不要写成了 .txt)的文件并退出记事本。双击执行这个文件。
      这一次,我们要利用 WSH 完成一次创建十个文件夹的工作。代码如下:
      dim objdir
      set ōbjdir=wscrīpt.createobject("scrīpting.filesystemobject")
      for k=1 to 10
      anewfolder="c:\chapter" & k
      objdir.createfolder(anewfolder)
      next

    同样,将它存为 .vbs 文件并退出。运行后,我们会发现,C 盘根目录下一次性多出了十个新文件夹。

        最后,再举一个在服务器上的运用。下面的代码将帮助你重新启动指定的 IIS 服务:  ' define a constant for stopped services
      Const ADS_SERVICE_STOPPED = 1

    ' get an ADSI object for a computer
      Set ōbjComputer = GetObject("WinNT://MYCOMPUTER,computer")

    ' get an object for a service
      Set ōbjService = objComputer.GetObject("Service","MYSERVICE")

    ' check to see if the service is stopped
      If (objService.Status = ADS_SERVICE_STOPPED) Then

    ' if the service is stopped, then start it
      objService.Start

      End If

    将它以 startsvc.vbs 为名保存在 C: 盘根目录。并通过如下命令执行:Cscrīpt C:\STARTSVC.VBS。运行后,经你指定的 IIS 服务项将被重新开启。

    其实,在 Windows 的 samples 目录下,有个 WSH 文件夹,那里面有不少很具代表性的 .vbs 和. js 脚本文件。

    此外,利用 WSH 还可以自己编写脚本文件来提高网络管理方面的效率。


    8.Q; 从 EXCEL 中导出数据进行测试

    datatable.AddSheet("51sheet")
    datatable.ImportSheet "f:\test.xls","testsheet","51sheet"

    Dim i,RowCount ' 定义两个变量
    i=0
    RowCount=datatable.GetSheet("51sheet").GetRowCount ' 设置 RowCount 等于 51sheet 中的行数。
    msgbox RowCount
    Do while i<rowcount
    i=i+1 ' 第一次进入循环,执行这句后, i=1
    'datatable.getsheet("51sheet").setcurrentrow(i)   这句话被我注释掉了,正确的写法应该是下面这样,分开写。

    datatable.getsheet("51sheet")
    datatable.setcurrentrow(i)

    ' 执行过上面两句后, CurrentRow 是第一行。

    tempData=DataTable.GetSheet("51sheet").GetParameter("Name").Value
                      
    ' 现在,我们调用 msgbox 看看下面这种调用方法得到的是什么值?没错,是第一行的值,下一次循环呢?
    ' 得到的是第二行的值么?
    msgbox "GetParameter-Name:"&tempData ' 这里弹出我们要看的值。
    ' 下面我们用另外一种方法来得到。
    msgbox "GetParameter-i:"&DataTable.GetSheet("51sheet").GetParameter(1).Value ' 这里我用 GetParameter(1) 去得到 sheet 中第一列的值。
    loop



    9.Q: 关于 dtGlobalsheet 与 dtGlobalsheet

    1) dtGlobalsheet 只有一个,它的 index 值比较特殊,它有两个 index 值,一个是 1 还有一个是内置的默认的 1000 。
    你可以用 1 或者 1000 去引用它都是正确的。当然了,如果你用 dtGlobalsheet 来引用它也是正确的。这个 sheet 的 Name 叫做 "Global" 。注意: SheetName 是区分大小写的。
    2) dtLocalsheet 可以用 index:1001 来引用,当然,也可以用 2 来引用。至于其它自定义的 sheet 嘛,你就只能用 index:3 来引用了。
    它没有内置的默认的类似前两个那样的 index 值。
    3) datatable 这个对象只有一个。就是所有 sheet 的集合。或许你把它理解为 excel 文件比较好。
    dtsheet 呢?就是其中的每个 sheet 。所不同的就是 MI 为他们做了一些默认值。在我们的应用中,可能会有多个 action, 如: actiion1,actiion2,actiion3
    这些 action 也分别对应有各自默认的 LoaclSheet. 即: actiion1 , actiion2 , actiion3 。

    如果每个 action 中,我们都只用到一个 sheet ,那就好办了,在每个 action 中都可以用 localsheet 来引用,但是如果我们有两个及两个以上的 sheet. 那么就比较容易乱套了。



    10.Q: 移动当前位置的行

    For i=1  to 3
    datatable.getsheet("Global")
    datatable.setcurrentrow(i)
    DataTable("C","Global") = DataTable("nodename","Global") ‘把表Global中的nodename字段中的内容取出来。
    Next



    11.Q: 如何能记录到页面的校验码?(Output value能不能得到web页面的校验码,一般的校验码是由图片随即生成的 ,用QTP怎么录脚本在登陆前得到校验码并输入到校验码一栏)
       A:1)一个很简单的方法:测试时叫开发屏蔽掉检验码的功能后,再录制脚本。检验码的功能可以手工很简单测试出来。
         2)想得到图片的校验码,唯一的方法就是跟程序员拿程序,然后自己在脚本里面写FUCNTION!
            其它就要手动输入了!



    12.Q:QTP 正则表达式的帮助
       A:见附件word文档

    附件: QTP regular expression usage.doc (2005-9-8 18:32, 26.5 K)



    13. 自动测试实施计划
       1)分析实施自动化测试可能存在的风险:就是决定是否实施, 用成本 时间 效果 。。
       2)制定实施的时机:也就是在什么阶段
       3)研究所要测试的功能 性能
       4)分析在测试中可能遇到的问题 和困难
       5)预估所需要的人时和相应的硬件
       7)确定负责人员和相关测试人员
       6)制定详细的测试计划 方案
       7)最后是执行计划



    14.Q: 一个Action里如何调用在另一个Action中定义的函数、过程(或变量、常量)
       例如:
       -----------------------------------
       'Action_A
         Public strURL   
            ...... ......
        Function QueryList()
            ...... ......
            ...... ......  
        End Function
       ------------------------------------
       'Action_B
       '如何调用 QueryList函数和strURL
       A:1)可以把这些变量和Function放在vbs文件作为resource文件共享,在每个Action中添加该文件.         

    如果function中出现控件调用,那么必须确保该控件在相应的Action的object repository中是存在的.
      2)定义一个可被调用的ACTION里面唯一的放一个FUNCTION

    wing1799 2007-10-3 15:17

    15.Q: 如何管理QTP的源代码?(QTP生成的源代码比较多,而且和环境控件都有关,假如需要多人同时开发, 请问如何管理源代码?)
       A: 一个是代码你可以通过vss,cvs等来进行管理
         一个是通过td或者qc的基于用例的代码管理      

    其实第一种方法是基于版本控制来进行的,第二种方法是基于用例管理进行的
         角度不同,管理方法也不同,不过团队协作需要的大家分工明确,进度控制。代码管理可以借鉴开发的方法。



    16:Q: 脚本不能回放,IE中的AtiveX设置有问题??
       A: TOOL---OPTIONS----Ative screen
         然后点开advanced..,把LOAD  ACTIVEX CONTROLS打勾
         TOOL---OPTIONS----Ative screen
         然后点开advanced..,run scrīpts-->disabled!



    17 .Q: 如何参数化link

    Browser("Browser").Page("Page").Sync
    Browser("Browser").Navigate "http://www.51testing.com/cgi-bin/index.php"
    Browser("Browser").Page("51Testing 软件测试论坛---软件测试,软件质量工程师").Sync

    Set tags=Browser("Browser").Page("51Testing软件测试论坛---软件测试,软件质量工程师").Object.links
    Dim i,j, arr()
    i=0
    For Each element in tags
        If Ucase(element.tagname)="A" and left(element.InnerText,1)="[" Then
                            ReDim Preserve arr(i+1)
                        arr(i)=element.InnerText
        i=i+1
            end if
    Next



    For j=0 to i
                            Browser("Browser").Page("51Testing软件测试论坛---软件测试,软件质量工程师").Link("[ 版主讨论区 ]").SetTOProperty "Text",arr(j)
                Browser("Browser").Page("51Testing软件测试论坛---软件测试,软件质量工程师").Link("[ 版主讨论区 ]").Click
                            Browser("Browser").Back
    Next

    这段代码先是打开一个空的页面,然后输入url.
    到达论坛首页。

    然后得到所有版面的名称,也就是link的名称。
    存到数组里面。
    然后使用SetTOProperty更换录制时候录下的link的属性。
    这时候再click





    18. Q:QTP 在Debug狀態,在Export View 區域不能寫入任何東西

    A: 如果你的目的是在debug过程中修改已执行过的命令,可以在Debug view的Command中执行命令,如重新执行已经执行过的命令,修改变量的值等等。

    如:Window("Flight Reservation").WinEdit("Name:").Set "51testing"
    已经执行,如果现在想修改“51testing”为“testing”,可以在command中执行
    Window("Flight Reservation").WinEdit("Name:").Set "testing"



    19 .Q: 动态变化值如何获取

    A:VAL=Browser("欢迎使用我的工作台").Page("欢迎使用我的工作台").Frame("managePlace_7").WebRadioGroup("userAccountId_0").GetROProperty("Value")
    Browser("欢迎使用我的工作台").Page("欢迎使用我的工作台").Frame("managePlace_7").WebRadioGroup("userAccountId_0").select val



    20 .Q: 如何一一获得Table中 某栏 link 的 text?

    A:通过上面link 的学习. 我终于融会贯通,完成了我的问题: 与大家共享:


    //////////////////////////////////////////////////////////////////////////////////////
    Browser("Login").Page("Page").Frame("contents").ViewLink("treeview").Image("Tplus").Click
    Browser("Login").Page("Page").Frame("contents").ViewLink("treeview").Image("Tplus_2").Click
    Browser("Login").Page("Page").Frame("contents").ViewLink("treeview").Link("开课设置").Click
    Browser("Login").Page("Page").Frame("main").WebList("drpStatus").Select "任意"
    Browser("Login").Page("Page").Frame("main").WebButton("查找").Click
    Browser("Login").Page("Page").Sync

    Dim finded,findCode,Nowout
    'define a constrat for find
    findCode = 110901   
    finded = false

    Function MaxPage(pageString)
       'msgbox pageString
       Dim ilen,i,j
       ilen = len(pageString)
       i=ilen
       While i>0
            j = mid(pageString,i,1)
               'msgbox j
               If instr("123456789",j)>0 Then
               MaxPage = j
                       'msgbox MaxPage
                       Exit function
               End If
               i=i-1
       Wend
    End Function

      
    Dim trowcount,maxp
    trowcount = Browser("Login").Page("Page").Frame("main_8").WebTable("开课代码").RowCount
    msgbox "Rowcount: "&trowcount
    Nowout = Browser("Login").Page("Page").Frame("main_8").WebTable("开课代码").GetCellData(trowcount,1)
    Nowout = trim(Nowout)
    maxp = MaxPage(Nowout)
    msgbox "max page: "& maxp

    Dim nowPage,checkid
    For nowPage = 1 to maxp
       If  finded Then
               Exit for
       End If
      ' link to the 当前所需page
      If nowpage>1 Then
        Browser("Login").Page("Page").Frame("main_8").Link("[2]").SetTOProperty "Text","["&nowpage&"]"
        Browser("Login").Page("Page").Frame("main_8").Link("[2]").Click
        Browser("Login").Page("Page").Sync
       end if

      ' Get the rowcount of table in now page
       trowcount = Browser("Login").Page("Page").Frame("main_8").WebTable("开课代码").RowCount
       msgbox "Rowcount: "&trowcount

      'link every record in the table of the page
       for i = 2 to trowcount  - 2
            Nowout = Browser("Login").Page("Page").Frame("main_8").WebTable("开课代码").GetCellData(i,2)
            'msgbox i&": "&Nowout

        checkid = "dgCourse:_ctl" &(i+1)& ":_ctl0"
        Browser("Login").Page("Page").Frame("main_8").WebCheckBox("dgCourse:_ctl3:_ctl0").SetTOProperty "name",checkid
        Browser("Login").Page("Page").Frame("main_8").WebCheckBox("dgCourse:_ctl3:_ctl0").Set "ON"
            
        Browser("Login").Page("Page").Frame("main_8").Link("0901").SetTOProperty "Text",Nowout
        Browser("Login").Page("Page").Frame("main_8").Link("0901").Click
        Browser("开课设置详细信息").Page("开课设置详细信息").Sync
            'wait(1)
            msgbox "begun"
            msgbox findCode
            msgbox Nowout
            msgbox "finished"
            If  trim(findCode) = trim(Nowout) Then
            finded = true
                    msgbox "find is ok!"
                    wait(2)
                    Exit for
            End If
        Browser("开课设置详细信息").Close
        Browser("Login").Page("Page").Sync
      next

    Next



    21 .Q:网页下拉框的选择

    A:For i =1 to 10
        Randomize
        IndexNum=Int((10 - 5 + 1) * Rnd + 5)
        Browser("Mercury Tours").Page("Find Flights_2").WebList("arrive").Select "#"&IndexNum
        wait(3)
    Next



    Sub ChildObjects_Example()
    'The following example uses the ChildObjects method to find all the
    'list objects on a Web page, and then to select an item in each list.

    Set ōDesc = Descrīption.Create()
    oDesc("micclass").Value = "WebList"
    Set Lists = Browser("Mercury Interactive").Page("Mercury Interactive").ChildObjects(oDesc)
    NumberOfLists = Lists.Count()
    For i = 0 To NumberOfLists - 1
    Lists(i).Select i + 1
    Next


    End Sub



    22 .Q: 将测试数据单独拿出来

    A: 取得一个
    Browser("Browser").Page("").WebList("fid").GetItem (1)
    取得全部
    Browser("Browser").Page("").WebList("fid").GetROProperty("all items")



    以下可以在自带的例子中实现
    Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
    a=window("Flight Reservation").wincombobox("Fly From:").GetItem(1)
    reporter.ReportEvent 2,"下拉列表的值",a



    23 .Q:和TD连接

    A:在QTP中不是有个Quality Center Connection,选择服务器连接,服务器处输入类似http://computer_name/tdbin,其中computer_name为服务器的名字,连接后在测试结果中添加defect就可以与TD相连了。



    24 :Q:处理Windows弹出窗口

    A:IF Not Window("Flight Reservation").Exist(1) Then
                            'Calling  open flight
                   If    not Dialog("Login").Exist(1)  Then
                                                        Browser("管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

                                             End If



    25 .Q:查询结果的比较

    这是查询一个字段的,对查询结果多页的情况也涉及了,其实应该把所有查询字段联合起来的,也就是改改sql语句和判断条件。

    [i]Set Conn = CreateObject("ADODB.Connection")
    Set Rs = CreateObject("ADODB.Recordset")
    Conn.Open "Descrīption=kml-it;DRIVER=SQL Server;SERVER=KML-IT;UID=sa;PWD=password;APP=QuickTest Professional;WSID=KML-MICHELLE;DATABASE=kml_db"
    sql="select distinct grn_no from grn_dtl where grn_no like '%"&grnNo&"%' order by grn_no DESC"
    Rs.open sql,Conn,1,3
    Dim i,j,cell
            i=1
            j=2 'j=2 的原因是因为页面上table是的数据是隔一行一条,不知   道怎么回事,开发人员弄的怪把
                    Do while not rs.eof
                            If i=13 Then  '13是每页显示出的最大行数,是个常数
                                    i=1
                                    j=2
                                     Browser("::").Page("::").Frame("mainFrm_5").Link("下一页").Click
                            end if
                            cell=Browser("::").Page("::").Frame("mainFrm_5").WebTable("收货单号").GetCellData(j,2)
                            If cell<>rs("grn_no") Then
                    Reporter.ReportEvent 1, "查询功能"&cell, "查询结果错误."
                                    Exit do
                            else
                                    Reporter.ReportEvent 0, "查询功能"&cell, "查询结果正确."
                            End If
                            rs.movenext
                            j=j+2
                            i=i+1
                    Loop
    rs.close
    conn.close
    set conn=nothing[/i]
  • Mantis安装与配置

    li_feibo 发布于 2012-07-14 09:40:28

    什么是Mantis

    MantisBT is a free popular web-based bugtracking system (feature list). It is written in the PHP scripting language and works with MySQL, MS SQL, and PostgreSQL databases and a webserver. MantisBT has been installed on Windows, Linux, Mac OS, OS/2, and others. Almost any web browser should be able to function as a client. It is released under the terms of the GNU General Public License (GPL).

     


    Mantis
    是一个BUG管理系统。主要特点如下:

    1、 php写的系统,安装方便,不用像 bugzilla 那样安装那么多perl支持;

    2、 系统相对简单轻磅,使用简单;

    3、 出色的多语支持,对于对日开发等公司非常合适;

     

    界面图示:

     


          
     在线演示地址:
    http://www.futureware.biz/mantisdemo

     

    环境搭建及Mantis安装、配置

    由于Mantis是用php写的系统,而要调试php程序当然要用到apache+php+mysql,而apache+php+mysql配置起来却又是很麻烦的事,这还不包括环境冲突、、、等等,这些又或者是那些导致配置失败的问题。但刚巧有这么一个套件可以省去这些以前是需要解决的问题,这个套件就是EasyPHP了。EasyPHP集成了:ApachePHPMySQLPhpMyAdmin

    以上软件可参考文章最后的参考资料。

    适用范围

    本文介绍基于Windows下的Mantis BUG管理系统的搭建。

    软件下载

    Mantis下载地址:http://www.mantisbt.org/

    EasyPHP下载地址:http://www.easyphp.org/

     

    本文以mantis-1.1.0a4+ EasyPHP-3.1为演示版本,并测试通过。

    安装EasyPHP

             安装EasyPHP很简单,双击下载到的EasyPHP-3.1.exe,然后一直默认点击Next即可安装完成。当然啦,在License Agreement页面是必须选择I Access The Agreement……

           软件默认目录:C:"Program Files"EasyPHP3.1 

     安装进度

           

          Installing…
          

                
          Completing!

     

    EasyHPH成功安装!勾选上“Open Help”、“Launch EasyPHP”,点击“Finish”。可看到如下页面:
               
          若成功运行时,双击在
    Windows托盘的 图标,可看到如下图所示,ApacheMySQL的右边都是显示“Started”并亮绿灯的。 
           
      
        已知问题

    1、 Apache没有正常运行,可能是因为Apache的默认使用的80端口被占用(Apache端口修改方法请继续往下阅读);

    2、 若找不到原因,请重新启动电脑,据说重新启动电脑可以解决80%的问题,希望你遇到的不是余下的20%中的

    安装Mantis

    1、 将下载到的mantis-1.1.0a4.rar解压到mantis文件夹;

    2、 EasyPHP安装目录,打开C:"Program Files"EasyPHP3.1"www"

    3、 mantis文件夹复制到C:"Program Files"EasyPHP3.1"www"下;

    安装Phpmyadmin

    1、 打开C:"Program Files"EasyPHP3.1

    2、 phpmyadmin文件夹剪切到C:"Program Files"EasyPHP3.1"www"

    建立Bug数据库

    1、 右键Windows托盘的 图标,选择“Local Web”,(或者在IE地址中输入“http://127.0.0.1/”)可看到如下页面:

     

     

    2、 点击选择“mantis”,进入页面:

     

    3、 不用修改/填写任何值,直接点击页面最下方的“Install/Upgrade Database”按钮 

    4、 成功后可看到如下页面:


    OK,到此为止,Mantis系统已经搭建成功了。下面立刻验证一下是否已配置成功!

          1、 再次右键Windows托盘的 图标,选择“Local Web”,(或者在IE地址中输入“http://127.0.0.1/”)可看到如下页面:


    2、 
    点击选择“mantis”(或可省略步骤,直接在IE地址中输入“http://127.0.0.1/mantis/login_page.php”),进入页面:

    配置完成的
    Mantis的只有一个默认的系统管理员用户:

    账号:administrator

    密码:root

     

    就这么简单,一个Bug管理系统就配置完成了,Mantis已经可以投入使用啦!但——实际使用中还是会有问题产生,如:Mantis配置完成后,默认配置完成的系统是English版本的,且只支持English,不支持Chinese,具体表现在:若在任何一个字段中输入中文成功保存后,再显示出来就是乱码(而解决中文显示乱码的问题很是棘手,且根据情况的不同解决的方法也不同,在网上搜索一下就有一大堆。。。),具体解决方法请继续往下Look……

    中文版配置

    配置完成时,Mantis默认为English系统,而要使用中文版Mantis则需要修改配置文件。

    配置方法:

    打开Mantis目录(C:"Program Files"EasyPHP3.1"www"mantis"),用记事本打开config_defaults_inc.php 文件,找到如下代码片段:

             。。。。。。

    # --- language settings -----------

     

    # If the language is set to 'auto', the actual

    # language is determined by the user agent (web browser)

    # language preference.

    $g_default_language                = 'english';

    。。。。。。

    english  改为chinese_simplified
    修改完成后的代码片段如下所示:

    ……

    # --- language settings -----------

     

    # If the language is set to 'auto', the actual

    # language is determined by the user agent (web browser)

    # language preference.

    $g_default_language                = 'chinese_simplified';

    ……

     

    验证配置是否成功:

    再次在IE中登录Mantis系统“http://127.0.0.1/mantis/login_page.php”),进入页面:

     

     OK,成功了。登录后,也一样是全中文的界面: 

     

     

    局域网访问

    配置完成时,Mantis默认为只能够本机访问,若要在局域网内访问则需要修改Apache的配置文件。

    配置方法:

    打开apache目录(C:"Program Files"EasyPHP3.1"apache"conf"),用记事本打开httpd.conf 文件,找到如下代码片段:

             。。。。。。

    #

    # Listen: Allows you to bind Apache to specific IP addresses and/or

    # ports, instead of the default. See also the <VirtualHost>

    # directive.

    #

    # Change this to Listen on specific IP addresses as shown below to

    # prevent Apache from glomming onto all bound IP addresses.

    #

    #Listen 12.34.56.78:80

    Listen 127.0.0.1:80

     

    。。。。。。

     

    Listen 127.0.0.1:80下一行加入一段代码 Listen 192.168.1.101:80

    192.168.1.101Mantis服务器的IP地址

    修改完成后的代码片段如下所示:

    ……

    #

    # Listen: Allows you to bind Apache to specific IP addresses and/or

    # ports, instead of the default. See also the <VirtualHost>

    # directive.

    #

    # Change this to Listen on specific IP addresses as shown below to

    # prevent Apache from glomming onto all bound IP addresses.

    #

    #Listen 12.34.56.78:80

    Listen 127.0.0.1:80

    Listen 192.168.1.101:80

     

    ……

     

    验证配置是否成功:

    在局域网任一电脑中通过IE登录Mantis系统

    http:// 192.168.1.101/mantis/login_page.php即可正常访问。

     

    补充:mantis不使用邮件系统(Email)的配置::

    修改配置文件.../mantis/config_inc.php
    $g_enable_email_notification = OFF; 保存、关闭

    1、用管理员登录mantis,创建一个用户,输入账号和真实姓名,Email可以随便填写,创建用户,不过此时创建的用户密码为空,可以由创建的用户登录mantis后自行修改。
    2、如果用户忘记了密码该怎么办?可以让管理员登录mantis,进入管理--用户管理--选择用户--重设密码,则该用户的密码将被置为空,由该用户登录后修改。

Open Toolbar