ado工厂

//==============================================================================
// ADO数据工厂           cxg                2008-09-26 14:37:23
//==============================================================================

unit uADOFactory;

interface

uses
  SysUtils,ADODB,DB,Classes,ActiveX,IniFiles,Forms;

const
  c_SqlSvrPrd='sqloledb';
  c_AccessPrd='microsoft.jet.oledb.4.0';

{ 生成TADOConnection }
function GetADOConn(Owner:TComponent;AProvider:Integer=1):TADOConnection;
{ 生成TADOQuery }
function GetADODataSet(Owner:TComponent;AConn:TADOConnection;ASQL:string):TADOQuery;
{ 生成TDataSource对象 }
function GetDataSource(Owner:TComponent):TDataSource;
{ TDataSource绑定数据集 }
procedure LinkControl(ADataSet:TDataSet;ADataSource:TDataSource);

implementation

function GetDataSource(Owner:TComponent):TDataSource;
var
  FDataSource:TDataSource;
begin
  FDataSource:=TDataSource.Create(Owner);
  Result:=FDataSource;
end; 

procedure LinkControl(ADataSet:TDataSet;ADataSource:TDataSource);
begin
  ADataSource.DataSet:=ADataSet;
end; 

//==============================================================================
// AProvider=1 sql Server: 'sqloledb'
// AProvider=2 Access: 'Microsoft.Jet.OLEDB.4.0'
//==============================================================================

function GetADOConn(Owner:TComponent;AProvider:Integer=1):TADOConnection;
var
  Conn:TADOConnection;
  sFileName,sSection:string;
  ini:TIniFile;
begin
  sFileName:=ExtractFilePath(Application.ExeName)+'db.ini';
  Conn:=TADOConnection.Create(Owner);
  with Conn do
  begin
    LoginPrompt:=False;
    ini:=TIniFile.Create(sFileName);
    try
      if AProvider=1 then
      begin
        Provider:=c_SqlSvrPrd;
        sSection:='sql server';
        Properties['Data Source'].Value:=ini.ReadString(sSection,'server','');
        Properties['User ID'].Value:=ini.ReadString(sSection,'userid','');
        Properties['Password'].Value:=ini.ReadString(sSection,'password','');
        Properties['Initial Catalog'].Value:=
          ini.ReadString(sSection,'database','');
      end;
      if aprovider=2 then
      begin
        Provider:=c_AccessPrd;
        sSection:='access';
        Properties['Jet OLEDB:Database Password'].Value:=
          ini.ReadString(sSection,'database password','');
        Properties['Data Source'].Value:=ini.ReadString(sSection,'server','');
        Properties['User ID'].Value:=ini.ReadString(sSection,'userid','');
        Properties['Password'].Value:=ini.ReadString(sSection,'password','');
      end; 
      try
        Connected:=True;
        Result:=Conn;
      except

       Result:=nil;
        raise Exception.Create('数据库连接失败');
      end;
    finally
      ini.Free;
    end;
  end;
end;

function GetADODataSet(Owner:TComponent;AConn:TADOConnection;ASQL:string):TADOQuery;
var
  DataSet:TADOQuery;
begin
  dataset:=TADOQuery.Create(owner);
  dataset.Connection:=aconn;
  with dataset do
  begin
    Close;
    SQL.Clear;
    SQL.Text:=ASQL;
    Open;
  end;
  Result:=DataSet;
end;

end.