QTPparametrization 总结

作者：刘燕平

 

QTP参数化

QTP参数化有四种类型：DataTable、Environment、Random、External Data.下面分别介绍这四种类型。
1.DataTable参数化

这是QTP提供的一种方法，也是最容易实现参数化的一种方式。DataTable分为Global和Local两种，Global所有的Action都可以用，而Local就是只能Action自己用。单击要参数化项目的value列，选择出现的箭头弹出Value Configuration Option对话框，在这里可以很方便的进行参数化。下拉列表选择DataTable后，选择所要使用的数据表Global还是local，最后选择name，参数取自哪列，点击确定后即可完成参数化过程。

 

 

Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("FlyDate", dtGlobalSheet)            Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("FlyFrom", dtGlobalSheet)            Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("FlyTo", dtGlobalSheet)

 

最好的方式是通过写语句来控制迭代过程中的取值。在脚本开发过程中，这种方式是最常用的。代码：

For i=0 to DataTable.GetCurrentRow                                        Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("FlyDate", dtGlobalSheet)…                                        DataTable.SetNextRow Next

2.Random参数化

可以指定随机数的范围，也可以为该随机数指定名称，同时需要指定该随机参数产生新随机数的方式。这种情况下该随机数可以在别处使用。产生新随机数的方式： RandomNumber(startNumber,EndNumber)

ltemsCount = Window("").Dialog("").WinList("").GetltemsCount '获取参数数量                                        Selectltems = RandomNumber(0,ltemsCount) '产生随机参数                                        Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select SelectItem '参数化

3.Environment参数化
Environment 对象提供对环境变量的访问。环境变量的来源有两种方式：内部环境变量和用户定义的环境变量，其中后者支持从外部导入，格式为XML文件。

内部环境变量。它是QTP默认定义的一组变量，包括一些系统信息、项目信息等。目前用到最多的是TestDir，利用这个可以实现一个相 对目录的目的。将数据文件放到脚本文件夹中，然后利用 Environment("TestDir")+DataName导入数据文件。

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

Dialog("Login").WinEdit("Agent Name:").Set Environment("AgentName")                                        Dialog("Login").WinEdit("Password:").SetSecure Environment("Password")

 

参数化PassWord   File-->Setting-->Environment-->Export,,,导出                                        XML内容: Environment.LoadFromFile("D:/QTP/login.xml") '加载导出的环境变量XML

4.ExternalDataSource参数化

　　利用外部数据驱动脚本的运行，这是经常用到的方法，这样可以很方便的组织测试数据。主要有excel ，txt以及access等外部文件进行参数化。

　　1. Excel

　　将数据Import到DataTab中或是利用com来操纵Excel文件。

方式1、导入到DataTable中

DataStr= Environment("TestDir")&"/data.xls"        DataTable.AddSheet("TestData")        DataTable.ImportSheet DataStr,"Sheet1","TestData"        For i=1 to DataTable.GetSheet("TestData").GetRowCount               DataTable.SetCurrentRow i              FlyDate=DataTable.Value("FlyDate","TestData")              FlyFrom=DataTable.Value("FlyFrom","TestData")              FlyTo=DataTable.Value("FlyTo","TestData")…              Next

 

 

 

 

 

参数化PassWord   File-->Setting-->Environment-->Export,,,导出                                        XML内容: Environment.LoadFromFile("D:/QTP/login.xml") '加载导出的环境变量XML

4.ExternalDataSource参数化

　　利用外部数据驱动脚本的运行，这是经常用到的方法，这样可以很方便的组织测试数据。主要有excel ，txt以及access等外部文件进行参数化。

　　1. Excel

　　将数据Import到DataTab中或是利用com来操纵Excel文件。

方式1、导入到DataTable中

DataStr= Environment("TestDir")&"/data.xls"        DataTable.AddSheet("TestData")        DataTable.ImportSheet DataStr,"Sheet1","TestData"        For i=1 to DataTable.GetSheet("TestData").GetRowCount               DataTable.SetCurrentRow i              FlyDate=DataTable.Value("FlyDate","TestData")              FlyFrom=DataTable.Value("FlyFrom","TestData")              FlyTo=DataTable.Value("FlyTo","TestData")…              Next

 

方式2、利用com操纵Excel

DataStr= Environment("TestDir")&"/data.xls"        Set ExlObj=CreateObject("Excel.Application")        ExlObj.Visible = True        ExlObj.DisplayAlerts = FALSE        Set book=ExlObj.Workbooks.Open(DataStr)        Set sheet=book.Worksheets("Sheet1")        For i=2 to sheet.usedrange.rows.count               FlyData=ExlObj.WorkSheets("Sheet1").Cells(i,1)               FlyFrom=ExlObj.WorkSheets("Sheet1").Cells(i,2)               FlyTo=ExlObj.WorkSheets("Sheet1").Cells(i,3) …        Next        ExlObj.Quit        Set ExlObj = nothing

2. TXT

Const ForReading=1 TFilePath= Environment("TestDir")&"/Flight.txt" Set Fso3 = CreateObject("Scripting.FileSystemObject") Set DataFile= Fso3.OpenTextFile(TFilePath,ForReading,False) DataFile.SkipLine Do while DataFile.AtEndOfLine<>true        ReadString = DataFile.ReadLine        DataStr=split(ReadString,",")… loop DataFile.close Set  Fso3=Nothing

 

 

3. DB（Access）

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

strDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Testdata.mdb;Persist Security Info=False"                                        strTableName="data"                                        Set Conn=createobject("adodb.connection")                                        Set Rst=createobject("adodb.recordset")                                        Conn.open strDB                                        Rst.open "select * from "+strTableName,Conn,2,2                                        Dim strTest(1)                                        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)                                               Rst.MoveNext                                        Loop                                        Rst.close                                        Set Conn=nothing

 

4. XML

　　XML也是会经常用到的一种方式。也可以把XML直接导入到DataTable中或者Environment中

Environment.LoadFromFile("D:/QTP/login.xml")    

Dialog("Login").WinEdit("AgentName").set Environment "AgentName"  

Dialog("Login").WinEdit("PassWord").set Environment "PassWord"

 

以上仅是在实践中对QTP参数化的一些总结心得，这些方法在以后使用过程中会有需要注意的以及出现的问题，需要在脚本开发过程中慢慢积累。