Cap. 06 - Gráficos na Web com IntraWeb e TeeChart (Artigo)

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Artigo sobre gráficos na Web com IntraWeb e TeeChart.

Desenvolva uma aplicação utilizando Intraweb que exiba um gráfico com a média dos salários por país com os dados da tabela JOB do banco de dados employee.gdb disponível como exemplo no Interbase.

No Delphi escolha File|New>Other. Na página IntraWeb escolha IntraWeb Application Wizard.

wizard

No assistente que aparece marque a opção Create DataModule e clique em Ok.

intraweb

Selecione o DataModule e adicione um componente SQLConnection e altere a propriedade LoginPrompt para False. Dê um duplo clique sobre esse componente para exibir o editor de propriedades de conexão. No editor clique no botão Add Connection e Informe Interbase para a propriedade Driver Name e EMPLOYEE para a propriedade Connection Name.

Altere o valor da chave database para ‘localhost:C:\Program Files\Borland\InterBase\examples\database\employee.gdb’ e SQLDialect para 3. Clique em Ok para fechar o editor.

Adicione ao DataModule um componente SQLQuery e altere a sua propriedade SQLConnection para SQLConnection1.

Clique sobre a propriedade SQL e digite a instrução SQL da listagem abaixo:

SELECT
   JOB_COUNTRY, 
   AVG ((MIN_SALARY + MAX_SALARY) /2) AS SALARY
FROM
   JOB
GROUP BY
   JOB_COUNTRY

Adicione agora ao DataModule um componente DataSetProvider e altere a sua propriedade DataSet para SQLQuery1.

Adicione também um componente ClientDataSet e altere a propriedade ProviderName para DataSetProvider1 e a propriedade Active para True.

No formulário gerado pelo Intraweb adicione um componente IWImage. Para o evento OnCreate do formulário insira o seguinte código:

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
var
    Series : TBarSeries;
    Chart : TDBChart;
begin
    //adicione DatamoduleUnit, Series, DBChart e Graphics no uses
    Chart := TDBChart.Create(Self);
    Series := TBarSeries.Create(Chart);
    Series.ParentChart := Chart;
    Series.DataSource := DataModule1.ClientDataSet1;
    Series.XLabelsSource := 'JOB_COUNTRY';
    Series.YValues.ValueSource := 'SALARY';
    IWImage1.Picture.Bitmap.Assign(
    Chart.TeeCreateBitmap(clWhite, Rect(0, 0, IWImage1.Width,IWImage1.Height)));
end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?