用TestComplete實現一個關鍵字驅動測試框架

最近在做使用TestComplete做一個自動化測試項目的時候，發現在TestComplete中，可以利用其中的FindChild方法來實現一個簡單的關鍵字驅動的框架，方法如下：
（1）在Excel編寫測試關鍵字。
        在Excel文件中編寫測試關鍵字，包括測試對象、測試操作、輸入的參數等，如圖所示：
 

（2）編寫測試腳本，讀入Execl中的測試關鍵字。
// 全局的變量數組，用于存儲從Excel讀入的測試關鍵字
Var KeyWord_TestObject,KeyWord_Operation,KeyWord_Parameters;
//.............................................................................
// 目的：通過ADO查詢Excel數據
// 輸入參數：
//           ExcelFilePath ：Excel文件的路徑
//           QueryString：查詢語句
// 返回結果：
//           返回所有關鍵字數據，賦值給KeyWord_TestObject,KeyWord_Operation,KeyWord_Parameters這3個全局的變量數組
// 注意事項：
// 作者：陳能技
// 日期：2008-6-3
//.............................................................................
Function ReadKeyWordFromExcel(ExcelFilePath,QueryString);
 Var ConStr,Connection,RS,ClassObjArray,LineIndex,ClassObject:OleVariatn;
begin
 // 定義連接串
 ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%S;Extended Properties=Excel 8.0';
 ConStr := Utilities.Format(ConStr,[ExcelFilePath]);
 Connection := Sys.OleObject('ADODB.Connection');
 // 打開連接
 Connection.Open(ConStr);
 // 執行查詢操作
 RS := Connection.Execute(QueryString);
 // 創建變量數組
 KeyWord_TestObject := CreateVariantArray(0,0);
 KeyWord_Operation := CreateVariantArray(0,0);
 KeyWord_Parameters := CreateVariantArray(0,0);
 LineIndex := 0;
 // 循環讀入所有數據
 While Not RS.EOF do
 begin
    Inc(LineIndex);
    // 動態修改數組大小
    VarArrayRedim(KeyWord_TestObject,LineIndex-1);
    VarArrayRedim(KeyWord_Operation,LineIndex-1);
    VarArrayRedim(KeyWord_Parameters,LineIndex-1);  
    // 賦值
    KeyWord_TestObject[LineIndex-1] := RS['TestObject'].Value;
    KeyWord_Operation[LineIndex-1] := RS['Operation'].Value;
    KeyWord_Parameters[LineIndex-1] := RS['Parameters'].Value;   
    // 下一條數據
    RS.MoveNext;
 end;
 RS.Close;
 // 關閉連接
 Connection.Close;
end;
Procedure Test_ReadKeyWordFromExcel;
 Var I : OleVariant;
begin
 ReadKeyWordFromExcel('D:\Code\MyTestSuite\Data\KeyWord.xls','Select * from [KeyWord$]');
 For I := 0 to VarArrayHighBound(KeyWord_TestObject,1) do
 begin
    Log.Message(VarToStr(KeyWord_TestObject[I])+ '   | '
               + VarToStr(KeyWord_Operation[I])+' | '

原文轉自：http://www.kjueaiud.com