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所示。 VF薄板厂能源数据库的设计+需求分析+文献综述(15):http://www.youerw.com/jisuanji/lunwen_1744.html