Zeos X Delphi 7 - Update Autom�tico

Question

Ola!Estou come�ando a mudar meus sistemas para o Mysql e tenho uma d�vida.Tenho 3 ou 4 micros com uma tela mostrando os exames realizados no dia, como fa�o para quando no micro 1 incluirem um exame, a...

Pehdepano · Answer

Creio que a forma mais simples de implementar isso � usando um componente Timer da paleta System(Se vc usa Delphi).A cada periodoo sistema refaz a consulta e atualiza a tela.
...
//seta o periodo de tempo
Timer1.Interval := 10000;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Query1.Close;
Query1.Sql.Clear;
Query1.SQL.Add(�Select * From EXAMES where EXAMES.DATAEXAME=:data�);
Query1.Params[0].Asdatetime := Date;
Query1.Open;
end;

Pericles Netto · Answer

[quote:c49b9f463b=�PehdePano�]Creio que a forma mais simples de implementar isso � usando um componente Timer da paleta System(Se vc usa Delphi).A cada periodoo sistema refaz a consulta e atualiza a tela....//seta o periodo de tempoTimer1.Interval := 10000;procedure TForm1.Timer1Timer(Sender: TObject);begin Query1.Close; Query1.Sql.Clear; Query1.SQL.Add(�Select * From EXAMES where EXAMES.DATAEXAME=:data�); Query1.Params[0].Asdatetime := Date; Query1.Open;end;[/quote:c49b9f463b]J� tentei isto.. mas j� viu cliente n�.... n�o gostou....Mas valeu pela ajuda...