Adicionar, somar, remover dado de um banco

Delphi

16/02/2003

Ola, gostaria da seguinte ajuda:

Tenho um sistema de locadora com banco de dados em Dbase (*.dbf) e nesse sistema existe a parte de alguel e devoluçao, entao como faria via codigo o seguinte procedimento?

Tenho 3 fitas no estoque, alugo uma, entao remove-se 1 do estoque de 3, dando um total de 2 na casa. Atualizando o banco de dados. Na devolução adiciono essa 1 alugada a mais 2 que ja tenho, atualizando fia-se 3 de novo.

como fazer esse codigo?

aceito por email um exemplo:

agradeço desde ja

junior@velonet.com.br


Anonymous

Anonymous

Curtidas 0

Respostas

Henriquebyte

Henriquebyte

16/02/2003

daz assim
cria uma variável, captura o valor anterior duminui ou soma o novo valor, depois edita o banco e devolveo valor atual

var

quant_anterior : integer;
quant_baixa : integer;
quant_atual : integer;

begin
val_cod := dados.t_estoqueCodigo_produto.asinteger;
dados.t_estoque.Findkey([val_cod])

quant_anterior := dados.t_estoqueQuant_produto.asinteger;
quant_baixa := strtoint(Edit_quant_baixa.text);
quant_atual := quant_anterior - quant_baixa;
dados.t_estoque.edit;
dados.t_estoqueQuant_produto.asinteger := quant_atual;
dados.t_estoque.post;
end;


GOSTEI 0
POSTAR