(Resolvido) Auto completar edit

[Vivendo&Aprendendo]

Olá pessoal.

Eu utilizava este código abaixo para auto completar o edit conforme o usuário iria digitando nele, usava adoquery, access e edit ou dbedit, mas agora mudei de banco de dados e componente, continuo usando edit e dbedtit, mas mysql e zeos e o código não funciona para esses.

Segue abaixo o código:

procedure TFrmAcrescimos.EdtFavorecidoChange(Sender: TObject);
Var Aux : Integer;
begin
  AdoClientes.Close;
  AdoClientes.Open;
  if AdoClientes.Locate('Nome',copy(EdtFavorecido.Text,1,EdtFavorecido.SelStart),[loCaseInsensitive,loPartialKey]) then
  begin
    EdtFavorecido.OnChange := nil; // Não ativar o evento agora.
    Aux := EdtFavorecido.SelStart; // Posição do cursor no EditFornecedor
    EdtFavorecido.Text := AdoClientes.FieldByName('Nome').AsString; // Foi o que encontramos pois o codigo só passa por aqui se existe a informação
    EdtFavorecido.SelStart := Aux; // Atualizamos a posição do cursor.
    EdtFavorecido.OnChange := EdtFavorecidoChange; // Agora podemos chamar novamente.
  end; 
end;

Código no OnChange do Edit.

Agora com o zeos e o mysql ele até não da erro, mas o dbedit só fica apontando para o primeiro registro enquanto os outros ficam certos.

Como posso mudar esse código para que funcione no zeos e mysql?

Abraços

Editado Agosto 1, 2008 por Vivendo&Aprendendo

[Jhonas]

Eu utilizava este código abaixo para auto completar o edit conforme o usuário iria digitando nele, usava adoquery, access e edit ou dbedit, mas agora mudei de banco de dados e componente, continuo usando edit e dbedtit, mas mysql e zeos e o código não funciona para esses.

AdoClientes.Close;
  AdoClientes.Open;
  if AdoClientes.Locate('Nome',copy(EdtFavorecido.Text,1,EdtFavorecido.SelStart),[loCaseInsensitive,loPartialKey]) then

continuo usando edit e dbedtit, mas mysql e zeos e o código não funciona para esses.

Não será porque voce não mudou o componente da query ( adoquery ) -> AdoClientes ???

abraço

[Vivendo&Aprendendo]

Olá Jhonas...

Não é por causa do nome não, mudei de AdoQuery para ZQuery e deixei o mesmo nome que estava antes.

O componente está funcionando corretamente, cadastra, exclui, altera, o problema é que quando abro o form a tabela aponta para um registro e o edit que busca o cliente aponta para o primeiro cliente.

Abraço

[Micheus]

O componente está funcionando corretamente, cadastra, exclui, altera, o problema é que quando abro o form a tabela aponta para um registro e o edit que busca o cliente aponta para o primeiro cliente.

Vivendo&Aprendendo, aparentemente você posiciona o registro de algum modo, já que não está posicionado no 1º como mostra o Edit. Onde você faz isto?

O evento OnChange do Edit só ocorrerá caso o seu conteúdo seja mudado, não apenas quando se digita algo, mas também quando via código alteramos o conteúdo da propriedade Text. Isto dá a impressão que, por exemplo, no evento OnCreate do form você esteja, por exemplo, limpando seu edit.

Assim, se seu dataset está aberto no momento que o Edit.Text é definido para '', ao executar o OnChange, ele será inicializado com o primeiro registro do dataset. Numa etapa seguinte, quando você posiciona seu dataset no registro desejado, vai acontecer justamente o que você descreveu: Edit mostra 1º registro e DBEdits mostrando registro atualmente selecionado.

Abraços

[Vivendo&Aprendendo]

Olá Micheus, muito obrigado pelas respostas, eu não limpo o text do edit e nem mexo nele em lugar nenhum, também não entendi o porque que ele estava fazendo isso, mas consegui resolver da seguinte form:

procedure TFrmAcrescimos.EdtFavorecidoChange(Sender: TObject);
Var Aux : Integer;
begin
  If EdtFavorecido.Focused Then
  begin
    DmDados.Clientes.Close;
    DmDados.Clientes.Open;
    if DmDados.Clientes.Locate('Nome',copy(EdtFavorecido.Text,1,EdtFavorecido.SelStart),[loCaseInsensitive,loPartialKey]) then
    begin
      EdtFavorecido.OnChange := nil; // Não ativar o evento agora.
      Aux := EdtFavorecido.SelStart; // Posição do cursor no EditFornecedor
      EdtFavorecido.Text := DmDados.Clientes.FieldByName('Nome').AsString; // Foi o que encontramos pois o codigo só passa por aqui se existe a informação
      EdtFavorecido.SelStart := Aux; // Atualizamos a posição do cursor.
      EdtFavorecido.OnChange := EdtFavorecidoChange; // Agora podemos chamar novamente.
    end;
  end;
end;

Dessa form como você já sabe ele só executa a busca se o foco estiver no edit...

Abraços