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.
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.
