图 3.34 镀锡图表表单
Form1的init事件代码:
Use gxcl.dbf
Go bottom
Command1的click事件代码:
rq=ctod(thisform.combo1.value)
rq1=ctod(thisform.combo2.value)
SELECT 镀锡用量.抄表日期, 镀锡用量.电/gxcl.镀锡 as 电,;
镀锡用量.自来水/gxcl.镀锡 as 自来水,;
镀锡用量.脱盐水/gxcl.镀锡 as 脱盐水,;
镀锡用量.循环水/gxcl.镀锡 as 循环水,;
镀锡用量.蒸汽/gxcl.镀锡 as 蒸汽;
FROM 能源数据库!镀锡用量 镀锡用量 INNER JOIN 能源数据库!gxcl ;
ON 镀锡用量.抄表日期 = Gxcl.日期;
WHERE gxcl.日期 BETWEEN CTOD("01/31/2011") AND CTOD("03/31/2011") INTO TABLE 镀锡1.dbf
SELECT 镀锡用量.抄表日期, 镀锡用量.电/gxcl.镀锡 as 电,;
镀锡用量.自来水/gxcl.镀锡 as 自来水,;
镀锡用量.脱盐水/gxcl.镀锡 as 脱盐水,;
镀锡用量.循环水/gxcl.镀锡 as 循环水,;
镀锡用量.蒸汽/gxcl.镀锡 as 蒸汽;
FROM 能源数据库!镀锡用量 镀锡用量 INNER JOIN 能源数据库!gxcl ;
ON 镀锡用量.抄表日期 = gxcl.日期;
WHERE gxcl.日期 BETWEEN rq AND rq1 INTO cursor temp1
DO (_GENGRAPH) WITH "autograph",4,5,"镀锡单耗",.f.,.t.,.t.,'镀锡1.dbf',.t.
thisform.oleboundcontrol1.controlsource="镀锡1.olegraph"
sele t1
zap
thisform.refresh