怎样拦截数据库返回给客户端的异常？ [

uses
 System.TypInfo,DBTables;

{$R *.dfm}

 

procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
begin
 //ADOQuery1.Open;
 try
  ADOQuery1.Open;
 except
  on E:EDBEngineError do
  begin
   ShowMessage(E.Message);
  end;
 end;
end;