update20051230.sql

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

请依次执行以下4条SQL, 方法如下:

第1步 辅助功能-->特殊功能-->执行SQL, 打开SQL执行窗口并选择第一个标签(Select)
第2步 去掉右下角的Select复选按钮，使之处于非选中状态
第3步 依次输入(建议拷贝)以下4条SQL语句到输入框, 并按 [Exec SQL]按钮执行，
       程序执行过程中请勿关闭系统，等待系统执行完毕, 等待时间依数据量和机器速度
       不同，可能1-30分钟
注: 
   第3条和第4条的作用是在1位及2位的箱号前加补'0', 如果不需要可以不执行


Alter Table Tb_House Alter Column f_Box_No Type Varchar(6)

Update Tb_House Set f_Box_No = f_trim(f_Box_No)

Update Tb_House Set f_Box_No = '0' || f_Box_No Where f_strlen(f_Box_no) = 2

Update Tb_House Set f_Box_No = '00' || f_Box_No Where f_strlen(f_Box_no) = 1