急!急!急!(50分)

我设计了一个数据库:
基本表: ID(编号)(关键字) mc(名称) sl(数量)
入库表: ID(编号) mc(名称) dj(单价) sl(数量) zje(总金额)
功能要求:
在入库表中添加记录时可以统计某一编号的总数量,但是确在删除的时候不能统计总数量??
代码rocedure TL_MyForm.Button4Click(Sender: TObject);
var
i:integer;
begin
L_rkDialog:=TL_rkDialog.Create(Application);
Try
if(L_rkDialog.ShowModal=mrOK)then
begin
Q_rk.Append;
Q_rk.FieldByName('id').AsString:=L_rkDialog.Edit1.Text;
Q_rk.FieldByName('mc').AsString:=L_rkDialog.Edit2.Text;
Q_rk.FieldByName('rkdj').AsFloat:=StrToFloat(L_rkDialog.Edit3.text);
Q_rk.FieldByName('rksl').AsInteger:=StrToInt(L_rkDialog.Edit4.text);
Q_rk.Post;
//-----------------
Q_rk.Close;
Q_rk.SQL.Clear;
Q_rk.SQL.Add('select sum(rksl) from rkb where id=:L_id ');
Q_rk.ParamByName('L_id').AsString:=L_rkDialog.Edit1.text;
Q_rk.Open;
//更新基本表中的数据
i:=Q_rk.fields[0].AsInteger;
Q_jb.Close;
Q_jb.SQL.Clear;
Q_jb.SQL.Add('update jbb');
Q_jb.SQL.Add('set sl='+IntToStr(i));
Q_Jb.SQL.Add('where id="'+L_rkDialog.Edit1.text+'"');
Q_jb.ExecSQL;
Q_jb.close;
Q_jb.SQL.Clear;
Q_jb.SQL.Add('select*From jbb');
Q_jb.open;
end;
Finally
L_rkDialog.Free;
End;
end;

删除时取得id
update 基本表
set sl=sl-:sl
where id=:id
把刚删除的数量和id输入就行了

请教具体点!

接受答案了.