Devart Forums

Code: Select all

procedure TDM1.DB1ConnectionLost(Sender: TObject; Component: TComponent;
  ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
begin
if Connectionlost<20 then
 begin
  RetryMode:=rmReconnectExecute;
  Connectionlost:=Connectionlost+1;
 end
  else
   begin
    if MessageDlg('Connection failed. Try to connect?',mtConfirmation, [mbYes, mbNo], 0) = mrNo then
     begin
       Application.Terminate;
     end
      else
       begin
        Connectionlost:=0;
        RetryMode:=rmReconnectExecute;
       end;
   end;
end;

Code: Select all

...
if MessageDlg('Connection failed. Try to connect?',mtConfirmation, [mbYes, mbNo], 0) = mrNo then
begin
  RetryMode := rmRaise;
  Application.Terminate;
end
...