update 200412.sql

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

--2004-12-06
--增加10KV用户管理及记帐功能
--by jimmy at gold home
Set Term ^;
--10KV用户
Create Table Tb_10KVHouse
(
   f_HouseNo Char(8) Not Null,--户号
   f_HouseName Varchar(30),--户名
   f_Last_Balance Numeric(10,2) Default 0 Not Null,--年初余额
   Constraint k_HouseNo Unique (f_HouseNo)
)
^

--应收款项目
Create Table Tb_10KVAccount
(
   f_HouseNo Char(8) Not Null,--户号
   f_Time TimeStamp,--时间
   f_Item Varchar(20),--收费项目
   f_Money Numeric(10,2)--金额
)
^
Create Index idx_10KVAccount on Tb_10KVAccount(f_HouseNo, f_Time)
^
--收款记录
Tb_10KV_Gathering

^
--以下2004-12-14 蒋跃明增加于金色家园
--10KV 收费项目字段名称
Create Table Tb_10KVFeeItem
(
   f_Field Varchar(15),--字段名
   f_Item Varchar(20)--字段说明
)
^
Insert Into Tb_10KVFeeItem(f_Field, f_Item) Values ('G18','电费')
^
Insert Into Tb_10KVFeeItem(f_Field, f_Item) Values ('G17','滞纳金')
^
Insert Into Tb_10KVFeeItem(f_Field, f_Item) Values ('G17','维护费')
^
--建立应收费及收费台帐视图
Create View v_10kvAccount (f_HouseNo, f_Time, f_Item, f_Money)
As
Select  f_HouseNo, f_Time,  f_Item, f_Money From Tb_10kvAccount
Union
Select  f_House_No, f_Charge_Date, Cast('交费' As Varchar(20)), f_Actual_Receive From Tb_10kv_Gathering
^

--电价表
Create Table Tb_10kvPrice
(
   f_No Char(2),--电价编号
   f_Name Varchar(30),--电价名称
   f_Price1 Numeric(10,2),--400v电价
   f_Price10 Numeric(10,2)--10kv电价
)
^

--收费员用户表
Create Table Tb_User
(
   f_UserId Char(4) Not Null,
   f_UserName Varchar(10),
   Constraint k_User Unique (f_UserId)
)