Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

deoliveiraroni

DBchart e Zeos,problemas no campo dataset

Por , em Delphi

Recommended Posts

deoliveiraroni    0

deoliveiraroni
Postado

Ola a todos,sou novato no fórum e necessito resolver com urgencia o problema abaixo:

 

Estou tendo problemas com componente DBchart do delphi. Tentei gerar um grafico usando DBchart a partir de uma tabela oriunda do MySql 4.1, sob Zeos 6.5.1 alfa. No entanto depois de setar os parametros dos compoentes Zeos, no campo dataset do DBchart nao aparecem os dois campos definidos em uma tabela Alguém poderia me dar uma ajuda a respeito.

 

Obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

deoliveiraroni    0

deoliveiraroni
Postado

Não precisa dos fontes, pode somente colocar o procedimento que você chama e monta o chart...

 

Atendimento particular é mais caro :D

 

Ok ai vai:

 

unit desenha;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TeEngine, Series, GanttCh, jpeg, ExtCtrls, TeeProcs, Chart,

DbChart, TeeFunci, DB, ZAbstractRODataset, ZAbstractDataset,

ZAbstractTable, ZDataset, ZConnection;

 

type

TForm1 = class(TForm)

DBChart1: TDBChart;

similaridadestecn_DataSource: TDataSource;

tecnologiasZTable: TZTable;

tecnologiasZconnection: TZConnection;

Series1: TBarSeries;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

end.

 

Ai uma vez criados o Form com o os componentes ZEOS inseridos segui os procedimentos normais como a receita de bolo abaixo,apenas o componente usado é outro no caso o ZEOS :

 

Trabalhando com gráficos

 

 

 

 

Usarei aqui conexão através do BDE com a tabela Employee. Existe um Alias no BDE configurado como DBDemos, e é nele que vamos nos conectar.

 

OBS: O componente não se conecta somente com o BDE e sim com qualquer tecnologia de acesso a dados, você pode usar qualquer data set.

Vamos montar um formulário em que será feito um filtro e com o result set o componente DBChart montará o gráfico. Veja o layout do formulário abaixo:

 

 

 

A propriedade Database da qryEmployee está ligada no alias DBDEMOS. Vá na propriedade SQL da query e digite o seguinte:

 

select * from employee where EmpNo >= :Ini and EmpNo <= :Fim

 

Clique em OK. E a propriedade DataSet do dsEmployee está ligado na query. Após fazer essas configurações, vamos prosseguir com a criação do gráfico.

 

Configurando e escolhendo o gráfico

 

Tendo o layout e a conexão com o banco efetuado. Vamos começar a fazer a configuração do DBChart. Dê um duplo clique no DBChart para abrir a seguinte caixa de diálogo.

 

 

 

Através dessa caixa configuraremos nosso gráfico. A primeira coisa que deve ser feita é escolher qual é o formato do gráfico que irá aparecer. Para isso clique no botão Add...

 

 

 

Vai aparecer a galeria de gráficos do DBChart. Escolha uma opção. Você também pode escolher se o gráfico vai ficar em 3D ou não, clicando no checkbox. Ao escolher um tipo de gráfico clique em OK.

 

Agora clique na guia Titles para darmos um titulo para o formulário.

 

 

 

Apague a palavra DBChar do memo, digite Salário dos funcionários e faça a formatação do titulo como quiser. Na guia Legend você muda a aparência da legenda do gráfico, como por exemplo, a posição, a fonte e cor do fundo.

 

Acessando o banco de dados

 

Clique agora na guia Series que está ao lado da guia Chart.

 

 

 

As guias Format, General e Marks permite configurarmos a aparência do gráfico, como estilo e cor dos pontos do gráfico, forma e posição de como as informações aparecerem no gráfico. Selecione a guia Data Source. O combobox que aparece permite escolhermos como que o gráfico irá ser preenchido escolha no combobox DataSet.

 

 

 

Após escolhermos DataSet no combobox, será exibida mais opções onde escolheremos qual é o DataSet que iremos usar para montar o gráfico, escolha no segundo combobox a qryEmployee. Em Label nós escolhemos o nome que irá aparecer em cada ponto do gráfico. Escolha FirstName. Em Bar escolheremos qual campo será usado para montar o gráfico. Escolha Salary. Clique em Close.

 

Vamos programar o botão Filtrar, dê um duplo clique nele e digite:

 

With qryEmployee do Begin

Close;

ParamByName("Ini").Value := StrToInt(Edit1.Text);

ParamByName("Fim").Value := StrToInt(Edit2.Text);

Open

End; // with qryEmployee

 

Testando o gráfico

 

Pressione a tecla F9 e vamos testar nossa aplicação. Digite o número do empregado na caixa de texto De e Até e clique no botão filtrar.

 

 

 

Clique em uma área do gráfico, segure e arraste fazendo uma seleção em volta de quais pontos do gráfico você vai querer destacar, como no exemplo acima. Solte e veja o resultado.

 

 

 

Clique segure e arraste no sentido inverso para voltar ao normal.

 

Paginando o gráfico

 

Se você fizer um filtro com um intervalo maior, irão aparecer muitos funcionários. O gráfico começa a ficar apertado, como no exemplo abaixo:

 

 

 

Para resolver esse problema, volte ao modo design, dê um duplo clique no gráfico e vá na guia Paging. Digite a quantidade de pontos que você quer que apareça de uma vez no campo Points per Page.

 

Agora de um duplo clique no botão “<<” e digite:

 

DBChart.PreviousPage

 

Agora de um duplo clique no botão “>>” e digite:

 

DBChart.NextPage

 

Agora faça o filtro com um intervalo maior de número de funcionário e clique nos botões “<<” e “>>” e você verá que irá aparecer os pontos de 5 em 5.

 

Formatando o gráfico

 

Dê um duplo clique no gráfico e escolha a guia Panel, nesse guia podemos mudar também a aparência do gráfico. Marque o efeito Gradient e escolha a cor inicial e final.

 

 

 

Conclusão

 

Gráficos permitem melhor visualização dos resultados de uma pesquisa, além de valorizar muito nossa aplicação. Como vimos, é muito fácil e rápido trabalharmos com gráficos no Delphi. Agora isso não é mais motivo para não termos gráficos em nossa aplicação.

 

 

 

 

Todos os artigos de Robert Gaffo

13/09/2006 - Aplicação Multi-Camadas - Parte 03 (Final) 14/07/2006 - Aplicação Multi-Camadas - Parte 02 10/03/2006 - Aplicação Multi-Camadas - Parte 01 14/02/2006 - Trabalhando com gráficos 26/01/2006 - Resumindo programação 21/12/2005 - Trabalhando com as classes do Delphi Falar com o autor Indicar para um amigo Postar um comentário Interação com a materiaÁrea exclusiva e gratuita para os usuários logados (expandir)expandir fecharLeitor: Seu painel de controle sobre cada matériaAvalie esta matéria Indique a um amigo Poste um comentário Grave suas anotações Fale com o autor Conheça o painel "Meu iMasters"

 

 

Personalize o iMasters de acordo com sua opinião!

O que você pode fazer:

Avaliar esta matéria entre 1 e 5 estrelas e poder gravar suas matérias preferidas Indicar esta matéria a um amigo Escrever um comentário, que ficará visível para todos os leitores Gravar suas anotações particulares sobre esta matéria Falar com o autor

 

Comentários desta matéria (3) Avaliação desta matéria: Duvidas Publicado por Ruy, 24/02/2006 23:02 Olá ^^ meu nome é Ruy e gostaria que você fizesse um pequeno tutorial/artigo falando sobre internet pra delphi 7 já que eu vi vários projetos mas nao entendi ^^". gostaria q você explicasse sobre classes thread. thanks Resposta Publicado por Ricardo Coelho, 25/02/2006 00:02 Olá caro Ruy, pode ter certeza que seu pedido já está anotado e dentro em breve estarei falando sobre esses assuntos, obrigado pela dica é muito importante para mim. Graficos com mais de uma coluna Publicado por Luisandro Nachtigal Bandeira, 17/08/2006 10:08 Robert Gaffo, gostaria de saber se existe a possibilidade, de se mostrar um gráfico com mais de uma coluna, por exemplo: salário bruto, salário liquido, funcionário. ou seja com quantos campos mais eu precisar que seja visualizados no gráfico, e se também há a possibilidade desses campos sere escolhidos pelo usuário antes de montar o gráfico. Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

deoliveiraroni    0

deoliveiraroni
Postado

Não precisa dos fontes, pode somente colocar o procedimento que você chama e monta o chart...

 

Atendimento particular é mais caro :D

 

Ok ai vai:

 

unit desenha;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TeEngine, Series, GanttCh, jpeg, ExtCtrls, TeeProcs, Chart,

DbChart, TeeFunci, DB, ZAbstractRODataset, ZAbstractDataset,

ZAbstractTable, ZDataset, ZConnection;

 

type

TForm1 = class(TForm)

DBChart1: TDBChart;

similaridadestecn_DataSource: TDataSource;

tecnologiasZTable: TZTable;

tecnologiasZconnection: TZConnection;

Series1: TBarSeries;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

end.

 

Ai uma vez criados o Form com o os componentes ZEOS inseridos segui os procedimentos normais como a receita de bolo abaixo,apenas o componente usado é outro no caso o ZEOS :

 

Trabalhando com gráficos

 

 

 

 

Usarei aqui conexão através do BDE com a tabela Employee. Existe um Alias no BDE configurado como DBDemos, e é nele que vamos nos conectar.

 

OBS: O componente não se conecta somente com o BDE e sim com qualquer tecnologia de acesso a dados, você pode usar qualquer data set.

Vamos montar um formulário em que será feito um filtro e com o result set o componente DBChart montará o gráfico. Veja o layout do formulário abaixo:

 

 

 

A propriedade Database da qryEmployee está ligada no alias DBDEMOS. Vá na propriedade SQL da query e digite o seguinte:

 

select * from employee where EmpNo >= :Ini and EmpNo <= :Fim

 

Clique em OK. E a propriedade DataSet do dsEmployee está ligado na query. Após fazer essas configurações, vamos prosseguir com a criação do gráfico.

 

Configurando e escolhendo o gráfico

 

Tendo o layout e a conexão com o banco efetuado. Vamos começar a fazer a configuração do DBChart. Dê um duplo clique no DBChart para abrir a seguinte caixa de diálogo.

 

 

 

Através dessa caixa configuraremos nosso gráfico. A primeira coisa que deve ser feita é escolher qual é o formato do gráfico que irá aparecer. Para isso clique no botão Add...

 

 

 

Vai aparecer a galeria de gráficos do DBChart. Escolha uma opção. Você também pode escolher se o gráfico vai ficar em 3D ou não, clicando no checkbox. Ao escolher um tipo de gráfico clique em OK.

 

Agora clique na guia Titles para darmos um titulo para o formulário.

 

 

 

Apague a palavra DBChar do memo, digite Salário dos funcionários e faça a formatação do titulo como quiser. Na guia Legend você muda a aparência da legenda do gráfico, como por exemplo, a posição, a fonte e cor do fundo.

 

Acessando o banco de dados

 

Clique agora na guia Series que está ao lado da guia Chart.

 

 

 

As guias Format, General e Marks permite configurarmos a aparência do gráfico, como estilo e cor dos pontos do gráfico, forma e posição de como as informações aparecerem no gráfico. Selecione a guia Data Source. O combobox que aparece permite escolhermos como que o gráfico irá ser preenchido escolha no combobox DataSet.

 

 

 

Após escolhermos DataSet no combobox, será exibida mais opções onde escolheremos qual é o DataSet que iremos usar para montar o gráfico, escolha no segundo combobox a qryEmployee. Em Label nós escolhemos o nome que irá aparecer em cada ponto do gráfico. Escolha FirstName. Em Bar escolheremos qual campo será usado para montar o gráfico. Escolha Salary. Clique em Close.

 

Vamos programar o botão Filtrar, dê um duplo clique nele e digite:

 

With qryEmployee do Begin

Close;

ParamByName("Ini").Value := StrToInt(Edit1.Text);

ParamByName("Fim").Value := StrToInt(Edit2.Text);

Open

End; // with qryEmployee

 

Testando o gráfico

 

Pressione a tecla F9 e vamos testar nossa aplicação. Digite o número do empregado na caixa de texto De e Até e clique no botão filtrar.

 

 

 

Clique em uma área do gráfico, segure e arraste fazendo uma seleção em volta de quais pontos do gráfico você vai querer destacar, como no exemplo acima. Solte e veja o resultado.

 

 

 

Clique segure e arraste no sentido inverso para voltar ao normal.

 

Paginando o gráfico

 

Se você fizer um filtro com um intervalo maior, irão aparecer muitos funcionários. O gráfico começa a ficar apertado, como no exemplo abaixo:

 

 

 

Para resolver esse problema, volte ao modo design, dê um duplo clique no gráfico e vá na guia Paging. Digite a quantidade de pontos que você quer que apareça de uma vez no campo Points per Page.

 

Agora de um duplo clique no botão “<<” e digite:

 

DBChart.PreviousPage

 

Agora de um duplo clique no botão “>>” e digite:

 

DBChart.NextPage

 

Agora faça o filtro com um intervalo maior de número de funcionário e clique nos botões “<<” e “>>” e você verá que irá aparecer os pontos de 5 em 5.

 

Formatando o gráfico

 

Dê um duplo clique no gráfico e escolha a guia Panel, nesse guia podemos mudar também a aparência do gráfico. Marque o efeito Gradient e escolha a cor inicial e final.

 

 

 

Conclusão

 

Gráficos permitem melhor visualização dos resultados de uma pesquisa, além de valorizar muito nossa aplicação. Como vimos, é muito fácil e rápido trabalharmos com gráficos no Delphi. Agora isso não é mais motivo para não termos gráficos em nossa aplicação.

 

 

 

 

Todos os artigos de Robert Gaffo

13/09/2006 - Aplicação Multi-Camadas - Parte 03 (Final) 14/07/2006 - Aplicação Multi-Camadas - Parte 02 10/03/2006 - Aplicação Multi-Camadas - Parte 01 14/02/2006 - Trabalhando com gráficos 26/01/2006 - Resumindo programação 21/12/2005 - Trabalhando com as classes do Delphi Falar com o autor Indicar para um amigo Postar um comentário Interação com a materiaÁrea exclusiva e gratuita para os usuários logados (expandir)expandir fecharLeitor: Seu painel de controle sobre cada matériaAvalie esta matéria Indique a um amigo Poste um comentário Grave suas anotações Fale com o autor Conheça o painel "Meu iMasters"

 

 

Personalize o iMasters de acordo com sua opinião!

O que você pode fazer:

Avaliar esta matéria entre 1 e 5 estrelas e poder gravar suas matérias preferidas Indicar esta matéria a um amigo Escrever um comentário, que ficará visível para todos os leitores Gravar suas anotações particulares sobre esta matéria Falar com o autor

 

Comentários desta matéria (3) Avaliação desta matéria: Duvidas Publicado por Ruy, 24/02/2006 23:02 Olá ^^ meu nome é Ruy e gostaria que você fizesse um pequeno tutorial/artigo falando sobre internet pra delphi 7 já que eu vi vários projetos mas nao entendi ^^". gostaria q você explicasse sobre classes thread. thanks Resposta Publicado por Ricardo Coelho, 25/02/2006 00:02 Olá caro Ruy, pode ter certeza que seu pedido já está anotado e dentro em breve estarei falando sobre esses assuntos, obrigado pela dica é muito importante para mim. Graficos com mais de uma coluna Publicado por Luisandro Nachtigal Bandeira, 17/08/2006 10:08 Robert Gaffo, gostaria de saber se existe a possibilidade, de se mostrar um gráfico com mais de uma coluna, por exemplo: salário bruto, salário liquido, funcionário. ou seja com quantos campos mais eu precisar que seja visualizados no gráfico, e se também há a possibilidade desses campos sere escolhidos pelo usuário antes de montar o gráfico. Obrigado!

 

 

AAAh

 

OUTRA COISA IMPORTANTE AS INSTANCIAS DOS COMPONENTES ZEOS QUE USEI Zconnection,DataSource,Ztable e a tabela criada em MySql 4.1 contendo apenas dois campos,denomindada similaridades tecnologicas a qual quero ver os campos plotados no grafico.

 

object Form1: TForm1

Left = 204

Top = 126

Width = 1031

Height = 602

Caption = 'Grafico_Form'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object DBChart1: TDBChart

Left = 8

Top = 0

Width = 1009

Height = 553

BackWall.Brush.Color = clWhite

BackWall.Brush.Style = bsClear

Gradient.EndColor = 8404992

Gradient.StartColor = 16744703

Gradient.Visible = True

LeftWall.Color = 10485760

Title.Font.Charset = ANSI_CHARSET

Title.Font.Color = clYellow

Title.Font.Height = -16

Title.Font.Name = 'Verdana'

Title.Font.Style = []

Title.Text.Strings = (

'Processo')

Chart3DPercent = 50

LeftAxis.ExactDateTime = False

LeftAxis.Grid.Color = 8454143

LeftAxis.Grid.Style = psDash

LeftAxis.Increment = 1.000000000000000000

LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET

LeftAxis.LabelsFont.Color = clYellow

LeftAxis.LabelsFont.Height = -16

LeftAxis.LabelsFont.Name = 'Arial'

LeftAxis.LabelsFont.Style = []

LeftAxis.Title.Caption = 'Grau de correspondencia'

LeftAxis.Title.Font.Charset = ANSI_CHARSET

LeftAxis.Title.Font.Color = clYellow

LeftAxis.Title.Font.Height = -16

LeftAxis.Title.Font.Name = 'Verdana'

LeftAxis.Title.Font.Style = []

Legend.Color = clFuchsia

Legend.LegendStyle = lsValues

View3DOptions.Zoom = 93

TabOrder = 0

object Series1: TBarSeries

ColorEachPoint = True

Marks.ArrowLength = 0

Marks.Visible = False

SeriesColor = clRed

Title = 'tecnologiaSeries'

BarStyle = bsPyramid

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loNone

YValues.DateTime = True

YValues.Name = 'Bar'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loAscending

end

end

object similaridadestecn_DataSource: TDataSource

DataSet = tecnologiasZTable

Left = 96

Top = 24

end

object tecnologiasZconnection: TZConnection

Protocol = 'mysql-4.1'

HostName = 'localhost'

Port = 3306

Database = 'tecnologias'

User = 'root'

Password = '12a06-fr'

Connected = True

Left = 16

Top = 24

end

object tecnologiasZTable: TZTable

Connection = tecnologiasZconnection

Active = True

TableName = 'similaridadestecnologicas'

SequenceField = 'Processo'

Left = 56

Top = 24

end

end

 

 

Não precisa dos fontes, pode somente colocar o procedimento que você chama e monta o chart...

 

Atendimento particular é mais caro :D

 

Ok ai vai:

 

unit desenha;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TeEngine, Series, GanttCh, jpeg, ExtCtrls, TeeProcs, Chart,

DbChart, TeeFunci, DB, ZAbstractRODataset, ZAbstractDataset,

ZAbstractTable, ZDataset, ZConnection;

 

type

TForm1 = class(TForm)

DBChart1: TDBChart;

similaridadestecn_DataSource: TDataSource;

tecnologiasZTable: TZTable;

tecnologiasZconnection: TZConnection;

Series1: TBarSeries;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

end.

 

Ai uma vez criados o Form com o os componentes ZEOS inseridos segui os procedimentos normais como a receita de bolo abaixo,apenas o componente usado é outro no caso o ZEOS :

 

Trabalhando com gráficos

 

 

 

 

Usarei aqui conexão através do BDE com a tabela Employee. Existe um Alias no BDE configurado como DBDemos, e é nele que vamos nos conectar.

 

OBS: O componente não se conecta somente com o BDE e sim com qualquer tecnologia de acesso a dados, você pode usar qualquer data set.

Vamos montar um formulário em que será feito um filtro e com o result set o componente DBChart montará o gráfico. Veja o layout do formulário abaixo:

 

 

 

A propriedade Database da qryEmployee está ligada no alias DBDEMOS. Vá na propriedade SQL da query e digite o seguinte:

 

select * from employee where EmpNo >= :Ini and EmpNo <= :Fim

 

Clique em OK. E a propriedade DataSet do dsEmployee está ligado na query. Após fazer essas configurações, vamos prosseguir com a criação do gráfico.

 

Configurando e escolhendo o gráfico

 

Tendo o layout e a conexão com o banco efetuado. Vamos começar a fazer a configuração do DBChart. Dê um duplo clique no DBChart para abrir a seguinte caixa de diálogo.

 

 

 

Através dessa caixa configuraremos nosso gráfico. A primeira coisa que deve ser feita é escolher qual é o formato do gráfico que irá aparecer. Para isso clique no botão Add...

 

 

 

Vai aparecer a galeria de gráficos do DBChart. Escolha uma opção. Você também pode escolher se o gráfico vai ficar em 3D ou não, clicando no checkbox. Ao escolher um tipo de gráfico clique em OK.

 

Agora clique na guia Titles para darmos um titulo para o formulário.

 

 

 

Apague a palavra DBChar do memo, digite Salário dos funcionários e faça a formatação do titulo como quiser. Na guia Legend você muda a aparência da legenda do gráfico, como por exemplo, a posição, a fonte e cor do fundo.

 

Acessando o banco de dados

 

Clique agora na guia Series que está ao lado da guia Chart.

 

 

 

As guias Format, General e Marks permite configurarmos a aparência do gráfico, como estilo e cor dos pontos do gráfico, forma e posição de como as informações aparecerem no gráfico. Selecione a guia Data Source. O combobox que aparece permite escolhermos como que o gráfico irá ser preenchido escolha no combobox DataSet.

 

 

 

Após escolhermos DataSet no combobox, será exibida mais opções onde escolheremos qual é o DataSet que iremos usar para montar o gráfico, escolha no segundo combobox a qryEmployee. Em Label nós escolhemos o nome que irá aparecer em cada ponto do gráfico. Escolha FirstName. Em Bar escolheremos qual campo será usado para montar o gráfico. Escolha Salary. Clique em Close.

 

Vamos programar o botão Filtrar, dê um duplo clique nele e digite:

 

With qryEmployee do Begin

Close;

ParamByName("Ini").Value := StrToInt(Edit1.Text);

ParamByName("Fim").Value := StrToInt(Edit2.Text);

Open

End; // with qryEmployee

 

Testando o gráfico

 

Pressione a tecla F9 e vamos testar nossa aplicação. Digite o número do empregado na caixa de texto De e Até e clique no botão filtrar.

 

 

 

Clique em uma área do gráfico, segure e arraste fazendo uma seleção em volta de quais pontos do gráfico você vai querer destacar, como no exemplo acima. Solte e veja o resultado.

 

 

 

Clique segure e arraste no sentido inverso para voltar ao normal.

 

Paginando o gráfico

 

Se você fizer um filtro com um intervalo maior, irão aparecer muitos funcionários. O gráfico começa a ficar apertado, como no exemplo abaixo:

 

 

 

Para resolver esse problema, volte ao modo design, dê um duplo clique no gráfico e vá na guia Paging. Digite a quantidade de pontos que você quer que apareça de uma vez no campo Points per Page.

 

Agora de um duplo clique no botão “<<” e digite:

 

DBChart.PreviousPage

 

Agora de um duplo clique no botão “>>” e digite:

 

DBChart.NextPage

 

Agora faça o filtro com um intervalo maior de número de funcionário e clique nos botões “<<” e “>>” e você verá que irá aparecer os pontos de 5 em 5.

 

Formatando o gráfico

 

Dê um duplo clique no gráfico e escolha a guia Panel, nesse guia podemos mudar também a aparência do gráfico. Marque o efeito Gradient e escolha a cor inicial e final.

 

 

 

Conclusão

 

Gráficos permitem melhor visualização dos resultados de uma pesquisa, além de valorizar muito nossa aplicação. Como vimos, é muito fácil e rápido trabalharmos com gráficos no Delphi. Agora isso não é mais motivo para não termos gráficos em nossa aplicação.

 

 

 

 

Todos os artigos de Robert Gaffo

13/09/2006 - Aplicação Multi-Camadas - Parte 03 (Final) 14/07/2006 - Aplicação Multi-Camadas - Parte 02 10/03/2006 - Aplicação Multi-Camadas - Parte 01 14/02/2006 - Trabalhando com gráficos 26/01/2006 - Resumindo programação 21/12/2005 - Trabalhando com as classes do Delphi Falar com o autor Indicar para um amigo Postar um comentário Interação com a materiaÁrea exclusiva e gratuita para os usuários logados (expandir)expandir fecharLeitor: Seu painel de controle sobre cada matériaAvalie esta matéria Indique a um amigo Poste um comentário Grave suas anotações Fale com o autor Conheça o painel "Meu iMasters"

 

 

Personalize o iMasters de acordo com sua opinião!

O que você pode fazer:

Avaliar esta matéria entre 1 e 5 estrelas e poder gravar suas matérias preferidas Indicar esta matéria a um amigo Escrever um comentário, que ficará visível para todos os leitores Gravar suas anotações particulares sobre esta matéria Falar com o autor

 

Comentários desta matéria (3) Avaliação desta matéria: Duvidas Publicado por Ruy, 24/02/2006 23:02 Olá ^^ meu nome é Ruy e gostaria que você fizesse um pequeno tutorial/artigo falando sobre internet pra delphi 7 já que eu vi vários projetos mas nao entendi ^^". gostaria q você explicasse sobre classes thread. thanks Resposta Publicado por Ricardo Coelho, 25/02/2006 00:02 Olá caro Ruy, pode ter certeza que seu pedido já está anotado e dentro em breve estarei falando sobre esses assuntos, obrigado pela dica é muito importante para mim. Graficos com mais de uma coluna Publicado por Luisandro Nachtigal Bandeira, 17/08/2006 10:08 Robert Gaffo, gostaria de saber se existe a possibilidade, de se mostrar um gráfico com mais de uma coluna, por exemplo: salário bruto, salário liquido, funcionário. ou seja com quantos campos mais eu precisar que seja visualizados no gráfico, e se também há a possibilidade desses campos sere escolhidos pelo usuário antes de montar o gráfico. Obrigado!

 

 

AAAh

 

OUTRA COISA IMPORTANTE AS INSTANCIAS DOS COMPONENTES ZEOS QUE USEI Zconnection,DataSource,Ztable e a tabela criada em MySql 4.1 contendo apenas dois campos,denomindada similaridades tecnologicas a qual quero ver os campos plotados no grafico.

 

object Form1: TForm1

Left = 204

Top = 126

Width = 1031

Height = 602

Caption = 'Grafico_Form'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object DBChart1: TDBChart

Left = 8

Top = 0

Width = 1009

Height = 553

BackWall.Brush.Color = clWhite

BackWall.Brush.Style = bsClear

Gradient.EndColor = 8404992

Gradient.StartColor = 16744703

Gradient.Visible = True

LeftWall.Color = 10485760

Title.Font.Charset = ANSI_CHARSET

Title.Font.Color = clYellow

Title.Font.Height = -16

Title.Font.Name = 'Verdana'

Title.Font.Style = []

Title.Text.Strings = (

'Processo')

Chart3DPercent = 50

LeftAxis.ExactDateTime = False

LeftAxis.Grid.Color = 8454143

LeftAxis.Grid.Style = psDash

LeftAxis.Increment = 1.000000000000000000

LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET

LeftAxis.LabelsFont.Color = clYellow

LeftAxis.LabelsFont.Height = -16

LeftAxis.LabelsFont.Name = 'Arial'

LeftAxis.LabelsFont.Style = []

LeftAxis.Title.Caption = 'Grau de correspondencia'

LeftAxis.Title.Font.Charset = ANSI_CHARSET

LeftAxis.Title.Font.Color = clYellow

LeftAxis.Title.Font.Height = -16

LeftAxis.Title.Font.Name = 'Verdana'

LeftAxis.Title.Font.Style = []

Legend.Color = clFuchsia

Legend.LegendStyle = lsValues

View3DOptions.Zoom = 93

TabOrder = 0

object Series1: TBarSeries

ColorEachPoint = True

Marks.ArrowLength = 0

Marks.Visible = False

SeriesColor = clRed

Title = 'tecnologiaSeries'

BarStyle = bsPyramid

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loNone

YValues.DateTime = True

YValues.Name = 'Bar'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loAscending

end

end

object similaridadestecn_DataSource: TDataSource

DataSet = tecnologiasZTable

Left = 96

Top = 24

end

object tecnologiasZconnection: TZConnection

Protocol = 'mysql-4.1'

HostName = 'localhost'

Port = 3306

Database = 'tecnologias'

User = 'root'

Password = '12a06-fr'

Connected = True

Left = 16

Top = 24

end

object tecnologiasZTable: TZTable

Connection = tecnologiasZconnection

Active = True

TableName = 'similaridadestecnologicas'

SequenceField = 'Processo'

Left = 56

Top = 24

end

end

 

 

Não precisa dos fontes, pode somente colocar o procedimento que você chama e monta o chart...

 

Atendimento particular é mais caro :D

 

Ok ai vai:

 

unit desenha;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TeEngine, Series, GanttCh, jpeg, ExtCtrls, TeeProcs, Chart,

DbChart, TeeFunci, DB, ZAbstractRODataset, ZAbstractDataset,

ZAbstractTable, ZDataset, ZConnection;

 

type

TForm1 = class(TForm)

DBChart1: TDBChart;

similaridadestecn_DataSource: TDataSource;

tecnologiasZTable: TZTable;

tecnologiasZconnection: TZConnection;

Series1: TBarSeries;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

end.

 

Ai uma vez criados o Form com o os componentes ZEOS inseridos segui os procedimentos normais como a receita de bolo abaixo,apenas o componente usado é outro no caso o ZEOS :

 

Trabalhando com gráficos

 

 

 

 

Usarei aqui conexão através do BDE com a tabela Employee. Existe um Alias no BDE configurado como DBDemos, e é nele que vamos nos conectar.

 

OBS: O componente não se conecta somente com o BDE e sim com qualquer tecnologia de acesso a dados, você pode usar qualquer data set.

Vamos montar um formulário em que será feito um filtro e com o result set o componente DBChart montará o gráfico. Veja o layout do formulário abaixo:

 

 

 

A propriedade Database da qryEmployee está ligada no alias DBDEMOS. Vá na propriedade SQL da query e digite o seguinte:

 

select * from employee where EmpNo >= :Ini and EmpNo <= :Fim

 

Clique em OK. E a propriedade DataSet do dsEmployee está ligado na query. Após fazer essas configurações, vamos prosseguir com a criação do gráfico.

 

Configurando e escolhendo o gráfico

 

Tendo o layout e a conexão com o banco efetuado. Vamos começar a fazer a configuração do DBChart. Dê um duplo clique no DBChart para abrir a seguinte caixa de diálogo.

 

 

 

Através dessa caixa configuraremos nosso gráfico. A primeira coisa que deve ser feita é escolher qual é o formato do gráfico que irá aparecer. Para isso clique no botão Add...

 

 

 

Vai aparecer a galeria de gráficos do DBChart. Escolha uma opção. Você também pode escolher se o gráfico vai ficar em 3D ou não, clicando no checkbox. Ao escolher um tipo de gráfico clique em OK.

 

Agora clique na guia Titles para darmos um titulo para o formulário.

 

 

 

Apague a palavra DBChar do memo, digite Salário dos funcionários e faça a formatação do titulo como quiser. Na guia Legend você muda a aparência da legenda do gráfico, como por exemplo, a posição, a fonte e cor do fundo.

 

Acessando o banco de dados

 

Clique agora na guia Series que está ao lado da guia Chart.

 

 

 

As guias Format, General e Marks permite configurarmos a aparência do gráfico, como estilo e cor dos pontos do gráfico, forma e posição de como as informações aparecerem no gráfico. Selecione a guia Data Source. O combobox que aparece permite escolhermos como que o gráfico irá ser preenchido escolha no combobox DataSet.

 

 

 

Após escolhermos DataSet no combobox, será exibida mais opções onde escolheremos qual é o DataSet que iremos usar para montar o gráfico, escolha no segundo combobox a qryEmployee. Em Label nós escolhemos o nome que irá aparecer em cada ponto do gráfico. Escolha FirstName. Em Bar escolheremos qual campo será usado para montar o gráfico. Escolha Salary. Clique em Close.

 

Vamos programar o botão Filtrar, dê um duplo clique nele e digite:

 

With qryEmployee do Begin

Close;

ParamByName("Ini").Value := StrToInt(Edit1.Text);

ParamByName("Fim").Value := StrToInt(Edit2.Text);

Open

End; // with qryEmployee

 

Testando o gráfico

 

Pressione a tecla F9 e vamos testar nossa aplicação. Digite o número do empregado na caixa de texto De e Até e clique no botão filtrar.

 

 

 

Clique em uma área do gráfico, segure e arraste fazendo uma seleção em volta de quais pontos do gráfico você vai querer destacar, como no exemplo acima. Solte e veja o resultado.

 

 

 

Clique segure e arraste no sentido inverso para voltar ao normal.

 

Paginando o gráfico

 

Se você fizer um filtro com um intervalo maior, irão aparecer muitos funcionários. O gráfico começa a ficar apertado, como no exemplo abaixo:

 

 

 

Para resolver esse problema, volte ao modo design, dê um duplo clique no gráfico e vá na guia Paging. Digite a quantidade de pontos que você quer que apareça de uma vez no campo Points per Page.

 

Agora de um duplo clique no botão “<<” e digite:

 

DBChart.PreviousPage

 

Agora de um duplo clique no botão “>>” e digite:

 

DBChart.NextPage

 

Agora faça o filtro com um intervalo maior de número de funcionário e clique nos botões “<<” e “>>” e você verá que irá aparecer os pontos de 5 em 5.

 

Formatando o gráfico

 

Dê um duplo clique no gráfico e escolha a guia Panel, nesse guia podemos mudar também a aparência do gráfico. Marque o efeito Gradient e escolha a cor inicial e final.

 

 

 

Conclusão

 

Gráficos permitem melhor visualização dos resultados de uma pesquisa, além de valorizar muito nossa aplicação. Como vimos, é muito fácil e rápido trabalharmos com gráficos no Delphi. Agora isso não é mais motivo para não termos gráficos em nossa aplicação.

 

 

 

 

Todos os artigos de Robert Gaffo

13/09/2006 - Aplicação Multi-Camadas - Parte 03 (Final) 14/07/2006 - Aplicação Multi-Camadas - Parte 02 10/03/2006 - Aplicação Multi-Camadas - Parte 01 14/02/2006 - Trabalhando com gráficos 26/01/2006 - Resumindo programação 21/12/2005 - Trabalhando com as classes do Delphi Falar com o autor Indicar para um amigo Postar um comentário Interação com a materiaÁrea exclusiva e gratuita para os usuários logados (expandir)expandir fecharLeitor: Seu painel de controle sobre cada matériaAvalie esta matéria Indique a um amigo Poste um comentário Grave suas anotações Fale com o autor Conheça o painel "Meu iMasters"

 

 

Personalize o iMasters de acordo com sua opinião!

O que você pode fazer:

Avaliar esta matéria entre 1 e 5 estrelas e poder gravar suas matérias preferidas Indicar esta matéria a um amigo Escrever um comentário, que ficará visível para todos os leitores Gravar suas anotações particulares sobre esta matéria Falar com o autor

 

Comentários desta matéria (3) Avaliação desta matéria: Duvidas Publicado por Ruy, 24/02/2006 23:02 Olá ^^ meu nome é Ruy e gostaria que você fizesse um pequeno tutorial/artigo falando sobre internet pra delphi 7 já que eu vi vários projetos mas nao entendi ^^". gostaria q você explicasse sobre classes thread. thanks Resposta Publicado por Ricardo Coelho, 25/02/2006 00:02 Olá caro Ruy, pode ter certeza que seu pedido já está anotado e dentro em breve estarei falando sobre esses assuntos, obrigado pela dica é muito importante para mim. Graficos com mais de uma coluna Publicado por Luisandro Nachtigal Bandeira, 17/08/2006 10:08 Robert Gaffo, gostaria de saber se existe a possibilidade, de se mostrar um gráfico com mais de uma coluna, por exemplo: salário bruto, salário liquido, funcionário. ou seja com quantos campos mais eu precisar que seja visualizados no gráfico, e se também há a possibilidade desses campos sere escolhidos pelo usuário antes de montar o gráfico. Obrigado!

 

 

AAAh

 

OUTRA COISA IMPORTANTE AS INSTANCIAS DOS COMPONENTES ZEOS QUE USEI Zconnection,DataSource,Ztable e a tabela criada em MySql 4.1 contendo apenas dois campos,denomindada similaridades tecnologicas a qual quero ver os campos plotados no grafico.

 

object Form1: TForm1

Left = 204

Top = 126

Width = 1031

Height = 602

Caption = 'Grafico_Form'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object DBChart1: TDBChart

Left = 8

Top = 0

Width = 1009

Height = 553

BackWall.Brush.Color = clWhite

BackWall.Brush.Style = bsClear

Gradient.EndColor = 8404992

Gradient.StartColor = 16744703

Gradient.Visible = True

LeftWall.Color = 10485760

Title.Font.Charset = ANSI_CHARSET

Title.Font.Color = clYellow

Title.Font.Height = -16

Title.Font.Name = 'Verdana'

Title.Font.Style = []

Title.Text.Strings = (

'Processo')

Chart3DPercent = 50

LeftAxis.ExactDateTime = False

LeftAxis.Grid.Color = 8454143

LeftAxis.Grid.Style = psDash

LeftAxis.Increment = 1.000000000000000000

LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET

LeftAxis.LabelsFont.Color = clYellow

LeftAxis.LabelsFont.Height = -16

LeftAxis.LabelsFont.Name = 'Arial'

LeftAxis.LabelsFont.Style = []

LeftAxis.Title.Caption = 'Grau de correspondencia'

LeftAxis.Title.Font.Charset = ANSI_CHARSET

LeftAxis.Title.Font.Color = clYellow

LeftAxis.Title.Font.Height = -16

LeftAxis.Title.Font.Name = 'Verdana'

LeftAxis.Title.Font.Style = []

Legend.Color = clFuchsia

Legend.LegendStyle = lsValues

View3DOptions.Zoom = 93

TabOrder = 0

object Series1: TBarSeries

ColorEachPoint = True

Marks.ArrowLength = 0

Marks.Visible = False

SeriesColor = clRed

Title = 'tecnologiaSeries'

BarStyle = bsPyramid

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loNone

YValues.DateTime = True

YValues.Name = 'Bar'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loAscending

end

end

object similaridadestecn_DataSource: TDataSource

DataSet = tecnologiasZTable

Left = 96

Top = 24

end

object tecnologiasZconnection: TZConnection

Protocol = 'mysql-4.1'

HostName = 'localhost'

Port = 3306

Database = 'tecnologias'

User = 'root'

Password = '12a06-fr'

Connected = True

Left = 16

Top = 24

end

object tecnologiasZTable: TZTable

Connection = tecnologiasZconnection

Active = True

TableName = 'similaridadestecnologicas'

SequenceField = 'Processo'

Left = 56

Top = 24

end

end

 

 

Não precisa dos fontes, pode somente colocar o procedimento que você chama e monta o chart...

 

Atendimento particular é mais caro :D

 

Ok ai vai:

 

unit desenha;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TeEngine, Series, GanttCh, jpeg, ExtCtrls, TeeProcs, Chart,

DbChart, TeeFunci, DB, ZAbstractRODataset, ZAbstractDataset,

ZAbstractTable, ZDataset, ZConnection;

 

type

TForm1 = class(TForm)

DBChart1: TDBChart;

similaridadestecn_DataSource: TDataSource;

tecnologiasZTable: TZTable;

tecnologiasZconnection: TZConnection;

Series1: TBarSeries;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

end.

 

Ai uma vez criados o Form com o os componentes ZEOS inseridos segui os procedimentos normais como a receita de bolo abaixo,apenas o componente usado é outro no caso o ZEOS :

 

Trabalhando com gráficos

 

 

 

 

Usarei aqui conexão através do BDE com a tabela Employee. Existe um Alias no BDE configurado como DBDemos, e é nele que vamos nos conectar.

 

OBS: O componente não se conecta somente com o BDE e sim com qualquer tecnologia de acesso a dados, você pode usar qualquer data set.

Vamos montar um formulário em que será feito um filtro e com o result set o componente DBChart montará o gráfico. Veja o layout do formulário abaixo:

 

 

 

A propriedade Database da qryEmployee está ligada no alias DBDEMOS. Vá na propriedade SQL da query e digite o seguinte:

 

select * from employee where EmpNo >= :Ini and EmpNo <= :Fim

 

Clique em OK. E a propriedade DataSet do dsEmployee está ligado na query. Após fazer essas configurações, vamos prosseguir com a criação do gráfico.

 

Configurando e escolhendo o gráfico

 

Tendo o layout e a conexão com o banco efetuado. Vamos começar a fazer a configuração do DBChart. Dê um duplo clique no DBChart para abrir a seguinte caixa de diálogo.

 

 

 

Através dessa caixa configuraremos nosso gráfico. A primeira coisa que deve ser feita é escolher qual é o formato do gráfico que irá aparecer. Para isso clique no botão Add...

 

 

 

Vai aparecer a galeria de gráficos do DBChart. Escolha uma opção. Você também pode escolher se o gráfico vai ficar em 3D ou não, clicando no checkbox. Ao escolher um tipo de gráfico clique em OK.

 

Agora clique na guia Titles para darmos um titulo para o formulário.

 

 

 

Apague a palavra DBChar do memo, digite Salário dos funcionários e faça a formatação do titulo como quiser. Na guia Legend você muda a aparência da legenda do gráfico, como por exemplo, a posição, a fonte e cor do fundo.

 

Acessando o banco de dados

 

Clique agora na guia Series que está ao lado da guia Chart.

 

 

 

As guias Format, General e Marks permite configurarmos a aparência do gráfico, como estilo e cor dos pontos do gráfico, forma e posição de como as informações aparecerem no gráfico. Selecione a guia Data Source. O combobox que aparece permite escolhermos como que o gráfico irá ser preenchido escolha no combobox DataSet.

 

 

 

Após escolhermos DataSet no combobox, será exibida mais opções onde escolheremos qual é o DataSet que iremos usar para montar o gráfico, escolha no segundo combobox a qryEmployee. Em Label nós escolhemos o nome que irá aparecer em cada ponto do gráfico. Escolha FirstName. Em Bar escolheremos qual campo será usado para montar o gráfico. Escolha Salary. Clique em Close.

 

Vamos programar o botão Filtrar, dê um duplo clique nele e digite:

 

With qryEmployee do Begin

Close;

ParamByName("Ini").Value := StrToInt(Edit1.Text);

ParamByName("Fim").Value := StrToInt(Edit2.Text);

Open

End; // with qryEmployee

 

Testando o gráfico

 

Pressione a tecla F9 e vamos testar nossa aplicação. Digite o número do empregado na caixa de texto De e Até e clique no botão filtrar.

 

 

 

Clique em uma área do gráfico, segure e arraste fazendo uma seleção em volta de quais pontos do gráfico você vai querer destacar, como no exemplo acima. Solte e veja o resultado.

 

 

 

Clique segure e arraste no sentido inverso para voltar ao normal.

 

Paginando o gráfico

 

Se você fizer um filtro com um intervalo maior, irão aparecer muitos funcionários. O gráfico começa a ficar apertado, como no exemplo abaixo:

 

 

 

Para resolver esse problema, volte ao modo design, dê um duplo clique no gráfico e vá na guia Paging. Digite a quantidade de pontos que você quer que apareça de uma vez no campo Points per Page.

 

Agora de um duplo clique no botão “<<” e digite:

 

DBChart.PreviousPage

 

Agora de um duplo clique no botão “>>” e digite:

 

DBChart.NextPage

 

Agora faça o filtro com um intervalo maior de número de funcionário e clique nos botões “<<” e “>>” e você verá que irá aparecer os pontos de 5 em 5.

 

Formatando o gráfico

 

Dê um duplo clique no gráfico e escolha a guia Panel, nesse guia podemos mudar também a aparência do gráfico. Marque o efeito Gradient e escolha a cor inicial e final.

 

 

 

Conclusão

 

Gráficos permitem melhor visualização dos resultados de uma pesquisa, além de valorizar muito nossa aplicação. Como vimos, é muito fácil e rápido trabalharmos com gráficos no Delphi. Agora isso não é mais motivo para não termos gráficos em nossa aplicação.

 

 

 

 

Todos os artigos de Robert Gaffo

13/09/2006 - Aplicação Multi-Camadas - Parte 03 (Final) 14/07/2006 - Aplicação Multi-Camadas - Parte 02 10/03/2006 - Aplicação Multi-Camadas - Parte 01 14/02/2006 - Trabalhando com gráficos 26/01/2006 - Resumindo programação 21/12/2005 - Trabalhando com as classes do Delphi Falar com o autor Indicar para um amigo Postar um comentário Interação com a materiaÁrea exclusiva e gratuita para os usuários logados (expandir)expandir fecharLeitor: Seu painel de controle sobre cada matériaAvalie esta matéria Indique a um amigo Poste um comentário Grave suas anotações Fale com o autor Conheça o painel "Meu iMasters"

 

 

Personalize o iMasters de acordo com sua opinião!

O que você pode fazer:

Avaliar esta matéria entre 1 e 5 estrelas e poder gravar suas matérias preferidas Indicar esta matéria a um amigo Escrever um comentário, que ficará visível para todos os leitores Gravar suas anotações particulares sobre esta matéria Falar com o autor

 

Comentários desta matéria (3) Avaliação desta matéria: Duvidas Publicado por Ruy, 24/02/2006 23:02 Olá ^^ meu nome é Ruy e gostaria que você fizesse um pequeno tutorial/artigo falando sobre internet pra delphi 7 já que eu vi vários projetos mas nao entendi ^^". gostaria q você explicasse sobre classes thread. thanks Resposta Publicado por Ricardo Coelho, 25/02/2006 00:02 Olá caro Ruy, pode ter certeza que seu pedido já está anotado e dentro em breve estarei falando sobre esses assuntos, obrigado pela dica é muito importante para mim. Graficos com mais de uma coluna Publicado por Luisandro Nachtigal Bandeira, 17/08/2006 10:08 Robert Gaffo, gostaria de saber se existe a possibilidade, de se mostrar um gráfico com mais de uma coluna, por exemplo: salário bruto, salário liquido, funcionário. ou seja com quantos campos mais eu precisar que seja visualizados no gráfico, e se também há a possibilidade desses campos sere escolhidos pelo usuário antes de montar o gráfico. Obrigado!

 

 

AAAh

 

OUTRA COISA IMPORTANTE AS INSTANCIAS DOS COMPONENTES ZEOS QUE USEI Zconnection,DataSource,Ztable e a tabela criada em MySql 4.1 contendo apenas dois campos,denomindada similaridades tecnologicas a qual quero ver os campos plotados no grafico.

 

object Form1: TForm1

Left = 204

Top = 126

Width = 1031

Height = 602

Caption = 'Grafico_Form'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object DBChart1: TDBChart

Left = 8

Top = 0

Width = 1009

Height = 553

BackWall.Brush.Color = clWhite

BackWall.Brush.Style = bsClear

Gradient.EndColor = 8404992

Gradient.StartColor = 16744703

Gradient.Visible = True

LeftWall.Color = 10485760

Title.Font.Charset = ANSI_CHARSET

Title.Font.Color = clYellow

Title.Font.Height = -16

Title.Font.Name = 'Verdana'

Title.Font.Style = []

Title.Text.Strings = (

'Processo')

Chart3DPercent = 50

LeftAxis.ExactDateTime = False

LeftAxis.Grid.Color = 8454143

LeftAxis.Grid.Style = psDash

LeftAxis.Increment = 1.000000000000000000

LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET

LeftAxis.LabelsFont.Color = clYellow

LeftAxis.LabelsFont.Height = -16

LeftAxis.LabelsFont.Name = 'Arial'

LeftAxis.LabelsFont.Style = []

LeftAxis.Title.Caption = 'Grau de correspondencia'

LeftAxis.Title.Font.Charset = ANSI_CHARSET

LeftAxis.Title.Font.Color = clYellow

LeftAxis.Title.Font.Height = -16

LeftAxis.Title.Font.Name = 'Verdana'

LeftAxis.Title.Font.Style = []

Legend.Color = clFuchsia

Legend.LegendStyle = lsValues

View3DOptions.Zoom = 93

TabOrder = 0

object Series1: TBarSeries

ColorEachPoint = True

Marks.ArrowLength = 0

Marks.Visible = False

SeriesColor = clRed

Title = 'tecnologiaSeries'

BarStyle = bsPyramid

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loNone

YValues.DateTime = True

YValues.Name = 'Bar'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loAscending

end

end

object similaridadestecn_DataSource: TDataSource

DataSet = tecnologiasZTable

Left = 96

Top = 24

end

object tecnologiasZconnection: TZConnection

Protocol = 'mysql-4.1'

HostName = 'localhost'

Port = 3306

Database = 'tecnologias'

User = 'root'

Password = '12a06-fr'

Connected = True

Left = 16

Top = 24

end

object tecnologiasZTable: TZTable

Connection = tecnologiasZconnection

Active = True

TableName = 'similaridadestecnologicas'

SequenceField = 'Processo'

Left = 56

Top = 24

end

end

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Delphi
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito