Buscar por:

Atualizando uma tabela em rede utilizando componente query com timer

Código

Usei estas rotinas para atualização de dados de uma tabela em ambiente de rede utilizando os componentes Query e Timer:

function TF_DAM.BuscaProximoNrID: String;  // função para busca do próximo valor do campo chave

begin

  try

    F_Tabelas.QrDAM.Close;

    F_Tabelas.QrDAM.SQL.Clear;

    F_Tabelas.QrDAM.SQL.Add('SELECT * FROM TABELA_DAM ORDER BY NR_ID');

    F_Tabelas.QrDAM.Open;

    F_Tabelas.QrDAM.Last;

    Result := StrZeros(6,IntToStr(StrToInt(F_Tabelas.QrDAMNR_ID.AsString)+1));

  except

    Result := Proximo;

  end;

end;

procedure TF_DAM.Timer1Timer(Sender: TObject);  // rotina no Timer para buscar o próximo valor do campo chave

var nNr: String;

begin

  if not F_DAM.ButExcluir.Enabled and (Length(F_DAM.EditNR_DAM.Text) = 6) then begin

    nNr := F_DAM.BuscaProximoNrID;

    if not (F_DAM.EditNR_DAM.Text = nNr) then F_DAM.EditNR_DAM.Text := nNr;

  end;

end;

procedure TF_DAM.FormDeactivate(Sender: TObject);  // desativar o Timer ao sair do form

begin

  F_DAM.Timer1.Enabled := False;

end;