FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas al Graficar ¡Ayuda!
Hola a todos ojala puedan ayudarme ya que estoy desesperada con este problema que no puedo resolver y el tiempo se me agota para entregar este proyecto mi consulta es la siguiente:
Trabajo en delphi 7 y Mysql intento graficar los datos de una tabla llamada inspeccion pero la forma en que pretendo hacerlo es atravez de una consulta que yo pidiendo el dato despliegue la informacion en un DBgrid y de estos realizar la grafica. Lo que consegui es hacerlo de forma que sin pedir los datos me muestre los registro en el DBgrid y graficar estos. Utilize un ADOTable, un ADOConnection y un Datasource, el codigo de la grafica lo coloco en el evento AfterScroll del AdoTable y me muestra la grafica de los registros, el problema en si esta cuando agrego un Query para hacer la consulta que les menciono, me muestra los datos en el DBgrid pero no me grafica. Disculpen si el mensaje esta muy grande pero creo que debo explicar lo mas que pueda. El codigo es el siguiente: procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet); var i, b, m, n : Integer; begin b := 0; m := 0; n := 0; for i := 7 to DBGrid1.Columns.Count - 1 do begin if DBGrid1.Columns.Items[i].Field.AsString = 'B' then Inc(b,1); if DBGrid1.Columns.Items[i].Field.AsString = 'M' then Inc(m,1); if DBGrid1.Columns.Items[i].Field.AsString = 'NA' then Inc(n,1); end; b := (b*100) div 10; m := (m*100) div 10; n := (n*100) div 10; Chart1.SeriesList.Series[0].Clear; Chart1.SeriesList.Series[0].AddArray([b,m,n]); end; El DBgrid se conecta al DataSource y la propiedad Dataset al AdoTable. Disculpas nuevamente y espero su respuesta ojala me haya explicado |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda sobre graficar! | JerS | Varios | 0 | 03-07-2005 07:02:38 |
graficar funciones | gulder | Gráficos | 1 | 16-06-2005 21:00:24 |
Graficar en 3d sin OpenGl | jose_2057111 | Gráficos | 0 | 27-11-2004 02:05:47 |
Graficar En 3d En Delphi | jose_2057111 | Gráficos | 1 | 26-11-2004 09:33:05 |
Como graficar funciones | Gloria Lora | Gráficos | 13 | 03-06-2004 23:07:51 |
|