Ir al contenido


Foto

ayuda con quickreport


  • Por favor identifícate para responder
2 respuestas en este tema

#1 edgar_prospero

edgar_prospero

    Advanced Member

  • Miembros
  • PipPipPip
  • 136 mensajes

Escrito 04 mayo 2012 - 11:49

que hay buen dia aqui con una dudilla para ver si me pueden ayudar hay va un poco la explicacion, tengo una base de datos en mysql, tengo 2 datatimepicker y un boton  al meter fecha inicial y ffecha final y darle al boton me da un reporte  con la informacion dentro de esas fechas hasta ahi todo bien mi duda es como puedo hacerle para que en el reporte me aparesca que rango de fechas meti no se si me explique. este es mi codigo para sacar el reporte:



delphi
  1. form1.tabla.close;
  2. form1.tabla.SQL.Clear;
  3. form1.tabla.SQL.Add('SELECT folio, nombre, fecha, problema FROM datos WHERE fecha>=:ini and fecha<=:fin ');
  4. form1.tabla.ParamByName('ini').ASdate:=ini.Date;
  5. form1.tabla.ParamByName('fin').ASdate:=fin.Date;
  6. form1.tabla.PREPARE;
  7. form1.tabla.Active:=TRUE;
  8. form4.informe.Preview;


  • 0

#2 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 04 mayo 2012 - 12:15

Lo puedes hacer así:

1. Declara una variable pública de tipo string en el Form4 (que deduzco, es el del reporte).
2. Coloca una etiqueta en tu reporte donde quieres que se visualice el rango de fechas que has seleccionado.
3. En el evento BEFORE PRINT del reporte asigna el valor a la etiqueta:



delphi
  1.   EtiquetaFecha.Caption := VariablePublica;



4. Modificamos un poco el código:



delphi
  1.     form1.tabla.close;
  2.     form1.tabla.SQL.Clear;
  3.     form1.tabla.SQL.Add('SELECT folio, nombre, fecha, problema FROM datos WHERE fecha>=:ini and fecha<=:fin ');
  4.     form1.tabla.ParamByName('ini').ASdate:=ini.Date;
  5.     form1.tabla.ParamByName('fin').ASdate:=fin.Date;
  6.     form1.tabla.PREPARE;
  7.     form1.tabla.Active:=TRUE;
  8.     form4.VariablePublica := 'De '+ FormatDateTime('dd/mm/yyyy',ini.Date) + ' a ' + FormatDateTime('dd/mm/yyyy',fin.Date); // Cargamos los valores de fecha de inicio y fin en la variable
  9.     form4.informe.Preview;



Pruébalo amigo  (y)

Saludox ! :)


  • 0

#3 edgar_prospero

edgar_prospero

    Advanced Member

  • Miembros
  • PipPipPip
  • 136 mensajes

Escrito 04 mayo 2012 - 12:28

excelente respuesta es lo que necesitaba muchas gracias por tu ayuda  (b)
  • 0




IP.Board spam blocked by CleanTalk.