Retornar mensagem de item não existente banco de dados

[Dennis Ávila 0]

Bom dia.

Salve, salve galera do forum, estou terminando um catalogo de peças que estou desenvolvendo em delphi e falta somente duas coisas que preciso fazer e não estou conseguindo, por isso venho pedir a ajuda de vocês.

 

1º Tenho um edit1 onde o individuo vai digitar o codigo e ai se tiver cadastro do item ele será selecionado na dbgrid1, quero saber como faço para retornar alguma mensagem (exe: Produto não cadastrado) caso o codigo procurado não exista no BD. Eu estou usando o código abaixo no botão de pesquisa:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Locate( 'original',Edit1.Text, [loCaseInsensitive, loPartialKey] );

end;

 

 

2º Como faço para marcar (mudar a cor) da linha do dbgrid do item pesquisado no edit1.

[Meneguci 1]

Olá dennis, se não me engano o locate retorna um valor boolean, voce pode usá-lo para saber se localizou ou não a informação na query.

   if not ADOTable1.Locate('original',Edit1.Text, [loCaseInsensitive, loPartialKey]) then
          showmessage('Não foi encontrado nenhum item');

 

Agora para destacar o item encontrado, voce pode habilitar a opção da grid, se não me engano, rowselect em options.