Eder Posted July 18, 2007 Report Share Posted July 18, 2007 Ola..eu tenho esta pequena consulta em cima da tabke(paradox)Porem quando ela acha algo me mostra o proprio registro na tela....mas quando não acha não me retorna nada...Eu gostaria que me retornasse pelo menos uma mensagem dizendo que nada foi encontrado.o codigo que estou usando é este abaixo:procedure TForm2.Action1Execute(Sender: TObject);var strnome : string; //F2 PESQUISA veiculos begin strnome := inputbox('xxxxxx - Pesquisa Veículos','Número da Placa: ', ''); table1.IndexFieldNames := 'placa'; table1.Cancel; table1.FindNearest([strnome]); table1.IndexFieldNames := ''; DbEdit2.SetFocus;end;se tiver alguma outra forma também agradeço.....mas teria que ser com Table.muito Grato Quote Link to comment Share on other sites More sharing options...
0 Guest --felipe -- Posted July 18, 2007 Report Share Posted July 18, 2007 Ola..eu tenho esta pequena consulta em cima da tabke(paradox)Porem quando ela acha algo me mostra o proprio registro na tela....mas quando não acha não me retorna nada...Eu gostaria que me retornasse pelo menos uma mensagem dizendo que nada foi encontrado.o codigo que estou usando é este abaixo:procedure TForm2.Action1Execute(Sender: TObject);var strnome : string; //F2 PESQUISA veiculos begin strnome := inputbox('xxxxxx - Pesquisa Veículos','Número da Placa: ', ''); table1.IndexFieldNames := 'placa'; table1.Cancel; table1.FindNearest([strnome]); table1.IndexFieldNames := ''; DbEdit2.SetFocus;end;se tiver alguma outra forma também agradeço.....mas teria que ser com Table.muito Gratobom não sei trabalhar com tablemas o que você poderia fazer é após a procura verificar se o valor do campo é nulose não for nulo você exibe a placase for exibe uma mensagemalgo assim:if table1.field[0] = '' then messagedlg(Placa não encontrada!! Tente novamente!', mtInformation, [mbOk], 0); else begin table1.IndexFieldNames := ''; DbEdit2.SetFocus; end;abraço Quote Link to comment Share on other sites More sharing options...
0 Pirambu! Posted July 18, 2007 Report Share Posted July 18, 2007 Cara dá uma olhada neste Post Quote Link to comment Share on other sites More sharing options...
0 Eder Posted July 18, 2007 Author Report Share Posted July 18, 2007 if table1.field[0] = '' then messagedlg(Placa não encontrada!! Tente novamente!', mtInformation, [mbOk], 0); else begin table1.IndexFieldNames := ''; DbEdit2.SetFocus; end;R.:Felipe não deu certo!!Cara dá uma olhada neste PostR.: Este Post ta com problemas...não consigo acessar :( Quote Link to comment Share on other sites More sharing options...
0 Pirambu! Posted July 18, 2007 Report Share Posted July 18, 2007 proced...bitbtn1click.. var x: string; begin x:=''; if inputquery('Procurar','NomeCampo',x) then if not tabela1.Locate('NomeCampo',x,[])then Showmessage('Campo pesquisado não Encotrada'); end;Pronto! Quote Link to comment Share on other sites More sharing options...
0 Eder Posted July 19, 2007 Author Report Share Posted July 19, 2007 valeu....carinha muito grato :D Quote Link to comment Share on other sites More sharing options...
Question
Eder
Ola..
eu tenho esta pequena consulta em cima da tabke(paradox)
Porem quando ela acha algo me mostra o proprio registro na tela....mas quando não acha não me retorna nada...
Eu gostaria que me retornasse pelo menos uma mensagem dizendo que nada foi encontrado.
o codigo que estou usando é este abaixo:
se tiver alguma outra forma também agradeço.....mas teria que ser com Table.
muito Grato
Link to comment
Share on other sites
5 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.