Consulta simples para busca de produto por código - Supermercado

Uma consulta simples para localizar o produto por código no Edit.

 Consulta de Produto simples por código no Edit. (Supermercado).


Bom dia...
Primeiramente vamos construir nossa tabela no Acess mais pode ser feita também no IBExpert(Firebird).

Feito isso vamos para o Delphi 7.
Insira no formulario os seguintes componentes.


Renomei os edits(edtcodigo, edtProduto, edtqtd, edtpreco);
Ligue o dbgrid no DataSource;

Vamos criar um procedimento chamados de pesquisarproduto;

Depois de criar o procesure precione CTrl + Shift + C.
Digite o seguite código nesse procedimento:


simples assim.Agora vamos codificar Apenas 01 edit.
selecione o edtcodigo e vá no Objetc Inspector (events)opcão OnkeyPress.



Veja a linha de codigo.



if key=#13 then // para o enter ser pressiondo;
begin
pesquisarproduto;// foi o procedimento criado enteriormente será inserido aki para o mesmo localizar o codigo veja que o codigo é uma SQL
if sqlproduto.RecordCount >0 then //Indica a quantidade de registros na tabela do banco.
begin
editcodigo.text:=sqlproduto.fieldbyname('codigo').asstring; //busca o codigo na tabela
editproduto.text:=sqlproduto.fieldbyname('produto').asstring;//busca o produto pelo nome
editpreco.text:=sqlproduto.fieldbyname('preco').asstring;//busca o produto pelo preco
Panel2.Caption:=sqlproduto.fieldbyname('produto').AsString;//mostra o nome do produto loclizdo no Panel
edtqtd.SetFocus;//deixa o cursor no editqtd;
end
else
begin
showmessage('produto não Loclizado');//se o produto nao estiver cadastrado ele vai mostrar essa mensagem.
end;
end;
end;
end.

o restante é por sua conta.
Se tudo estiver correto. Parabéns.

Artigos relacionados