QTP参数化.docx

QTP参数化.docx

《QTP参数化.docx》由会员分享，可在线阅读，更多相关《QTP参数化.docx（8页珍藏版）》请在冰豆网上搜索。

QTP参数化

方法一、DataTable方法

这是QTP提供的一种方法，也是最容易实现参数化的一种方式。

QTP针对DataTable对象提供了很多方法，可以对DataTable进行灵活的操作。

DataTable分为Global和Local两种，Global所有的Action都可以用，而Local就是只能Action自己用。

通过DataTable做参数化最直接的方法就是在KeywordView视图下通过选项进行，这样即方便又减少出错的几率。

单击要参数化项目的value列，选择出现的箭头弹出ValueConfigurationOption对话框，在这里可以很方便的进行参数化。

Parameters选择数据来源类型。

DataTable是从数据表中取值，Environment是从环境变量中取值，RandomNumber是选择随机值。

下拉列表选择DataTable后，选择所要使用的数据表Global还是local，最后选择name，参数取自哪列，点击确定后即可完成参数化过程。

Dialog（"Login"）.WinEdit（"AgentName:

"）.SetDataTable（"UserName",dtGlobalSheet）

这是最简单最直接的方式。

用这种方式需要注意，在File---Seting---Run需要做相应设置，否则运行结果很容易出错，使实际取到的参数值和预期的不一样或是循环不正确的错误。

最好的方式是通过写语句来控制迭代过程中的取值。

在脚本开发过程中，这种方式是最常用的。

类似如下代码：

Fori=0 to DataTable.GetCurrentRow

Dialog（"Login"）.WinEdit（"AgentName:

"）.SetDataTable（"UserName",dtGlobalSheet）

DataTable.SetNextRow

Next

DataTable提供了很多相关的方法和属性，具体参考帮助文档。

帮助目录下的Utility.chm文档中有关于DataTable对象的详细介绍。

方法二、环境变量实现参数化

Environment对象提供对环境变量的访问。

环境变量的来源有两种方式：

内部环境变量和用户定义的环境变量，其中后者支持从外部导入，格式为XML文件。

用环境变量做参数化有一定的局限性，因为环境变量对数据的操作没有方法一灵活，所以环境变量用的最多还是数据的共享。

在此暂作为一种方式来学习，灵活运用就好。

首先说内部环境变量。

它是QTP默认定义的一组变量，包括一些系统信息、项目信息等。

目前用到最多的是TestDir，利用这个可以实现一个相对目录的目的。

具体应用，在做一个数据驱动的脚本时，将数据文件放到脚本文件夹中，然后利用Environment（"TestDir"）+DataName导入数据文件。

这样可以很方便的移植，而不需要考虑将数据文件放到具体目录下。

用户定义的环境变量，需要自己定义变量名和值。

定义好后就可以用这些变量去参数化脚本中的常量。

Dialog（"Login"）.WinEdit（"AgentName:

"）.SetEnvironment（"test1"）

这样做参数时，每个参数值都需要指定，而且不能批量的生成。

所以它有一定的应用场景：

当一个Test中的不同Action需要同样一个参数，用环境变量去参数化常量是很好的一种方式；其次就是不同的Test需要用到同样的参数时，用环境变量可以很好的解决这个问题。

方法三、外部数据源实现参数化

利用外部数据驱动脚本的运行，这是经常用到的方法，这样可以很方便的组织测试数据。

相对前两种方法，这种方式数据的读取、控制稍有些麻烦。

下面以常见的几种方式进行说明。

（以下代码并不复杂，没做注释）

1.      数据文件以Excel组织

用Excel组织测试数据是最常用的了。

此种驱动可以采用两种方式，将数据Import到DataTab中或是利用com来操纵Excel文件。

下面给出这两种方式的示例代码。

（输入flight用户名和密码）

方式一、导入到DataTable中

      '获得数据文件路径，并将数据文件导入到DataTable运行表中

      DataStr=Environment（"TestDir"）&"/data.xls"

      DataTable.AddSheet（"TestData"）

      DataTable.ImportSheetDataStr,"Sheet1","TestData"

      '输入用户名和密码

      Fori=1toDataTable.GetSheet（"TestData"）.GetRowCount

             DataTable.SetCurrentRowi

             UserName=DataTable.Value（"UserName","TestData"）

             PassWord=DataTable.Value（"PassWord","TestData"）

             Dialog（"Login"）.WinEdit（"AgentName:

"）.SetUserName

             Dialog（"Login"）.WinEdit（"Password:

"）.SetSecurePassWord

      Next

方式二、利用com操纵Excel

      DataStr=Environment（"TestDir"）&"/data.xls"

      SetExlObj=CreateObject（"Excel.Application"）

      ExlObj.Visible=True

      ExlObj.DisplayAlerts=FALSE

      Setbook=ExlObj.Workbooks.Open（DataStr）

      Setsheet=book.Worksheets（"Sheet1"）

      Fori=2tosheet.usedrange.rows.count

             UserName=ExlObj.WorkSheets（"Sheet1"）.Cells（i,1）

             PassWord=ExlObj.WorkSheets（"Sheet1"）.Cells（i,2）

             Dialog（"Login"）.WinEdit（"AgentName:

"）.SetUserName

             Dialog（"Login"）.WinEdit（"Password:

"）.SetSecurePassWord

      Next

      ExlObj.Quit

      SetExlObj=nothing

2.      数据文件以txt组织

不多说，直接附上代码。

ConstForReading=1

TFilePath=Environment（"TestDir"）&"/data.txt"

SetFso3=CreateObject（"Scripting.FileSystemObject"）

SetDataFile=Fso3.OpenTextFile（TFilePath,ForReading,False）

DataFile.SkipLine

DowhileDataFile.AtEndOfLine<>true

      ReadString=DataFile.ReadLine

      DataStr=split（ReadString,","）

      Dialog（"Login"）.WinEdit（"AgentName:

"）.SetDataStr（0）

      Dialog（"Login"）.WinEdit（"Password:

"）.SetSecureDataStr

（1）

loop

DataFile.close

Set Fso3=Nothing

3.      数据文件以数据库组织

下面代码是用Access做的，其他类型数据库类似。

不多说继续贴出代码。

strDB="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:

/DocumentsandSettings/zilingold/桌面/Testdata.mdb;PersistSecurityInfo=False"

strTableName="data"

SetConn=createobject（"adodb.connection"）

SetRst=createobject（"adodb.recordset"）

Conn.openstrDB

Rst.open"select*from"+strTableName,Conn,2,2

DimstrTest

（1）

Rst.MoveFirst

DowhilenotRst.eof

      strTest（0）=trim（cstr（Rst.fields（0）））

      strTest

（1）=trim（cstr（Rst.fields

（1）））

      Dialog（"Login"）.WinEdit（"AgentName:

"）.SetstrTest（0）

      Dialog（"Login"）.WinEdit（"Password:

"）.SetSecurestrTest

（1）

      Rst.MoveNext

Loop

Rst.close

SetConn=nothing

4.      数据文件以XML组织

XML也是会经常用到的一种方式。

继续贴代码。

DimxmlDoc'AsDOMDocument需要引用xml对象

setxmldoc=CreateObject（"microsoft.xmldom"）

xmldoc.load（Environment（"TestDir"）&"/testdata.xml"）

Set Root=xmldoc.documentElement

Fori=0ToRoot.childNodes.Length-1

             SetTestCases=Root.childNodes.Item（i）

                    Forj=0ToTestCases.childNodes.Length-1

                           SetTestCase=TestCases.childNodes.Item（j）

                                  Ifcstr（TestCase.nodeName）="UserName"Then

                                         Dialog（"Login"）.WinEdit（"AgentName:

"）.SetTestCase.text      

                                  endif

                                  Ifcstr（TestCase.nodeName）="PassWord"Then

                                         Dialog（"Login"）.WinEdit（"Password:

"）.SetSecureTestCase.text                                                             EndIf                         

                    Next

      Next

Setroot=nothing

Setxml=nothing