ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

relatorio grafico simples

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
gtramonte
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 117

MensagemEnviada: Dom Out 13, 2019 9:17 pm    Assunto: relatorio grafico simples Responder com Citação

Caros colegas! gostaria de saber se alguem tem um exemplo simples de um grafico que mostre por exemplo os produtos mais vendidos num determinado periodo. Uso Delphi 7 e Firebird.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10445
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Out 15, 2019 5:53 pm    Assunto: Responder com Citação

Estude isto e adapte às suas necessidades:


Código:
var
   x, y: array[1..10] of real;
   i: integer;
begin
     Chart1.Series[0].Clear;
     x[1] := 0;
     for i:= 2 to 10 do
     x[i] := x[i-1]+1;

     for i:=1 to 10 do
     begin
          y[i] := x[i]*x[i] + 2*x[i] -3;
          Chart1.Series[0].AddXY(x[i],y[i],'',clBlue);
     end;

     {Obs.: o terceiro argumento, no caso '', é uma string que aparecerá ao lado de cada valor. Como não queremos que apareça nada, apenas a linha, o argumento foi definido como ''}
     {Obs.: o quarto argumento é a cor da linha, no caso, azul}
     //Para imprimir o gráfico:
     Chart1.Print;




bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
gtramonte
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 117

MensagemEnviada: Qui Out 17, 2019 10:03 pm    Assunto: Responder com Citação

na verdade caro colega! eu precisaria de algo bem simples mesmo por exemplo: tenho uma tabela chamada Pedcab no qual guardo a data da venda e o numero do pedido, tenho uma outra tabela chamada peditem no qual vou adicionando os itens da venda como codigo do produto, descricao do produto e a quantidade vendida. O que eu preciso é um grafico que mostre num determinado periodo consultado a quantidade vendida de um determinado produto. abaixo estou testando um comando no ibexpert e ele traz esse total , porém não traz a descricao do produto e a quantidade total vendida desse mesmo produto.


SELECT SUM(PED_QUANTIDADE) AS TOTAL from peditem P inner join pedcab PR
on p.ped_num = PR.ped_num WHERE P.PROD_CODIGO='0008'
and PR.ped_datavenda='02/03/2017';
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB