Fórum Duvida onexit dbedit #511902

procedure TfrmCRecinto.Edit1Exit(Sender:TObject);
begin
 DMCadastro.ZQuery2.close;
 DMCadastro.ZQuery2.ParamByName('NURECINTO').Value := DBEdit1.Text;
 DMCadastro.ZQuery2.OPen;
 if not DMCadastro.ZQuery2.IsEmpty  then
 begin
      ShowMessage('Registro duplicado');
      DBEdit1.SetFocus;
      DBEdit1.Clear;
      exit;
   end;
end;

procedure TfrmCRecinto.Edit1Exit(Sender:TObject);
begin
 DMCadastro.ZQuery2.close;
 DMCadastro.ZQuery2.ParamByName('NURECINTO').Value := Edit1.Text;
 DMCadastro.ZQuery2.OPen;
 if not DMCadastro.ZQuery2.IsEmpty  then
 begin
      ShowMessage('Registro duplicado');
      Edit1.SetFocus;
      Edit1.Clear;
      exit;
   end;
end;