copy Bookmark http://www.51testing.com/?92935

• 日志
• 相册
• 文件
• 书签
• 好友
• 论坛
• 留言

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

上一篇 / 下一篇  2009-03-02 15:13:15 / 个人分类：QTP学习

我的QTP的学习方法及总结—参数化（三）51Testing软件测试网9n1T}[+w/A1A1~?g]B

                              季风51Testing软件测试网-UAG9l D#n(T;NH)Yu

关于QTP中的参数化

方法一、DataTable方法

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

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

51Testing软件测试网d pC%i|gU

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

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

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

For i=0 to DataTable.GetCurrentRow51Testing软件测试网8k| y&KIf%dS

Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)51Testing软件测试网R*\0Yy9fG

DataTable.SetNextRow51Testing软件测试网6lm6z B
K,{ V b

Next

51Testing软件测试网/Sx;^SL%I|-U*J

DataTable提供了很多相关的方法和属性，具体参考帮助文档。帮助目录下的Utility.chm文档中有关于DataTable对象的详细介绍。51Testing软件测试网4f!~d| H&r8x#^eD

方法二、环境变量实现参数化51Testing软件测试网)h6grF| nH Iy

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

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

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

Dialog("Login").WinEdit("Agent Name:").Set Environment("test1")

这样做参数时，每个参数值都需要指定，而且不能批量的生成。所以它有一定的应用场景：当一个Test中的不同Action需要同样一个参数，用环境变量去参数化常量是很好的一种方式；其次就是不同的Test需要用到同样的参数时，用环境变量可以很好的解决这个问题。51Testing软件测试网8b^3C5_%o'j5_'Z

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

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

1.      数据文件以Excel组织51Testing软件测试网(|1C)U6D)]R

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

方式一、导入到DataTable中

      '获得数据文件路径，并将数据文件导入到DataTable运行表中51Testing软件测试网/C}8~C6T

      DataStr= Environment("TestDir")&"\data.xls"51Testing软件测试网/Yfb-dY s(_

      DataTable.AddSheet("TestData")

      DataTable.ImportSheet DataStr,"Sheet1","TestData"51Testing软件测试网 iM(~JIR

      '输入用户名和密码

      For i=1 to DataTable.GetSheet("TestData").GetRowCount51Testing软件测试网#A? d ~P8BU
v

             DataTable.SetCurrentRow i

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

             PassWord=DataTable.Value("PassWord","TestData")51Testing软件测试网~ V(je!J8k'a

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

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

      Next

51Testing软件测试网)JzR\!s;z8XMv

51Testing软件测试网#k5xDg"E0kY&] k

方式二、利用com操纵Excel

      DataStr= Environment("TestDir")&"\data.xls"

      Set ExlObj=CreateObject("Excel.Application")

      ExlObj.Visible = True

      ExlObj.DisplayAlerts = FALSE

      Set book=ExlObj.Workbooks.Open(DataStr)51Testing软件测试网+^ S-W;Yka8@7lxl

      Set sheet=book.Worksheets("Sheet1")

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

             UserName=ExlObj.WorkSheets("Sheet1").Cells(i,1)51Testing软件测试网7a%O~ ?%t)v;Q

             PassWord=ExlObj.WorkSheets("Sheet1").Cells(i,2)51Testing软件测试网v.w txZMh!h"r

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

             Dialog("Login").WinEdit("Password:").SetSecure PassWord51Testing软件测试网!?g4h1wH6K"L T4GH

      Next51Testing软件测试网}5u
R3a&g @^

      ExlObj.Quit51Testing软件测试网V/s:RAV Z"N%[

      Set ExlObj = nothing51Testing软件测试网 WQP#N;A2m:{rem

 51Testing软件测试网W4F x7Kx+{0x P r{

2.      数据文件以txt组织

不多说，直接附上代码。51Testing软件测试网BkPuS2I2[!d

Const ForReading=151Testing软件测试网n*Xoh ]*])s

TFilePath= Environment("TestDir")&"\data.txt"51Testing软件测试网 Z)gO[5D `(m9cR

Set Fso3 = CreateObject("Scripting.FileSystemObject")51Testing软件测试网;\mB.w+dW

Set DataFile= Fso3.OpenTextFile(TFilePath,ForReading,False)51Testing软件测试网Nm2[i aWPN@,e

DataFile.SkipLine51Testing软件测试网R*hgE5t#s/k

Do while DataFile.AtEndOfLine<>true

      ReadString = DataFile.ReadLine

      DataStr=split(ReadString,",")51Testing软件测试网\a\~8_LK

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

      Dialog("Login").WinEdit("Password:").SetSecure DataStr(1)51Testing软件测试网 s+t;I R \ o

loop

DataFile.close51Testing软件测试网Nx0ZB`mr

Set Fso3=Nothing51Testing软件测试网[a#kU
H[$Og-@k

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

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

strDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\zilingold\桌面\Testdata.mdb;Persist Security Info=False"51Testing软件测试网!v M"k
aX T*s

strTableName="data"

SetConn=createobject("adodb.connection")51Testing软件测试网A4\~
t3~J

Set Rst=createobject("adodb.recordset")51Testing软件测试网nR/]3^"A$z

Conn.open strDB

Rst.open "select * from "+strTableName,Conn,2,251Testing软件测试网6s,x {2Dc

Dim strTest(1)51Testing软件测试网 N{+E+m9la
r.O

Rst.MoveFirst

Do while not Rst.eof

      strTest(0)=trim(cstr(Rst.fields(0)))

      strTest(1)=trim(cstr(Rst.fields(1)))

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

      Dialog("Login").WinEdit("Password:").SetSecure strTest(1)51Testing软件测试网 {]&h]9K

      Rst.MoveNext

Loop51Testing软件测试网I$~Non PIl

Rst.close51Testing软件测试网M yT/NR M0B

SetConn=nothing

4.      数据文件以XML组织

XML也是会经常用到的一种方式。继续贴代码。51Testing软件测试网 L k1L4v k

Dim xmlDoc 'As DOMDocument需要引用xml对象51Testing软件测试网M{Sg:u e{?

set xmldoc=CreateObject("microsoft.xmldom")

xmldoc.load(Environment("TestDir")&"\testdata.xml")51Testing软件测试网j W8CD(][{u S

Set Root=xmldoc.documentElement

For i = 0 To Root.childNodes.Length-1

             Set TestCases = Root.childNodes.Item(i)51Testing软件测试网8dGD
mY:O

                    For j = 0 To TestCases.childNodes.Length-1

                           Set TestCase = TestCases.childNodes.Item(j)51Testing软件测试网h\4wMW

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

                                         Dialog("Login").WinEdit("Agent Name:").Set TestCase.text      51Testing软件测试网rRw9l(d A

                                  end if

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

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

                    Next51Testing软件测试网^7J.h
ZlAK0b]

      Next

Set root=nothing

Set xml=nothing

51Testing软件测试网n*kG [D kk

以上是对各种方式进行简单介绍，作为一个引子。各种方法在使用过程中会有需要注意的以及出现的问题，需要在脚本开发过程中慢慢积累。

全部脚印 不留脚印 留下脚印:

• 

  193761

• 

  80475

• 

  myangelli

• 

  prince198509

• 

  my2010mind

• 

  小白cool

• 

  108946

导入论坛 收藏 分享给好友 管理 举报

TAG:

引用 删除 jifeng   /   2009-06-04 21:40:42

原帖由gily19821116于2009-06-04 12:24:35发表
我用你的xls参数化，也和你的表格里面写的一样。但是调试的时候总是说找不到sheet1。不值你有什么看法？.

确定你的数据文件中有“sheet1”；或是导入其他sheet看看报错不；

引用 删除 gily19821116   /   2009-06-04 12:24:35

我用你的xls参数化，也和你的表格里面写的一样。但是调试的时候总是说找不到sheet1。不值你有什么看法？？DataTable.ImportSheet DataStr,"Sheet1","TestData"

引用 删除 hmilyzhen   /   2009-03-19 14:11:43

  -5 -3 -1 - +1 +3 +5

评分：0

我来说两句

显示全部

 

内容

昵称

验证

提交评论

清空Cookie - 联系我们 - 51Testing软件测试网 - 交流论坛 - 空间列表 - 站点存档 - 升级自己的空间

Powered by X-Space 4.0Final © 2001-2008 Comsenz Inc.
沪ICP备05003035号