8 respuestas en este tema

[TiammatMX]

Dos preguntas:

Tengo un TQuickReport "padre" (¡¡saludos Enecumene!!, buena idea la tuya) del cual derivo todos mis reportes, y contiene un TADOQuery de propósito general. ¿Cómo puedo ponerle una barra a la forma principal que me muestre el progreso del procesamiento del TADOQuery?

Y la segunda, como vieron en otro hilo, quiero optimizar el tiempo de respuesta del trabajo de mis TADOQuery's de los reportes, ¿en dónde pondría el tan socorrido "Application.ProcessMessages"?

Se aceptan sugerencias...

[TiammatMX]

¿Nadie?

¿Alguna idea, por favor?

[eduarcol]

Asi como lo planteas es dificil, podrias hacer uso de la unidad _busy de chackall.


Aclarando, que no es normal tanta tardanza en la recuperación de un dataset.

[TiammatMX]

...Tengo un TQuickReport "padre" (¡¡saludos Enecumene!!, buena idea la tuya) del cual derivo todos mis reportes, y contiene un TADOQuery de propósito general. ¿Cómo puedo ponerle una barra a la forma principal que me muestre el progreso del procesamiento del TADOQuery?...

Gracias EduardoCol, pero el punto que necesito resolver aquí es mostrar el progreso del TADOQuery en una TProgressBar AUNQUE TARDE MUCHO, es decir, cada 'n' registros que se actualice la barra que muestra el progreso...

Actualmente, tengo en funcionamiento ésto:

delphi

procedure TqckrprtPadre.adoqryDtsRprtFetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  if frmIntrfz.prgrssbarPrgrs.Visible then
  begin
    with frmIntrfz.prgrssbarPrgrs do
    begin
      Max := MaxProgress;
      Position := Progress;
    end;
  end;
  Application.ProcessMessages;
end;

Pero sólo se ejecuta CUANDO TERMINÓ DE PROCESAR EL STORED PROCEDURE, no DURANTE el procesamiento del mismo, que es lo que necesito.

[enecumene]

Pues esa es tu solución usar el _Busy de chackall.

Saludos.

[TiammatMX]

Pues esa es tu solución usar el _Busy de chackall...

... y me encantaría hacerlo, pero el problema es que se requiere necesariamente QUE NO UTILICE COMPONENTES DE TERCEROS. Puedo hacer con el código todo lo que me venga en gana, pero ésa limitación impuesta por las políticas de la empresa me está metiendo en cada problema que no tienes idea.

[Héctor Randolph]

_Busy no es un componente es una función y muy buena por cierto.

No hay que instalar nada si es lo que te preocupa, solamente incluir una Unit y llamar un procedimiento.

Saludos

[TiammatMX]

_Busy no es un componente es una función y muy buena por cierto.

No hay que instalar nada si es lo que te preocupa, solamente incluir una Unit y llamar un procedimiento.

Saludos

¡¡VENGA ENTONCES!!, ¿dónde la adquiero, con quien la pago, dónde está la ventanilla de la caja? Digo, si ésto me soluciona el problema, pues adelante entonces.

[Wilson]

_Busy no es un componente es una función y muy buena por cierto.

No hay que instalar nada si es lo que te preocupa, solamente incluir una Unit y llamar un procedimiento.

Saludos

¡¡VENGA ENTONCES!!, ¿dónde la adquiero, con quien la pago, dónde está la ventanilla de la caja? Digo, si ésto me soluciona el problema, pues adelante entonces.

Aquí está: http://www.delphiacc...ead-just-busy!/


Saludos