uasrvobjdbconn.pas

基于Midas 技术的多层应用开发包第二版（带开发文档）

unit uaSrvObjDbConn;

interface
uses
  Windows, Messages, SysUtils, Classes,{ ComServ, ComObj, VCLCom, DataBkr,}
  DBClient, StdVcl,AdoDb,Contnrs,Variants,
  UAServiceObjectPool,uaSrvConfig;


type

  TSrvObjDbConn = class(TCustomPoolManager)
  public
    constructor Create(iMaxCount: Integer; iTimeout: DWord);override;
    destructor Destroy; override;
    function  InternalCreateNewInstance: TCustomPoolObject; override;
    procedure DbDisconnect(Sender:TObject);virtual;
  end;


var
  aSrvObjDbConn:TSrvObjDbConn;


implementation


{ TSrvObjDbConn }

constructor TSrvObjDbConn.Create(iMaxCount: Integer; iTimeout: DWord);
begin
  inherited;

end;

procedure TSrvObjDbConn.DbDisconnect(Sender: TObject);
begin

end;

destructor TSrvObjDbConn.Destroy;
begin

  inherited;
end;

function TSrvObjDbConn.InternalCreateNewInstance: TCustomPoolObject;
var
  SrvObj: TAdoConnection;
begin

  try

    SrvObj := TAdoConnection.Create(nil);
    SrvObj.LoginPrompt := false;
    SrvObj.ConnectionString := SQLSERVER_MAIN_CONNECT_STRING;
    SrvObj.IsolationLevel := ilReadCommitted;
    SrvObj.Connected := true;
    Result := TCustomPoolObject(SrvObj);

  finally

  end;

end;

initialization

  aSrvObjDbConn := TSrvObjDbConn.Create(5,5000);


finalization
  aSrvObjDbConn.Free;
end.