Zeos X Delphi 7 - Update Automático
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
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
Curtidas 0
Respostas
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;
...
//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
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