VF薄板厂能源数据库的设计+需求分析+文献综述(15)
thisform.txt抄表日期.value=date()
Command1的click事件代码：
messagebox("添加成功！")
thisform.release
Command2的click事件代码：
dele
pack
thisform.release
（2） “库存”表单（kc.scx）如图3.16所示
图 3.16 库存表单
表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“库存.dbf”，然后将表中相应的字段用鼠标拖曳至表单上。
其中主要的事件代码如下：
Form1的init事件代码：
use 库存.dbf
go bottom
append blank
thisform.txt抄表日期.value=date()
skip -1
scatter field 期末大同煤，期末锅炉煤 to a
skip
gather from a fields 期初大同煤，期初锅炉煤
Command1的click事件代码：
messagebox("添加成功！")
thisform.release
Command2的click事件代码：
dele
pack
thisform.release
（3） “外调能源”表单（wdny.scx）如图3.17所示
图 3.17 外调能源表单
表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“外调能源.dbf”，然后将表中相应的字段用鼠标拖曳至表单上。
其中主要的事件代码如下：
Form1的init事件代码：
use 外调能源.dbf
go bottom
append blank
thisform.txt抄表日期.value=date()
skip -1
scatter field 电，自来水 to a
skip
gather from a fields 上月电，上月自来水
Command1的click事件代码：
messagebox("添加成功！")
thisform.release
Command2的click事件代码：
dele
pack
Thisform.release
（4） “酸洗抄表数”表单（sxcbs.scx）如图3.18所示
图 3.18 酸洗抄表数表单
表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“酸洗抄表数.dbf”，然后将表中相应的字段用鼠标拖曳至表单上。
其中主要的事件代码如下：
Form1的init事件代码：
use 酸洗抄表数.dbf
go bottom
append blank
thisform.txt抄表日期.value=date()
skip -1
scatter field 电，自来水，脱盐水，工业水，循环水，发生炉煤气，蒸汽，;
压缩空气 to a
skip
gather from a fields 上月电，上月自来水，上月脱盐水，上月工业水，;
上月循环水，上月发生炉煤气，上月蒸汽，上月压缩空气
Command1的click事件代码：
messagebox("添加成功！")
thisform.release
Command2的click事件代码：
dele
pack
thisform.release
（5） 其余抄表数类推。
（6） “工序产量”表单（gxcl.scx），如图3.19所示。
图 3.19 工序产量表单
表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“酸洗抄表数.dbf”，然后将表中相应的字段用鼠标拖曳至表单上。
其中主要的事件代码如下：
Form1的init事件代码：
use gxcl.dbf
go bottom
append blank
thisform.txt日期.value=date()
Command1的click事件代码：
messagebox("添加成功！")
thisform.release
Command2的click事件代码：
dele
pack
thisform.release
3.3.3 数据修改模块
（1） 购入能源修改表单（grnyxg.scx），如图3.20所示。