- 上一篇：C#彩色图像的伪色空间处理程序设计
- 下一篇：ASP.net+Sqlsrver的HR管理系统设计与实现
图 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所示。