dwsdfhzfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 119 行

unit dwsdfhzfrm;

interface

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

type
  Tdwsdfhz = class(TForm)
    Panel1: TPanel;
    DBChart1: TDBChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    DBGridEh1: TDBGridEh;
    Panel2: TPanel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Label8: TLabel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    DBNumberEditEh1: TDBNumberEditEh;
    Label19: TLabel;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBNumberEditEh1Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
     procedure tongji;
  public
    { Public declarations }
  end;

var
  dwsdfhz: Tdwsdfhz;

implementation

uses datafrm,dwsdfhztfrm;
{$R *.dfm}

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

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

procedure Tdwsdfhz.DBNumberEditEh1Change(Sender: TObject);
begin
dwsdfhz.tongji;
end;

procedure tdwsdfhz.tongji;
var
ysl,ysl0,ydl,ydl0,jy,jy0:real;
num,yue:integer;
begin
ysl:=0.0;
ydl:=0.0;
jy:=0.0;
for yue:=1 to 12 do
  begin
  yfgldata.dwsdf.Filter:='年度='+floattostr(dwsdfhz.DBNumberEditEh1.Value)+' and 月份='+floattostr(yue);
  yfgldata.dwsdf.Filtered:=true;
  yfgldata.dwsdf.FindFirst;
  ysl0:=0;
  ydl0:=0;
  jy0:=0;
  for num:=1 to yfgldata.dwsdf.RecordCount do
    begin
    ysl:=ysl+yfgldata.dwsdf.FieldByName('用水量').AsFloat;
    ysl0:=ysl0+yfgldata.dwsdf.FieldByName('用水量').AsFloat;
    ydl:=ydl+yfgldata.dwsdf.FieldByName('用电量').AsFloat;
    ydl0:=ydl0+yfgldata.dwsdf.FieldByName('用电量').AsFloat;
    jy:=jy+yfgldata.dwsdf.FieldByName('水电费节约').AsFloat;
    jy0:=jy0+yfgldata.dwsdf.FieldByName('水电费节约').AsFloat;
    yfgldata.dwsdf.FindNext;
    end;
  yfgldata.dwsdfhz.Locate('月份',yue,[loCaseInsensitive]);
  yfgldata.dwsdfhz.Edit;
  yfgldata.dwsdfhz.Fields[1].AsFloat:=ysl0;
  yfgldata.dwsdfhz.Fields[2].AsFloat:=ydl0;
  yfgldata.dwsdfhz.Fields[3].AsFloat:=jy0;
  yfgldata.dwsdfhz.Post;
  end;
dwsdfhz.Edit1.Text:=floattostr(ysl);
dwsdfhz.Edit2.Text:=floattostr(ydl);
dwsdfhz.Edit3.Text:=floattostr(jy);
end;

procedure Tdwsdfhz.SpeedButton2Click(Sender: TObject);
begin
dwsdfhzt.QRLabel1.Caption:=inttostr(dwsdfhz.DBNumberEditEh1.Value)+'年度单位水电消耗汇总表';
dwsdfhzt.Preview;
end;

end.