如何去掉RaisError是提示对话框上的[Microsoft][OBDC SQL Server Driver][SQL Server]？

Question

Raiserror ('你好',16,1)

Answer 1

自定义出错类
 ENotSoBadError=class(Exception);
 EBadError=class(Exception);
 ERealBadError=class(Exception);
 
raise ERealBadError.Create('this is real bad')在ApplicationEvents控件的onException事件中
var
rslt:string;
if E is EBadError then
  begin
   rslt:=messagedlg(format('%s %s %s %s %s',['An',e.ClassName,'exception has occurred.',e.Message,'quit app?']),mterror,[mbyes,mbno],0)=mryes;
   if rslt then
    application.Terminate ;
    end
    else if E is ERealBadError then
    begin
     messagedlg(format('%s %s %s %s %s',['An',e.ClassName,'exception has occured.',e.Message,'quitting application']),mterror,[mbok],0);
     application.Terminate;
     end
     else
     application.ShowException(e);
记得给分啊

Answer 2

自定义出错类
 ENotSoBadError=class(Exception);
 EBadError=class(Exception);
 ERealBadError=class(Exception);
 
raise ERealBadError.Create('this is real bad')在哪里写呀？水平有限，望指教！解决了，马上给分。