Como usar o Refresh ....
Enviado: Outubro 6th, 2012, 12:46 pm
Coloquei um form com uma tabela onde desejo mostrar a cada 30 segundos as tabelas atualizadas. O máximo que consegui foi fazer com as tabelas sempre mostrassem a penultima atualização. A ultima sempre ficava pendente, esperando um novo refresh.
O código que estou usando é:
TabGlobal.Dapuracao.Open;
TabGlobal.Dapuracao.Inclui( Nil );
TabGlobal.Dapuracao.secao.Conteudo := edit1.text;
TabGlobal.Dapuracao.candidato.Conteudo := edit2.text;
TabGlobal.Dapuracao.votos.Conteudo := StrToInt( edit3.text );
TabGlobal.Dapuracao.Salva;
If Ptabela(TabGlobal.DApuracao, ['SUM(VOTOS)'], 'candidato = '+Edit2.Text, cTotalGeral ) then
Begin
If Length( Edit2.Text ) = 2 Then
Begin
If Not PTabela( TabGlobal.Dcandidato,['Numero'],[Edit2.Text],'Votos=Votos+'+Edit3.Text ) Then
ShowMessage( 'Ocorreu um erro ao lançar os '+Edit3.Text+' votos da seção '+Edit1.Text+#13+
'do candidato '+Edit2.Text );
End;
If Length( Edit2.Text ) = 5 Then
Begin
If Not PTabela( TabGlobal.DVereadores,['Numero'],[Edit2.Text],'Votos=Votos+'+Edit3.Text ) Then
ShowMessage( 'Ocorreu um erro ao lançar os '+Edit3.Text+' votos da seção '+Edit1.Text+#13+
'do candidato '+Edit2.Text );
End;
End;
Como faço para que o sistema gerado pelo xmaker, atualize as tabelas dos outros computadores, quando eu gravar um novo registro??
Desde já agradeço,
Cunha.
O código que estou usando é:
TabGlobal.Dapuracao.Open;
TabGlobal.Dapuracao.Inclui( Nil );
TabGlobal.Dapuracao.secao.Conteudo := edit1.text;
TabGlobal.Dapuracao.candidato.Conteudo := edit2.text;
TabGlobal.Dapuracao.votos.Conteudo := StrToInt( edit3.text );
TabGlobal.Dapuracao.Salva;
If Ptabela(TabGlobal.DApuracao, ['SUM(VOTOS)'], 'candidato = '+Edit2.Text, cTotalGeral ) then
Begin
If Length( Edit2.Text ) = 2 Then
Begin
If Not PTabela( TabGlobal.Dcandidato,['Numero'],[Edit2.Text],'Votos=Votos+'+Edit3.Text ) Then
ShowMessage( 'Ocorreu um erro ao lançar os '+Edit3.Text+' votos da seção '+Edit1.Text+#13+
'do candidato '+Edit2.Text );
End;
If Length( Edit2.Text ) = 5 Then
Begin
If Not PTabela( TabGlobal.DVereadores,['Numero'],[Edit2.Text],'Votos=Votos+'+Edit3.Text ) Then
ShowMessage( 'Ocorreu um erro ao lançar os '+Edit3.Text+' votos da seção '+Edit1.Text+#13+
'do candidato '+Edit2.Text );
End;
End;
Como faço para que o sistema gerado pelo xmaker, atualize as tabelas dos outros computadores, quando eu gravar um novo registro??
Desde já agradeço,
Cunha.