-

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

启动计费系统并选择合适的数据库(帐套), 然后在特殊功能-->执行SQL 中执行以下查询, 
得到查询结果后按输出按钮可以将结果输出为Excel格式. 输出前请修改输出文件名为您需要的名称.
以下两个查询结果类似, 但格式不一样, 一个为横表, 另一个为竖表
1、统计各用电类别户数
select
   e.f_elect_no
 , e.f_Elect_name
 , (select count(*) from tb_house h where e.f_elect_no = h.f_elect_no)
from Tb_Elect e
union
select cast(null as char(2))
 , cast('合计' as varchar(20))
 , count(*)
  from tb_House
order by 1 


2、同上横表
select
  Count(f_Elect_no) As f_HeJi
 ,Sum(case when f_elect_no In ('00','01') then 1 else 0 end) as f_ZhaoMing 
 ,Sum(case when f_elect_no = '02' then 1 else 0 end) as f_YingYe
 ,Sum(case when f_elect_no = '04' then 1 else 0 end) as f_DianCui
 ,Sum(case when f_elect_no = '05' then 1 else 0 end) as f_FeiJuMing
 ,Sum(case when f_elect_no = '10' then 1 else 0 end) as f_DiBao
 ,Sum(case when f_elect_no = '11' then 1 else 0 end) as f_WuBao
 ,Sum(case when f_elect_no In ('31','32') then 1 else 0 end) as f_DongLi
from tb_house