Fórum Update SQL #225879

procedure onclick_do_botao( sender : TObject );
{  essa funcao interna verifica se é o mesmo cliente pelo nome,
    pois segundo o que disse, a unica relacao entre as tabelas
    é o nome, caso tenha outro, voce pode alterar isso!
}
function Localiza : Boolean;
begin
  tbAntiga.IndexName := ´iNome´;  // especifica o index da tabela
  tbAntiga.FindeNeares([tbNovaNOME.Text]);  // efetua a busca
  if tbAntigaNOME.Text = tbNovaNOME.Text then   // caso seja igual
    result true  // retorna true!
  else  // caso contrario
    result false;  // retorna false!
end;
betin
  tbAntiga.Firsh;  // tabela que deve ser atualizada!
  while not tbAntiga.Eof do
    begin
      if Localiza then  // recebe a resposta da funcao "Localiza"
        begin  // efetua a atualizacao
          tbAntiga.Edit;
          tbAntiga.FieldByName( ´CODIGO´ ).AsString := tbNovaCODIGO.Text;
          tbAntiga.Post;
        end;
      tbAntiga.Next;
    end;
end;