<< Clique para Mostrar o Sumário >>
Atualizando um E3Chart Histórico com os Dados da Última Hora |
O exemplo a seguir demonstra como atualizar um E3Chart com os dados históricos da última hora. Para este exemplo, é necessário que haja uma Consulta a uma tabela previamente criada em um banco de dados.
1.Crie um E3Chart em uma Tela.
2.Abra a Janela de Propriedades deste E3Chart e selecione a aba Eixos. Clique na opção Configurar do Eixo Horizontal e, na aba Escala, selecione a opção Intervalo de tempo (Histórico).
3.Selecione a aba Consultas e clique em Adicionar. O Elipse Power Studio mostra uma caixa de diálogo para que se indique o nome do servidor de banco de dados em que a tabela da consulta está armazenada.
4.Selecione o servidor de banco de dados na caixa de diálogo e clique em OK. O Elipse Power Studio abre a janela de configurações da Consulta.
5.Selecione na tabela histórica o campo E3TimeStamp e algum outro campo de dados para mostrar no gráfico.
6.No campo E3TimeStamp, crie um filtro conforme as especificações da figura a seguir.
Filtro a ser criado no campo E3TimeStamp
7.Após ter criado o filtro conforme as especificações anteriores, clique em OK.
8.Crie uma nova Pena. Abra a Janela de Propriedades desta Pena e, na aba Dados, item Tipo de Pena, selecione a opção Histórica usando a Consulta e indique o campo da Consulta configurada.
9.No item Campo do eixo vertical, indique um campo da tabela. No item Campo do eixo horizontal, indique o campo E3TimeStamp. Clique em OK.
10.Crie um novo Botão de Comando na Tela e, na propriedade Caption, digite a expressão "Atualizar E3Chart Histórico".
11.Selecione a aba Scripts deste Botão de Comando e, no evento Click, escreva o script a seguir.
Sub CommandButton3_Click()
Set Chart = Screen.Item("E3Chart1")
Set Consulta = Chart.Item("Consulta1")
Consulta.SetVariableValue "Ini", Now – 1 / 24
Consulta.SetVariableValue "Fim", Now
Chart.HorScaleBegin = Now – 1 / 24
Chart.HorScaleEnd = Now
Chart.Queries.UpdateData()
End Sub
12.Execute o projeto e verifique o resultado.