Duvida ao pegar dados a partir de um ListView

Delphi

07/03/2024

Tenho um listView onde eu exibo 4 dados: Id, Nome, Cpf e Telefone. Onde armazenei dentro da propriedade Tag, o id, para em casos futuros utilizar.
Esse lisview que criei, serve para exibir os clientes cadastrados ou realizar uma busca por nome. Com ela, quero selecionar o cliente para alteração ou apenas visualização dos dados.

Dentro do evento OnItemClick da lisview, joguei o seguinte código para selecionar o cliente: 

 with DM.Query3 do begin
    active:= false;
    sql.Clear;
    sql.Add('Select * from cliente where id = :p0');
    Dm.Query3.Params[0].AsInteger :=  AItem.Tag;
    active := true;
  end;

   FrmCliente.EdtId.text    := IntToStr (DM.Query3.FieldByName('id').AsInteger);
   FRMCliente.edtNome.Text  :=  DM.Query3.FieldByName('nome').AsString;
   FRMCliente.edtCpf.Text   :=   DM.Query3.FieldByName('cpf').AsString;
   FRMCliente.edttel1.Text  :=  DM.Query3.FieldByName('telefone1').AsString;
   FRMCliente.edttel2.Text  :=  DM.Query3.FieldByName('telefone2').AsString;
   FRMCliente.edtEmail.Text :=  DM.Query3.FieldByName('email').AsString;
   FRMCliente.MMOBS.Text    :=  DM.Query3.FieldByName('obs').AsString;



A tag até recebe o id correto, porém a query não está alimentando.
Elivelton Carneiro

Elivelton Carneiro

Curtidas 0
POSTAR