No cierra un formulario
 

Estimados foristas.

Resulta que tengo una aplicacion MDI, en la cual tengo un formulario modal para mostrar un resumen de
una consulta.
Mi problema es que tengo en el show del form un query a la BD, y si resulta nula, muestro un mensaje y hago el close del form, pero no lo cierra, lo deja abierto vacio y tengo que cerrarlo con la X.

He puesto la llamada al query en el create, activate y show y en todos me produce lo mismo cuando
la consulta me resulta vacia, en los otros casos funciona perfectamente.
Muestro los datos, y tengo un boton que cierra el form, llamando al mismo close.

Que puedo estar haciendo mal ??

Gracias

Saludos

Supongo que debes hacerlo a través de un IF. Podrias poner el codigo que verifica que la consulta no tiene registros y cierra el form?
Yo uso algo asi:

Código Delphi [-]
  If IbConsulta.IsEmpty then
     Begin
        ShowMessage('La consulta no ha arrojado resultados.');
        close;
     end;

Saludos.

Hola Ibidi.

Es difícil saber sin ver el código, pero supongo que podrías hacer algo por el estilo:

Código Delphi [-]
...
function TMDIForm.Consulta(Dato: Variant): Boolean;
begin
  with TuQuery do
  begin
    SQL.Text:= 'SELECT * FROM TU_TABLA WHERE TU_CAMPO = :DATO';
    ParamByName('DATO').Value:= Dato;
    Open;
    Result:= not IsEmpty;
    Close;
  end;
end;

procedure TMDIForm.btnConsultarClick(Sender: TObject);
begin
  if not Consulta('DATO_QUE_NO_EXISTE') then Close;
end;

...

procedure TMDIForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

Saludos.

Edito: No había visto el mensaje de MartinS, básicamente es la misma idea.

Basicamente es lo que hago, pero no me cierra el form. Aqui pongo mi codigo.

Código Delphi [-]
//____________________________________________________________________________\\
procedure Tfrm_Ultimo_Estudio.FormShow(Sender: TObject);
begin
    Proceso();
end;

//____________________________________________________________________________\\
procedure Tfrm_Ultimo_Estudio.Proceso;
begin
    With Qry_Estudios do
    begin
        SQL.Clear;
        SQL.Add('Select TOP 50 a.Fecha, a.Hora, a.Numero, a.Estudio, b.Descripcion, a.Costo,');
        SQL.Add('c.Nombre, a.Medico, a.NumOrdenCaamepa "Orden", a.Sociedad, d.Nombre "NomSoc" ');
        SQL.Add('From Analisis a, Estudios b, Medicos c, Sociedades d');
        SQL.Add('Where a.Paciente = ' + FloatToStr( cCodPaciente) );
        SQL.Add('and a.Estudio  = b.Estudio');
        SQL.Add('and a.Medico   = c.Codigo');
        SQL.Add('and a.Sociedad = d.Codigo');
        SQL.Add('Order by a.Fecha DESC, a.Hora DESC');
    end;
    Qry_Estudios.Open;
    if not Qry_Estudios.Eof then
    begin
        // Aca cargo los labels y los muestro.
    end
    else
    begin
        Application.MessageBox('No hay estudios previos.', 'Error', MB_OK + MB_ICONSTOP);
        Close;      <----- este close no lo hace..
    end;
end;

//____________________________________________________________________________\\
procedure Tfrm_Ultimo_Estudio.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Qry_Temp.Close;
    Qry_Estudios.Close;
    Action := caFree;
end;

Gracias por la ayuda..

Yo con el EOF tenia un par de problemas. Igualmente si podes ver el mensaje entonces NO SE porque no sigue con el close :confused: :o

Proba cambiando el EOF por IsEmpty a ver que hace

Gracias MartinS, pero el mensaje lo veo asi que el EOF no es el problema, sino el CLOSE
siguiente al mensaje.

Saludos

Hola Ibidi, no puedes llamar al Close en el evento OnShow, tendrías que hacerlo en el evento AfterShow, revisa este ejemplo que esta en este hilo y colocas el Close dentro del AfterShow.

Saluditos

Muchas gracias Caro, no conocia este metodo. Funciono perfecto.

Saludos.