VF薄板厂能源数据库的设计+需求分析+文献综述(16)
时间:2017-01-03 11:41 来源:毕业论文 作者:毕业论文 点击:次
图 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所示。 (责任编辑：qin) |