Fórum Substituir código por trigger! #244895

bom dia..
tenho um programinha de controle de estoque e queria fazer o seguinte:
faço a baixa e a inclusão dos produtos via código.. me pediram pra usar uma trigger .. como faria isso.. eis meu codigo abaixo

procedure TDM.PedidosBeforePost(DataSet: TDataSet);
var valor: integer;
begin
DM.ItensPedido.first;
while not Dm.ItensPedido.eof do
begin
try
begin
DM.Produtos.FindKey([DM.ItensPedidocodproduto.value]);
valor := DM.ProdutosSaldo.Value - DM.ItensPedidoQuantidade.Value;
DM.Produtos.Edit;
DM.ProdutosSaldo.Value:= VALOR;
DM.Produtos.Post;
end;
except
on E:exception do
showmessage(´Ocorreu o seguinte erro:´+E.message);
end;
Dm.ItensPedido.next;

end;
end;


procedure TDM.ItensPedidoBeforeDelete(DataSet: TDataSet);
var valor:integer;
begin
try
begin
DM.Produtos.FindKey([DM.ItensPedidocodproduto.value]);
valor := DM.ProdutosSaldo.Value + DM.ItensPedidoQuantidade.Value;
DM.Produtos.Edit;
DM.ProdutosSaldo.Value:= VALOR;
DM.Produtos.Post;
end;
except
on E:exception do
showmessage(´Ocorreu o seguinte erro:´+E.message);
end;
end;


vcs podem me ajudar a montar essa trigger.. e se não for pedir mto comentá-la pois não tenho conhecimento de trigers..
valeu