Livio Neiva Postado Setembro 22, 2007 Denunciar Share Postado Setembro 22, 2007 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: QCliCidConnection: Dm.Conexao SQL: Select Count(*) as Qtde, CliCid From Clientes Group By CliCidDê 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.procedure TFrmGrafico.FormShow(Sender: TObject);beginCliCid.Clear;chtGrafico.Title.Text.Clear; --> ERRO ( [Error] UGrafico.pas(41): Undeclared identifier: 'Title' )chtGrafico.Title.Text.Add('Gráfico Clientes por Cidade');QCliCid.Open;While (Not QCliCid Eof) doBeginCliCid.AddY(QCliCidQtde.Value,QCliCidCliCid.AsString, ClSkyBlue);QCliCid.Next;end;end;Digite os comandos a seguir no evento OnClick do botão Imprimir:procedure TFrmGrafico.SpeedButton2Click(Sender: TObject);beginif PrintDialog1.Execute thenbeginchtGrafico.BackColor := clWhite;chtGrafico.Print;end;end;END. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 25, 2007 Denunciar Share Postado Setembro 25, 2007 Testei a linha de codigo que voce mostrou o erro .... não tem erro, a não ser que voce não tenha adicionado ao form o component TChart:unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart; type TForm1 = class(TForm) chtGrafico: TChart; BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin chtGrafico.Title.Text.Clear; chtGrafico.Title.Text.Add('Gráfico Clientes por Cidade'); end; end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Livio Neiva Postado Setembro 25, 2007 Autor Denunciar Share Postado Setembro 25, 2007 Testei a linha de codigo que voce mostrou o erro .... não tem erro, a não ser que voce não tenha adicionado ao form o component TChart:unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart; type TForm1 = class(TForm) chtGrafico: TChart; BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin chtGrafico.Title.Text.Clear; chtGrafico.Title.Text.Add('Gráfico Clientes por Cidade'); end; end.Meu grande amigo Jhonas!!!eu troquei o nome chtgrafico (componenteTshape) pelo Chart1 (componente Tchart)E o sistema compilou correatamente!!!Problema resolvidoAgradeço muito sua atençãoLívio Neiva Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Alan Postado Abril 25, 2008 Denunciar Share Postado Abril 25, 2008 Olá gente, eu sou iniciante em delphi e gostaria que vocês me explicassem melhor a parte de fazer referencia com a DM. com o ADOQuery...Obrigado! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Abril 26, 2008 Denunciar Share Postado Abril 26, 2008 Olá gente, eu sou iniciante em delphi e gostaria que vocês me explicassem melhor a parte de fazer referencia com a DM. com o ADOQuery...Alan, este DM, seria referente a DataModule?Não estou vendo relação com o tópico em que você postou, assim, após sua resposta estarei separando seu post do tópico (criando um tópico para esta sua dúvida), e então você deve procurar no índice do forum por um tópico de sua autoria.Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Livio Neiva
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.
procedure TFrmGrafico.FormShow(Sender: TObject);
begin
CliCid.Clear;
chtGrafico.Title.Text.Clear; --> ERRO ( [Error] UGrafico.pas(41): Undeclared identifier: 'Title' )
chtGrafico.Title.Text.Add('Gráfico Clientes por Cidade');
QCliCid.Open;
While (Not QCliCid Eof) do
Begin
CliCid.AddY(QCliCidQtde.Value,QCliCidCliCid.AsString, ClSkyBlue);
QCliCid.Next;
end;
end;
Digite os comandos a seguir no evento OnClick do botão Imprimir:
procedure TFrmGrafico.SpeedButton2Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
chtGrafico.BackColor := clWhite;
chtGrafico.Print;
end;
end;
END.
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.