type
TAdoConMan=Class
private
FAdoCons:TXList; //这是个类吗?
FAdoConName,FAdoConStr:String;
function GetAdoConCount: integer;
public
Constructor Create(AdoConName:String;ConStr:String;DoConnect:Boolean=True);
Destructor Destroy;Override;
function AddAdoCon:TAdoConnection;
function GetAdoCon(MaxCount:integer):TAdoConnection;
procedure Clear;
property AdoConCount:integer read GetAdoConCount;
property AdoConName:String read FAdoConName;
property AdoConStr:String read FAdoConStr;
end;