[phpBB Debug] PHP Warning: in file [ROOT]/phpbb/session.php on line 594: sizeof(): Parameter must be an array or an object that implements Countable
[phpBB Debug] PHP Warning: in file [ROOT]/phpbb/session.php on line 650: sizeof(): Parameter must be an array or an object that implements Countable
[phpBB Debug] PHP Warning: in file [ROOT]/phpbb/session.php on line 1110: Cannot modify header information - headers already sent by (output started at [ROOT]/includes/functions.php:3903)
[phpBB Debug] PHP Warning: in file [ROOT]/phpbb/session.php on line 1110: Cannot modify header information - headers already sent by (output started at [ROOT]/includes/functions.php:3903)
[phpBB Debug] PHP Warning: in file [ROOT]/phpbb/session.php on line 1110: Cannot modify header information - headers already sent by (output started at [ROOT]/includes/functions.php:3903)
[phpBB Debug] PHP Warning: in file [ROOT]/includes/functions.php on line 5277: Cannot modify header information - headers already sent by (output started at [ROOT]/includes/functions.php:3903)
[phpBB Debug] PHP Warning: in file [ROOT]/includes/functions.php on line 5277: Cannot modify header information - headers already sent by (output started at [ROOT]/includes/functions.php:3903)
[phpBB Debug] PHP Warning: in file [ROOT]/includes/functions.php on line 5277: Cannot modify header information - headers already sent by (output started at [ROOT]/includes/functions.php:3903)
Fórum Xmaker • Como usar o Refresh ....
Página 1 de 1

Como usar o Refresh ....

Enviado: Outubro 6th, 2012, 12:46 pm
por cunha2020
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.

Re: Como usar o Refresh ....

Enviado: Outubro 17th, 2012, 8:24 am
por Leão
logo abaixo da tabela.salvar;
tabela.Refresh;


ou colocar um timer, e na tela onde é preciso ver, colocar o tempo em segundos,
no evento onShow do formulário em questão.

obrigado,
Leão