update 20050124.sql.txt

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

--2005-01-24
--电费计费Procedure
ALTER PROCEDURE P_REBUILDTRANSFERFEE
(
  V_TRANSFER_NO CHAR(6)
)
AS
Declare variable v_house_no char(12);
Begin
   --清除此台变原有数据
   Delete From Tb_FeeDetail Where f_Transfer_No = :v_Transfer_No;
   For
      Select f_house_no
         From Tb_House
         Where f_transfer_no = :v_transfer_no
         Into :v_house_no
   Do
   Begin
      Execute Procedure P_CalcHouseFee :v_House_No;/*以当前值计算用户的电费*/
   End
   Delete From Tb_FeeDetail Where f_Transfer_No = :v_Transfer_No And f_Amount = 0;
End
^
--完全重新统计电费
Create PROCEDURE P_REBUILDFEE
AS
Declare Variable v_Transfer_No char(12);
Begin
   --清除所有计费结果
   Delete From Tb_FeeDetail;
   For
      Select f_Transfer_No
         From Tb_Transfer
         Into :v_Transfer_No
   Do
   Begin
      Execute Procedure P_RebuildTransferFee :v_Transfer_No;/*重新计算台变用户的电费*/
   End
End
^