图 3.20 购入能源修改表单
Form1的init事件代码：
 Use 购入能源.dbf
 Go bottom
 
Commandgroup1的click事件代码：
  Sele 购入能源
  Do case
  Case this.valve=1
  If recno（）<recc（）
  Skip
  Endif
  Case this.valve=2
  If recno（）〉1
  Skip -1
  Endif
  Case this.valve=3
  Go top
  Case this.valve=4
  Go bottom
  Case this.valve=5
  Do form srcxrp.scx
  Case this.valve=6
  Sy=messagebox('是要删页吗?'，1+48+256，'确认删除该月数据!')
     If sy=1
  Delete
  Pack
     Endif
  Case this.valve=7
  Thisform.release
  Endcase
  Thisform.refresh
 
Command5的gotfocus事件代码：
 Jlh=recno（）
 Loca for 日期=rp
 If not found()
 Wait window"无此日期!"
 Go jlh
 Endif
 Thisform.refresh
（2）    其余能源表单的修改与上面类似，以此类推。
（3）    “输入查询日期”表单（srcxrq.scx），如图3.21所示。
 
 图 3.21 输入查询日期表单
在该表单中将text1的value值设置为日期型，及{}。
 Text1的lostfocus事件代码：
 rp=thisform.text1.value
   
Command1的click事件代码：
 Thisform.release
3.3.4    报表模块
（1）    “查询报表”表单（scbb.scx），如图3.22所示。
    
 图 3.22 “查询报表”表单
表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“酸洗抄表数.dbf”。
在代码窗口输入代码
Command1的click事件代码：
sele 购入能源
loca for year(日期)=rqy and month(日期)=rqm
if not found()
wait window"无此年月!"
else
repo form nyphybb prev
endif
thisform.release

Tex1的LostFocus事件代码：
rqy=val(alltrim(thisform.text1.value))

Tex2的LostFocus事件代码：
rqm=val(alltrim(thisform.text1.value))
（2）    能源平衡月报表（nyphybb. frx）
在项目管理器的 “文档”选项卡中选择“报表”，点击“新建”按钮，建立“nyphybb. frx”，进入报表设计器。右击鼠标选择“数据环境”，进入“数据环境设计器”，将“购入能源”、“库存”、“gxcl”等数据库表及“外调用量”、“自产用量”、“亏损”、“酸洗工序用量”、“冷轧工序用量”、“脱脂工序用量”、“退火工序用量”、“平整工序用量”、“横切工序用量”、“纵切工序用量”、“镀锡工序用量”、“镀锡剪切工序用量”视图添加至数据环境中，如图3.23所示。
右击数据环境设计器，在弹出菜单中选择“代码”。
Dataenvironment的init事件的代码为：
sele 购入能源
set filter to Year(日期)=rqy and Month(日期)=rqm
 
 图 3.23 报表设计器中数据环境设计器
在页标头区域将报表控件放入，见图3.24。
 
 图 3.24 报表设计器
在购入能源和自产能源域控件按相应的数据表或视图所对应的数据转化为标准煤的形式。例如，购入量中的大同煤域控件的表达式形式如图3.25所示。 VF薄板厂能源数据库的设计+需求分析+文献综述(16):http://www.751com.cn/jisuanji/lunwen_1744.html