图 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.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