Criar um grafico no delphi

[~~Surfistinha~~ 13]

Nivel : Iniciante

 

 

Este tópico vai mostrar como criar gráficos estatísticos no Delphi, como por exemplo, gráfico de barras, verticais, de pizza, etc.[

 

Procedimentos a serem executados:

 

Crie uma tela nova no sistema, altere as propriedades Name = FrmGrafico e Caption = Gráfico de Clientes por Cidade.

Insira um objeto Chart (Additional) à tela. Altere as propriedades Name = chtGrafico, Align = alClient e dê um duplo-clique sobre o mesmo.

Escolha o tipo de gráfico a ser utilizado: Bar (Barras). Para isto, clique nas guias Chart, Series e nos botões Add (Desmarque a opção 3D) e OK.

Clique no botão Titles e altere o título da série para Cidades.

Selecione a guia Titles e digite o título do gráfico: Clientes por Cidade, na caixa de texto e selecione o Alignment = Center .

Clique no botão Close. Faça referência à unit da tela DM. File -> Use Unit (UDM)

Insira um objeto ADOQuery à tela e altere as propriedades:

Name: QCliCid

Connection: Dm.Conexao

SQL: Select Count(*) as Qtde, CliCid From Clientes Group By CliCid

Dê duplo-clique na query QCliCid e tecle [Ctrl] + [F] para inserir os campos.

Copie o botão Btn_Imprimir da tela FrmCadCliente para a tela FrmGrafico. Insira um componente PrintDialog da guia Dialogs na tela FrmGráfico.

 

No Object Inspector, selecione o objeto Series1 do gráfico chtGrafico

Altere a propriedade Name para CliCid

No evento OnShow da tela FrmGrafico, digite os seguintes comandos:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Digite os comandos a seguir no evento OnClick do botão Imprimir:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Acrescente um botão com Caption = Gráfico à tela FrmCadCliente e chame a tela FrmGráfico através dele.

 

Creditos pelo tutorial : ~~ LoocKz ~~

Creditos pelo code : Nao sei ...

Creditos pela postagem:Surfistinha