Zeos X Delphi 7 - Update Automático

MySQL

13/09/2004

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, apareça automaticamente este exame nos outros micros.

Obrigado pela ajuda..

obs: Delphi 7
Zeos Lib
MySQl 3.23.54


Pericles Netto

Pericles Netto

Curtidas 0

Respostas

Pehdepano

Pehdepano

13/09/2004

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;


GOSTEI 0
Pericles Netto

Pericles Netto

13/09/2004

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;


Já tentei isto.. mas já viu cliente né.... não gostou....

Mas valeu pela ajuda


GOSTEI 0
POSTAR