[RESUELTO] Y sigue Tiammat dando...
#1
Escrito 11 agosto 2011 - 04:12
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...
#2
Escrito 12 agosto 2011 - 08:43
¿Alguna idea, por favor?
#3
Escrito 12 agosto 2011 - 09:01
Aclarando, que no es normal tanta tardanza en la recuperación de un dataset.
#4
Escrito 12 agosto 2011 - 10:00
...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:
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.
#5
Escrito 12 agosto 2011 - 10:02
Saludos.
#6
Escrito 12 agosto 2011 - 10:17
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.
#7
Escrito 12 agosto 2011 - 10:24
No hay que instalar nada si es lo que te preocupa, solamente incluir una Unit y llamar un procedimiento.
Saludos
#8
Escrito 12 agosto 2011 - 10:41
_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.
#9
Escrito 12 agosto 2011 - 11:18
_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