faccessdbtest.pas

财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全

{******************************************************************************}
{                                                                              }
{          测试名称：                                                          }
{          作    者：                                                          }
{          版    本：                                                          }
{          说    明：                                                          }
{          备    注：                                                          }
{                                                                              }
{******************************************************************************}

unit FAccessDBTest;

interface

uses
  Windows, SysUtils, Classes, TestFramework, TestExtensions,AccessDB,ADODB,db,ComObj ;

type
  TTest = class(TTestCase)
  private
    vSQLTest:TAccessSQL;
  protected
    procedure SetUp; override;
    procedure TearDown; override;

  published
    procedure TestConnection;
  end;

const
  vConnectionString:string='Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Finance;Data Source=.';

implementation

procedure TTest.Setup;
begin
  CoInitializeEx(nil,0); 
  vSQLTest:=TAccessSQL.Create(vConnectionString) ;
end;

procedure TTest.TearDown;
begin
  vSQLTest.Free;
end;

procedure TTest.TestConnection;
begin
  CheckTrue(vSQLTest.ExecuteSQL('delete AccountCode where 代码=''01''')=0,'测试执行SQL操作');
  CheckTrue(vSQLTest.ExecuteSQL('insert into AccountCode(分类,代码,名称,余额方向) values(''分类'',''01'',''名称'',0)')=0,'测试插入数据' );
  CheckTrue(vSQLTest.GetDataSet('select * from AccountCode').RecordCount=1,'测试返回结果集' );
  CheckTrue(vSQLTest.GetDataSet('select * from AccountCode').FieldByName('代码').AsString='01' ,'测试返回结果集' );
end;

initialization
  TestFramework.RegisterTest('数据连接测试',TTest.Suite);

end.