problemas para colocar info de registro em uma edit

Delphi

16/03/2005

ola pessoal ... alguem pode me dar uma força nisso aki...
nao sei oq tah acontecendo.. nao sei mesmo...

eu digito o numero do livro... e ele simplesmente nao insere na edit a info q eu quero... no caso o nome do livro e nem no outro campo a data de devoluçao... jah verifiquei os campos estao todos certos os nomes da edits e campos da tabela....

dei ateh um Showmessage antes de mostrar na edit... ele mostra o nome do livro na showmessage sem problemas...

alguem sabe oq tah acontecendo?


procedure TDevolucoesdeLivros.Edit10Change(Sender: TObject);
begin
 if (Edit10.Text <> ´´) then
 begin
  DM.Query2.Close;
  DM.Query2.SQL.Clear;
  DM.Query2.SQL.Add(´SELECT * FROM livros WHERE numero = "´ + Edit10.Text + ´"´);
  DM.Query2.Open;
  if (DM.Query2.RecordCount > 0) then
  begin
   Edit1.Text := DM.Query2.FieldByName(´Nome´).Value;
   DM.Query3.Close;
   DM.Query3.SQL.Clear;
   DM.Query3.SQL.Add(´SELECT * FROM pedidos WHERE livro = "´ + Edit10.Text + ´"´);
   DM.Query3.Open;
   if (DM.Query3.RecordCount > 0) then
    Edit2.Text := DM.Query3.FieldByName(´Devolucao´).Value
   else
   Edit10.Clear; Edit1.Clear; Edit2.Clear;
  end else begin
   Edit10.Clear; Edit1.Clear; Edit2.Clear;
  end;
 end;
end;



Salsa

Salsa

Curtidas 0

Respostas

Isaque

Isaque

16/03/2005

Basta vc trocar de evento. Vc editou o código no evento OnChange do TEdit. Mude a rotina para o evento OnExit, com isso vai dá certo.


GOSTEI 0
Salsa

Salsa

16/03/2005

nao mudou em nada cara :)


GOSTEI 0
Salsa

Salsa

16/03/2005

o mais estranho eh que qndo dou um ShowMessage, ele mostra os valores q eu quero .... soh q nao mandam pra edit...

jah tentei tirar a edit e por denovo....
mas ele nunca adiciona o valor dentro da edit..
e ele nao retorna erro nenhum nem nada...

ninguem tem ideia do pq? tah fogo... to fuçando aki mais a coisa tah grave :(


GOSTEI 0
POSTAR