unit yhsdfhzfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, TeEngine, Series, TeeProcs, Chart,
  DbChart, Mask, DBCtrlsEh, ComCtrls,db, Grids, DBGridEh;

type
  Tyhsdfhz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBChart1: TDBChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    SpeedButton1: TSpeedButton;
    Panel3: TPanel;
    Label17: TLabel;
    Edit8: TEdit;
    Label18: TLabel;
    Label15: TLabel;
    Edit7: TEdit;
    Label16: TLabel;
    Label13: TLabel;
    Edit6: TEdit;
    Label14: TLabel;
    Label11: TLabel;
    Edit5: TEdit;
    Label12: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Edit4: TEdit;
    Label10: TLabel;
    DBGridEh1: TDBGridEh;
    Label19: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    SpeedButton2: TSpeedButton;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBNumberEditEh1Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
    procedure tongji;
  public
    { Public declarations }
  end;

var
  yhsdfhz: Tyhsdfhz;

implementation

uses datafrm,yhsdffrm,yhsdfhztfrm;
{$R *.dfm}

procedure Tyhsdfhz.FormActivate(Sender: TObject);
var
present:tdatetime;
Year, Month, Day: Word;
begin
present:=now;
decodedate(present,year,month,day);
yhsdfhz.DBNumberEditEh1.Value:=year;
yhsdfhz.tongji;
end;

procedure Tyhsdfhz.SpeedButton1Click(Sender: TObject);
begin
yfgldata.sdf.Filtered:=false;
close;
end;

procedure tyhsdfhz.tongji;
var
yql,yql0,mqf,ydl,ydl0,df,ysl,ysl0,sf,fz,hj:real;
num,yue:integer;
begin
yql:=0.0;
mqf:=0.0;
ydl:=0.0;
df:=0.0;
ysl:=0.0;
sf:=0.0;
fz:=0.0;
hj:=0.0;
for yue:=1 to 12 do
  begin
  yfgldata.sdf.Filter:='年度='+floattostr(yhsdfhz.DBNumberEditEh1.Value)+' and 月份='+floattostr(yue);
  yfgldata.sdf.Filtered:=true;
  yfgldata.sdf.FindFirst;
  yql0:=0;
  ysl0:=0;
  ydl0:=0;
  for num:=1 to yfgldata.sdf.RecordCount do
    begin
    yql:=yql+yfgldata.sdf.FieldByName('用氣量').AsFloat;
    yql0:=yql0+yfgldata.sdf.FieldByName('用氣量').AsFloat;
    mqf:=mqf+yfgldata.sdf.FieldByName('煤氣費').AsFloat;
    ydl:=ydl+yfgldata.sdf.FieldByName('用電量').AsFloat;
    ydl0:=ydl0+yfgldata.sdf.FieldByName('用電量').AsFloat;
    df:=df+yfgldata.sdf.FieldByName('電費').AsFloat;
    ysl:=ysl+yfgldata.sdf.FieldByName('用水量').AsFloat;
    ysl0:=ysl0+yfgldata.sdf.FieldByName('用水量').AsFloat;
    sf:=sf+yfgldata.sdf.FieldByName('水費').AsFloat;
    fz:=fz+yfgldata.sdf.FieldByName('房租').AsFloat;
    hj:=hj+yfgldata.sdf.FieldByName('合計').AsFloat;
    yfgldata.sdf.FindNext;
    end;
  yfgldata.Table1.Locate('月份',yue,[loCaseInsensitive]);
  yfgldata.Table1.Edit;
  yfgldata.Table1.Fields[0].AsFloat:=yql0;
  yfgldata.Table1.Fields[1].AsFloat:=ysl0;
  yfgldata.Table1.Fields[2].AsFloat:=ydl0;
  yfgldata.Table1.Post;
  end;
yhsdfhz.Edit1.Text:=floattostr(yql);
yhsdfhz.Edit2.Text:=floattostr(mqf);
yhsdfhz.Edit3.Text:=floattostr(ysl);
yhsdfhz.Edit4.Text:=floattostr(sf);
yhsdfhz.Edit5.Text:=floattostr(ydl);
yhsdfhz.Edit6.Text:=floattostr(df);
yhsdfhz.Edit7.Text:=floattostr(fz);
yhsdfhz.Edit8.Text:=floattostr(hj);
end;

procedure Tyhsdfhz.DBNumberEditEh1Change(Sender: TObject);
begin
yhsdfhz.tongji;
end;

procedure Tyhsdfhz.SpeedButton2Click(Sender: TObject);
begin
yhsdfhzt.QRLabel1.Caption:=inttostr(yhsdfhz.DBNumberEditEh1.Value)+'年度用戶氣水電消耗匯總表';
yhsdfhzt.Preview;
end;

end.