Test Complete自动测试工具参数化吗？

懵懂的女孩

Test Complete自动测试工具参数化吗？
最近在使用这个工具测试delphi开发的程序，录制脚本，文本框的内容在回放前必须修改的和录制不一样，才可以用。（注：数据都保存到数据库中，不能输入重复的名称）
这个工具是否可以象QTP那样，可以进行参数化,在此谢谢大家了。

TIB

用TestComplete的DDT对象可以实现数据驱动测试

carol2000

1. //EXCELPATH为表格路径，SHEET为需要参数的sheet
   
2. //ColumnIndex 是需要参数化的数值所在的列，从第2行开始计数(不包括首行标题)
   
3. Sub Main
   
4.   dim EXCELPATH,SHEET
   
5.   EXCELPATH = "D:\test.xlsx"   
   
6.   SHEET = "Sheet1"
   
7.   set Driver = DDT.ExcelDriver(EXCELPATH,SHEET,true)
   
8.   Call test(Driver)
   
9.   DDT.CloseDriver(Driver.Name)
   
10. End Sub
    
11. 
    
12. sub test(Driver)  
    
13.   while not Driver.EOF          
    
14.     log.message(Driver.Value(ColumnIndex))                              
    
15.     Call driver.next   
    
16.   Wend
    
17. End Sub

复制代码

[ 本帖最后由 carol2000 于 2010-4-8 11:48 编辑 ]

懵懂的女孩

问题已经解决了。
TestComplete从Excel中导入数据，进行参数化方法：
定义全局变量：
Var
        MSExcel:OleVariant;
        ExcelFile;
声明函数：
function ReadExcel(i,j):string;forward;
在项目中定义变量：
i,j:integer; //声明取值的变量
FileName:string;//声明文件路径
begin
初始化变量赋值：
        i:=0;
        j:=0;
        FileName:='磁盘名\文件名.xls'//给文件路径赋值
        ExcelFile := Sys.WaitProcess('EXCEL');\\获取excel系统进程
if ExcelFile.Exists then\\判断EXCEL进程是否存在，如果存在结束进程，不存在就创建
      ExcelFile.Terminate();
  try
      MsExcel := Sys.OleObject('Excel.Application');
  except
      Log.Warning('Unable to initialize MS Excel.', '', pmHigher);
      Exit;
  end;
  MsExcel.Workbooks.Open(FileName);\\打开EXCEL文件
       
找到需要参数化的地方，将Excel的是赋给它
w4.Keys(ReadExcel(i,j));//获取EXCEL值


function ReadExcel(i,j):string;//自定义从EXCEL取值函数
begin   
    Result := MsExcel.Cells(i,j).Value;
end;
将代码贴出来 大家可以看看

lantianwei

我没用过该工具 但一般参数都差不多的 你看看EXAMPLE文件 里面肯定有

懵懂的女孩

谢谢。怎么使用呢?我想对一个文本框进行参数化。

lantianwei

肯定可以的 这是自动化测试工具的基本要求

懵懂的女孩

这个工具不可以做参数化？

lantianwei

怎么可能不可以参数化呢？

懵懂的女孩

怎么没人回答呢？