我的QTP的学习方法及总结—参数化（三）

我的QTP的学习方法及总结—参数化（三）

                              季风51Testing软件测试网6oa?l&k9u

关于QTP中的参数化51Testing软件测试网Y9m:l+vs

方法一、DataTable方法51Testing软件测试网4OaLWq{@

这是QTP提供的一种方法，也是最容易实现参数化的一种方式。QTP针对DataTable对象提供了很多方法，可以对DataTable进行灵活的操作。DataTable分为Global和Local两种，Global所有的Action都可以用，而Local就是只能Action自己用。51Testing软件测试网1g"g$_V!_.btgE

通过DataTable做参数化最直接的方法就是在Keyword View视图下通过选项进行，这样即方便又减少出错的几率。单击要参数化项目的value列，选择出现的箭头弹出Value Configuration Option对话框，在这里可以很方便的进行参数化。

51Testing软件测试网Juy5an4\

51Testing软件测试网3Eg;DLf9@U

Parameters选择数据来源类型。DataTable是从数据表中取值，Environment是从环境变量中取值，Random Number是选择随机值。下拉列表选择DataTable后，选择所要使用的数据表Global还是local，最后选择name，参数取自哪列，点击确定后即可完成参数化过程。

Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)

这是最简单最直接的方式。用这种方式需要注意，在File---Seting---Run需要做相应设置，否则运行结果很容易出错，使实际取到的参数值和预期的不一样或是循环不正确的错误。最好的方式是通过写语句来控制迭代过程中的取值。在脚本开发过程中，这种方式是最常用的。类似如下代码：51Testing软件测试网"R7p\5xyE s2[X

For i=0 to DataTable.GetCurrentRow51Testing软件测试网/uC,u$c
Gza:R

Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)

DataTable.SetNextRow51Testing软件测试网3O FV7v:x*sI

Next

DataTable提供了很多相关的方法和属性，具体参考帮助文档。帮助目录下的Utility.chm文档中有关于DataTable对象的详细介绍。

方法二、环境变量实现参数化51Testing软件测试网/gbU DQk*Y6_

Environment对象提供对环境变量的访问。环境变量的来源有两种方式：内部环境变量和用户定义的环境变量，其中后者支持从外部导入，格式为XML文件。用环境变量做参数化有一定的局限性，因为环境变量对数据的操作没有方法一灵活，所以环境变量用的最多还是数据的共享。在此暂作为一种方式来学习，灵活运用就好。

首先说内部环境变量。它是QTP默认定义的一组变量，包括一些系统信息、项目信息等。目前用到最多的是TestDir，利用这个可以实现一个相对目录的目的。具体应用，在做一个数据驱动的脚本时，将数据文件放到脚本文件夹中，然后利用Environment("TestDir")+DataName导入数据文件。这样可以很方便的移植，而不需要考虑将数据文件放到具体目录下。

用户定义的环境变量，需要自己定义变量名和值。定义好后就可以用这些变量去参数化脚本中的常量。

Dialog("Login").WinEdit("Agent Name:").Set Environment("test1")51Testing软件测试网qIa9T
^0J,n5n.r

51Testing软件测试网 tye$cW%NV4nd+q

这样做参数时，每个参数值都需要指定，而且不能批量的生成。所以它有一定的应用场景：当一个Test中的不同Action需要同样一个参数，用环境变量去参数化常量是很好的一种方式；其次就是不同的Test需要用到同样的参数时，用环境变量可以很好的解决这个问题。51Testing软件测试网2H
]jq0[Y&B(j[)fp

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

利用外部数据驱动脚本的运行，这是经常用到的方法，这样可以很方便的组织测试数据。相对前两种方法，这种方式数据的读取、控制稍有些麻烦。下面以常见的几种方式进行说明。（以下代码并不复杂，没做注释）

1.      数据文件以Excel组织51Testing软件测试网;_| \F*z[

用Excel组织测试数据是最常用的了。此种驱动可以采用两种方式，将数据Import到DataTab中或是利用com来操纵Excel文件。下面给出这两种方式的示例代码。（输入flight用户名和密码）

方式一、导入到DataTable中51Testing软件测试网$EX!P$_{FH{0}O%A|l

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

      DataStr= Environment("TestDir")&"\data.xls"51Testing软件测试网 bEH%?+w3c

      DataTable.AddSheet("TestData")

      DataTable.ImportSheet DataStr,"Sheet1","TestData"51Testing软件测试网Ht!V1qT X.{u

      '输入用户名和密码

      For i=1 to DataTable.GetSheet("TestData").GetRowCount51Testing软件测试网Or!fziJ

             DataTable.SetCurrentRow i

             UserName=DataTable.Value("UserName","TestData")

             PassWord=DataTable.Value("PassWord","TestData")

             Dialog("Login").WinEdit("Agent Name:").Set UserName

             Dialog("Login").WinEdit("Password:").SetSecure PassWord51Testing软件测试网sq+cC3{!xk7tt

      Next

51Testing软件测试网O]#H
T9Y/aO#zc

方式二、利用com操纵Excel

      DataStr= Environment("TestDir")&"\data.xls"51Testing软件测试网;yFS9C9dt?3ypH

      Set ExlObj=CreateObject("Excel.Application")51Testing软件测试网*}&T2RO@V

      ExlObj.Visible = True51Testing软件测试网b O,k N!]^;S
|

      ExlObj.DisplayAlerts = FALSE

      Set book=ExlObj.Workbooks.Open(DataStr)51Testing软件测试网%M+sv8]\3~W%l

      Set sheet=book.Worksheets("Sheet1")

      For i=2 to sheet.usedrange.rows.count

             UserName=ExlObj.WorkSheets("Sheet1").Cells(i,1)

             PassWord=ExlObj.WorkSheets("Sheet1").Cells(i,2)

             Dialog("Login").WinEdit("Agent Name:").Set UserName

             Dialog("Login").WinEdit("Password:").SetSecure PassWord

      Next

      ExlObj.Quit

      Set ExlObj = nothing51Testing软件测试网-\V-kn%jg~

 51Testing软件测试网}?
M.KQ

2.      数据文件以txt组织

不多说，直接附上代码。

Const ForReading=1

TFilePath= Environment("TestDir")&"\data.txt"51Testing软件测试网6Hs[ tCNp

Set Fso3 = CreateObject("Scripting.FileSystemObject")51Testing软件测试网cT n.Wyxm

Set DataFile= Fso3.OpenTextFile(TFilePath,ForReading,False)51Testing软件测试网](Xn5s(t8~B

DataFile.SkipLine

Do while DataFile.AtEndOfLine<>true

      ReadString = DataFile.ReadLine51Testing软件测试网]y$f n+`+I

      DataStr=split(ReadString,",")51Testing软件测试网9F/~8t.I2uv%\)a

      Dialog("Login").WinEdit("Agent Name:").Set DataStr(0)

      Dialog("Login").WinEdit("Password:").SetSecure DataStr(1)51Testing软件测试网x aa[Lm

loop

DataFile.close

Set Fso3=Nothing

51Testing软件测试网!W*O}wU]*Z

51Testing软件测试网l}}qgKd

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

下面代码是用Access做的，其他类型数据库类似。不多说继续贴出代码。

strDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\zilingold\桌面\Testdata.mdb;Persist Security Info=False"51Testing软件测试网:B&]7bI/oX-P,u

strTableName="data"51Testing软件测试网IAp6d3d3u8F2?#R@

SetConn=createobject("adodb.connection")51Testing软件测试网T
}[ y l&z n

Set Rst=createobject("adodb.recordset")51Testing软件测试网k:|[9b#aAm-Zg

Conn.open strDB51Testing软件测试网&E!N,Y {S!ui3O

Rst.open "select * from "+strTableName,Conn,2,251Testing软件测试网
q;S.E!b3}6FAYxX

Dim strTest(1)

Rst.MoveFirst

Do while not Rst.eof

      strTest(0)=trim(cstr(Rst.fields(0)))51Testing软件测试网z6v*f&d)}/~9Gn

      strTest(1)=trim(cstr(Rst.fields(1)))51Testing软件测试网P-`5_/qok

      Dialog("Login").WinEdit("Agent Name:").Set strTest(0)51Testing软件测试网6x^WK*oYP _)X

      Dialog("Login").WinEdit("Password:").SetSecure strTest(1)51Testing软件测试网N%Ke
N'i6x,]0v1l

      Rst.MoveNext

Loop51Testing软件测试网0b,x.gJdU

Rst.close

SetConn=nothing

51Testing软件测试网X[~6V)i3^ k'S5y

51Testing软件测试网8j^7H0xC Lm,ZYv

4.      数据文件以XML组织51Testing软件测试网3h5N&b5i~HY$zu

XML也是会经常用到的一种方式。继续贴代码。

Dim xmlDoc 'As DOMDocument需要引用xml对象

set xmldoc=CreateObject("microsoft.xmldom")

xmldoc.load(Environment("TestDir")&"\testdata.xml")51Testing软件测试网b o S n:j9e

Set Root=xmldoc.documentElement51Testing软件测试网1d#G#hQG"l#x H|

For i = 0 To Root.childNodes.Length-151Testing软件测试网#jm4d,^#b"UJ8|

             Set TestCases = Root.childNodes.Item(i)51Testing软件测试网j'X W2PxA

                    For j = 0 To TestCases.childNodes.Length-151Testing软件测试网7KHu(x7gq0L

                           Set TestCase = TestCases.childNodes.Item(j)51Testing软件测试网7h E b3f(M~

                                  If cstr(TestCase.nodeName)="UserName" Then51Testing软件测试网+|Q+d%bRG#gE e

                                         Dialog("Login").WinEdit("Agent Name:").Set TestCase.text      51Testing软件测试网&OE+CX Q9IC

                                  end if51Testing软件测试网p;v8q
g/}{;Y D? w

                                  If cstr(TestCase.nodeName)="PassWord" Then

                                         Dialog("Login").WinEdit("Password:").SetSecure TestCase.text                                                             End If                         

                    Next51Testing软件测试网f[;M8_ R x

      Next

Set root=nothing51Testing软件测试网^U X:Lm L.?}

Set xml=nothing51Testing软件测试网/gx z M*`6Em U

51Testing软件测试网'UUt6v[ t]J*z:u

 51Testing软件测试网IQ`I ]*^xf!r

以上是对各种方式进行简单介绍，作为一个引子。各种方法在使用过程中会有需要注意的以及出现的问题，需要在脚本开发过程中慢慢积累。51Testing软件测试网&U
m(l-`m+z