delphi基于adoquery的Dao小控件，能省点键盘

unit adoqueryDao;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TadoqueryDao = class(TADOQuery)
  private
    FDaoStr:TStrings;
    procedure SetDaoStr(const Value: TStrings);
    { Private declarations }
  protected
    { Protected declarations }
    procedure DoAfterOpen;override;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property DaoStr:TStrings  read FDaoStr write SetDaoStr;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('ADO', [TadoqueryDao]);
end;

{ TadoqueryDao }

constructor TadoqueryDao.Create(AOwner: TComponent);<