《软件自动化测试成功之道》节选10 - 数据库连接配置问题

《软件自动化测试成功之道》节选10 - 数据库连接配置问题

http://www.china-pub.com/196509

 

 

 

 

一般涉及到数据库的软件系统都需要配置数据库连接串，在编写这部分的测试脚本时，我们可以采用多种方法来配置数据库连接，例如：通过数据库连接配置界面的操作来修改数据库连接；或者是读入被测试程序中所包含的配置文件，修改数据库连接串；如果被测试程序将数据库连接串配置在注册表中，则需要通过修改注册表来修改数据库连接配置。

（1）通过数据库连接配置界面的操作来修改数据库连接。这种方法是直接操作被测试程序所提供的数据库连接串配置界面，先执行删除所有连接的功能，然后执行添加数据库连接的功能，指定测试需要的数据库连接串，最后执行激活连接的功能。

Procedure ConfigDBConnection;

Var DataGridView:OleVariant;

Begin

  // 先删除所有连接

  DeleteDBConnection;

// 添加一个连接

AddDBConnection;

// 激活该连接

DataGridView:=Sys.Process(‘App’).WinFormsObject(‘SqlConnectionConfigForm’).WinFormsObject(‘DBBase’);

DataGridView.DataGridRows.System_Collections_IList_Item[0].Selected := True;

DataGridView.set_CurrentRow(0);

DataGridView.set_Item_2(0,1,True);

DataGridView.Click();

End;

删除所有连接的函数如下所示：

Procedure DeleteDBConnection;

Var p1 :OleVariant;

Var w1 :OleVariant;

Var w2 :OleVariant;

Var DataGridView,ItemCount,I :OleVariant;

Begin

DataGridView:=Sys.Process(‘App’).WinFormsObject(‘SqlConnectionConfigForm’).WinFormsObject(‘DBBase’);

  ItemCount := DataGridView.DataGridRows.Length;

  Log.Message(‘Delete ’ + VarToStr(ItemCount) + ‘ Row’);

  For I:=0 to ItemCount -1 do

  Begin

    p1 := Sys.Process(‘App’);

    w1 := p1.SqlConnectionConfigForm.WinFormsObject(‘panel1’).tabControl1;

    w1.ClickTab(‘数据库连接字符串’);

    w2 := w1.tbpConnectstring.panel2.rcmToolBar1;

    w2.ClickItem(‘删除’, false);

    p1.Window(‘#32770’ , ’确认’).Window(‘Button’ , ‘是（&Y）’).ClickButton;

  End;

End;

添加一个连接的函数如下所示：

Procedure AddDBConnection;

Var w1: OleVariant;

Var w2: OleVariant;

Var w3: OleVariant;

Var w4: OleVariant;

Begin

  w1:=Sys.Process(‘App’).SqlConnectionConfigForm.WinFormsObject(‘panel1’).tabControl1;

  w1.ClickTab(‘数据库连接字符串’);

  w2 := w1.tbpConnectstring;

  w1 := w2.panel2;

  w1.ToolBar1.ClickItem(‘新增’, false);

  w3 := w2.plRight;

  w2 := w3.plDetail;

  w4 := w2.tbName;

  // 输入连接名

  w4.keys(‘DBConnection1’);

  w4 := w2.tbDB;

  // 输入数据库名

  w4.Keys(‘TestDB’);

  w4 := w2.tbIP;

// 输入数据库所在IP地址

  w4.Keys(‘192.168.100.11’);

  w4 := w2.tbUser;

  // 输入用户名

  w4.Keys(‘sa’);

  w4:= w2.tbPassword;

  // 输入密码

  w4.Keys(‘123’);

  w3.ToolBar1.Click(‘保存’, false);

End;

（2）读入配置文件，修改数据库连接串。这种方式适合于被测试程序的执行目录中包含一个配置文件的情况。例如下面的ChangeDBConfig函数读入配置文件，找到其中包含数据库连接串的地方，并将其替换成测试需要连接的数据库的连接串。

Function ChangeDBConfig(AFileName,ReplaceString);

Var  FileVar,s,aSubString,findpos,Dic,I : OleVariant;

Begin

  AssignFile(FileVar,AFileName);

Reset(FileVar);

Dic := Sys.OleObject(‘Scripting.Dictionary’);

I:=0;

While not Eof(FileVar) do

Begin

         Readln(FileVar ,s);

aSubstring := ‘<add name=”DBConnectionString”’;

findpos := Pos(aSubString ,s);

If findpos <> 0 then

Begin

           Log.Message(‘替换数据库连接串’);

  s := ReplaceString;

End;

Dic.Add(I , s);

I:=I+1;

End;

Rewrite(FileVar);

For I:=0 to Dic.Count -1 do

Begin

         WriteLn(FileVar ,VarToStr(Dic.Item(I)));

End;

CloseFile(FileVar);

End;

（3）通过修改注册表来修改数据库连接配置。这种方法适合于那些将数据库连接串存储在注册表的被测试程序。

......

 

 

 

《软件自动化测试成功之道》节选10 - 数据库连接配置问题

http://www.china-pub.com/196509