Ir al contenido



Foto

Rellenar un gráfico desde BD Dinámicamente


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

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.385 mensajes
  • LocationRepública Dominicana

Escrito 17 noviembre 2016 - 12:22

Para todo aquél que requiera saber cómo hacerlo, aquí os dejo como lo hice yo, en mi caso utilicé el estilo de Barras laterales:


delphi
  1. var Barra: TBarSeries;
  2. begin
  3. if (Tabla.Active) then begin
  4.  
  5. Tabla.First;
  6. while not Tabla.Eof do begin
  7. Barra := TBarSeries.Create(Chart);
  8. Chart.AddSeries(Barra);
  9.  
  10. Barra.Add(Tabla.Fields[1].AsFloat,uppercase(Tabla.Fields[1].FieldName)); //Compra
  11. Barra.Add(Tabla.Fields[2].AsFloat,uppercase(Tabla.Fields[2].FieldName)); //Donacion
  12. Barra.Add(Tabla.Fields[3].AsFloat,uppercase(Tabla.Fields[3].FieldName)); //Prestado
  13. Barra.Add(Tabla.Fields[4].AsFloat,uppercase(Tabla.Fields[4].FieldName)); //Transferencia
  14. Barra.Add(Tabla.Fields[5].AsFloat,uppercase(Tabla.Fields[5].FieldName)); //Alquilado
  15. Barra.Title := Tabla.Fields[0].AsString; //Mostramos el Año en la leyenda lateral
  16. Barra.Marks.Style := smsValue; // Mostramos los valores en las leyendas
  17.  
  18. Tabla.Next;
  19. end;
  20.  
  21. Chart.Title.Clear; //Limpiamos el titulo del grafico
  22. Chart.Title.Text.Add('Desglose por Modo de Adquisición Anual'); //Agregamos el titulo
  23.  
  24. end;
  25. end;

Nota: Al agregar las barras utilicé la propiedad FieldName de la tabla porque ya de por sí el campo tiene el nombre necesario, en este caso puedes especificar cualquier leyenda que desees.

 

Más abajo dejo el resultado.

 

Espero le sea de utilidad a más de uno.

 

Archivo adjunto  grafica.png   154,02KB   0 descargas

 

Saludos.


  • 3