Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-11-2015
Yugo Yugo is offline
Miembro
NULL
 
Registrado: jul 2014
Posts: 25
Poder: 0
Yugo Va por buen camino
Visualizar datos de una base de datos con TDBChart.

Hola!! a ver si podeis ayudarme... a partir de una base de datos simple (paradox) de 55 campos, debo visualizar en un TDBChart los datos de sólo 13 de esos campos, cada vez que me voy moviendo por el TDBNavigator pues esos valores irían cambiando claro. Pero no doy con la tecla, porque puedo hacer que en el eje Y se vean dichos valores, sin embargo, en el eje X me interesa que aparezca un identificativo que a mi me interesa para cada uno de los 13 campos. A modo más aclaratorio...

eje Y (Valores del campo escogido por mi)
|
|
|
|
|
|
|
|________________________________________________ eje X (Me salen solo en campo concreto de varios registros, 13 en este caso)
nombre nombre .....
campo1 campo 2 .....

Y yo lo que quiero que aparezca en el eje X no son los nombres de los 13 campos de un mismo registro, sino un identificativo que
se lo asignaria mediante un bucle for por ejemplo.

EDITO para decir que la idea es tomar los registros de una tabla abierta en el Form1 para representar esos valores en otro, Form2.

Gracias por vuestro tiempo y un saludo!!

Última edición por Yugo fecha: 10-11-2015 a las 20:08:04. Razón: Completar la información
Responder Con Cita
  #2  
Antiguo 11-11-2015
Yugo Yugo is offline
Miembro
NULL
 
Registrado: jul 2014
Posts: 25
Poder: 0
Yugo Va por buen camino
Solucionado!! a medias... en lugar de emplear un componente TDBChart, usé un TChart colocado en el mismo formulario que la base de datos de la que obtiene los datos.


Código:
const int NUM_CELDAS= 13; 
const String CELDA[NUM_CELDAS] = {"Servicio","NC1","NC2","NC3",
                        "NC4","NC5","NC6","NC7","NC8",
                        "NC9","NC10","NC11","NC12"};
            
//Comprobar si hay una serie graficada
  if (Chart1->SeriesCount() > 0)
  {
    //Si hay una serie graficada, se elimina
    //para volver a graficar otra nueva.
    Chart1->RemoveAllSeries();
  }

  // Añadir una TBarSeries al TChart1
  TBarSeries *RxLevFull = new TBarSeries(this);
  RxLevFull->ParentChart = Chart1;

  //Cambiar el título del Chart:
  Chart1->Title->Text->Text = "Titulo";
  //Limpiamos cualquier Style configurado previamente:
  Chart1->Title->Font->Style = TFontStyles();
  Chart1->Title->Font->Style = TFontStyles()<< fsBold;

  //Para cambiar la etiqueta del eje X:
  Chart1->BottomAxis->Title->Caption = "[Celda]";
  //Limpiamos cualquier Style que previamente haya sido configurado:
  Chart1->Title->Font->Style = TFontStyles();
  Chart1->BottomAxis->Title->Font->Style = TFontStyles()<< fsBold;

  //Para cambiar la etiqueta del eje Y:
  Chart1->LeftAxis->Title->Caption = "[Nivel]";
  //Limpiamos cualquier Style configurado previamente:
  Chart1->Title->Font->Style = TFontStyles();
  Chart1->LeftAxis->Title->Font->Style = TFontStyles()<< fsBold;

  //Para cambiar el valor de cada punto de las barras:
  RxLevFull->Marks->Style = smsValue; 

  Chart1->LeftAxis->AxisValuesFormat = "#,##0.00";

  //1º punto de la serie con el valor 'CAMPO1'):
  RxLevFull->Add(Table1->FieldValues["CAMPO1"],CELDA[0],clRed);
  //Los sisguientes puntos de la serie(2º al 13º) para los valores 'CAMPO2', 'CAMPO3', 'CAMPO4',....,'CAMPO13'):
  String ncelda, dato;
  double valorMod = 0;
  for(int i=1; i<NUM_CELDAS; i++)
  {
    ncelda = "NC" + IntToStr(i) + "REGISTRADO";
    dato = Table1->FieldValues[ncelda];
    RxLevFull->Add(valorMod,CELDA[i],clRed);
  }
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ver Los Datos De Diferentes Tablas en una base De datos en access, Desde un DBGrid. feliz-58 Tablas planas 2 24-01-2013 19:16:14
Conectar base de datos Firebird con base de datos Oscommerce 2.3.3 Adriadob Firebird e Interbase 11 31-10-2012 11:28:46
Herramienta case para diccionario de datos de base de datos firebird mcalmanovici Firebird e Interbase 1 11-02-2007 15:17:37
Reto Para Expertos En Base De Datos Y Tipos De Datos.... (blob) frankmch Conexión con bases de datos 2 08-09-2003 19:44:52
Usar datos no númericos en un TDBChart Er_Manué OOP 0 27-08-2003 19:58:48


La franja horaria es GMT +2. Ahora son las 15:11:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi