Club Delphi  
    Paypal   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

 
 
Herramientas Buscar en Tema Desplegado
  #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
 



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 14:31:55.


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