Buscar por:

Atualizando as informnações em ambiente de rede

Código

{Acessando a mesma tabela concorrente com outra estação ou outro objeto Query,Table, etc Crie procedure para uso no evento OnActivate}

procedure TForm1.FormRefresh(Sender: TObject); 

begin 

Table1.Refresh; 

... 

TableN.Refresh; 

end;

//No evento OnActivate do formulário acrescente a linha

Application.OnActivate := FormRefresh;

//No evento OnShow do formulário acrescente a linha

FormRefresh(Sender);

//No evento OnAfterPost de cada objeto TTable acrescente as linhas

Table.FlushBuffers; 

FormRefresh(Self);