Fórum Programa nao esta obedecendo o foco? #334147

procedure TForm6.Edit1Exit(Sender: TObject); begin dm.ibq1.close; dm.ibq1.sql.clear; // acho que não precisa desta linha aqui. Experimente com e sem ela. dm.ibq1.sql.text := ´select * from sind2 where matricula = :pmatricula´; dm.ibq1.ParamByName(´pMatricula´).AsString := Edit1.Text; dm.ibq1.Open; if NOT dm.ibq1.isEmpty then begin LABEL3.CAPTION:=DM.ibq1.FieldByName(´associado´).AsString; with dm.QryLimpa do begin close; sql.clear; sql.text := ´select * from corrente WHERE matricula = :pmatricula´; // tinha um ´(´ sobrando nesta sql parambyname(´pmatricula´).asString := edit1.text; open; end; end else begin messagedlg(´Código do associado não Localizado´,mterror,[mbOk],0); dm.ibq1.close; // Precisamos fechar a tabela MESTRE. dm.QryLimpa.close; // E a DETALHES tb. if application.messagebox(´Digitar Novamente?´,´Aviso´,36)=idyes then begin edit1.text:=´´; edit1.setfocus; end else [b:98e10bc3f1]dblbox1.setfocus;[/b:98e10bc3f1] end; end;