unit zjdwsdfbfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, db, StdCtrls, Mask, DBCtrlsEh, Gauges, ExtCtrls;

type
  Tzjdwsdfb = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Gauge1: TGauge;
    Label4: TLabel;
    Label5: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zjdwsdfb: Tzjdwsdfb;

implementation

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

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

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

procedure Tzjdwsdfb.SpeedButton1Click(Sender: TObject);
var
  i,j:integer;
begin
j:=1;
yfgldata.dwsdf.Filter:='年度='+floattostr(zjdwsdfb.DBNumberEditEh1.Value);
yfgldata.dwsdf.Filtered:=true;
if yfgldata.dwsdf.Locate('月份',int(zjdwsdfb.DBNumberEditEh2.Value),[loCaseInsensitive]) then
  messagebox(zjdwsdfb.Handle,'該月份的數據已經存在。','營房工作管理系統',16)
else
  begin
  yfgldata.dw.First;
  for i:=1 to yfgldata.dw.RecordCount do
    begin
    if trim(yfgldata.dw.FieldByName('上級代碼').AsString)<>'' then
      begin
      yfgldata.dwsdf.Append;
      yfgldata.dwsdf.FieldByName('序號').AsInteger:=j;
      yfgldata.dwsdf.FieldByName('單位代碼').AsString:=yfgldata.dw.FieldByName('單位代碼').AsString;
      yfgldata.dwsdf.FieldByName('單位名稱').AsString:=yfgldata.dw.FieldByName('單位名稱').AsString;
      yfgldata.dwsdf.FieldByName('單位責任人').AsString:=yfgldata.dw.FieldByName('單位責任人').AsString;
      yfgldata.dwsdf.FieldByName('年度').AsInteger:=zjdwsdfb.DBNumberEditEh1.Value;
      yfgldata.dwsdf.FieldByName('月份').AsInteger:=zjdwsdfb.DBNumberEditEh2.Value;
      yfgldata.dwsdf.FieldByName('水電費標準').AsFloat:=(yfgldata.dw.FieldByName('軍職以上干部編制數').AsInteger+yfgldata.dw.FieldByName('師職干部編制數').AsInteger+yfgldata.dw.FieldByName('團職干部編制數').AsInteger+yfgldata.dw.FieldByName('營職干部編制數').AsInteger+yfgldata.dw.FieldByName('連排職干部編制數').AsInteger+yfgldata.dw.FieldByName('學員人數').AsInteger+yfgldata.dw.FieldByName('職工編制數').AsInteger)*(yfgldata.sdfbz.FieldByName('干部職工基本標準').AsFloat+yfgldata.sdfbz.FieldByName('干部職工補助標準').AsFloat)+yfgldata.dw.FieldByName('戰士編制數').AsInteger*(yfgldata.sdfbz.FieldByName('戰士基本標準').AsFloat+yfgldata.sdfbz.FieldByName('戰士補助標準').AsFloat);
      yfgldata.dwsdf.FieldByName('用水量').AsFloat:=0;
      yfgldata.dwsdf.FieldByName('用電量').AsFloat:=0;
      yfgldata.dwsdf.FieldByName('水消耗定額').AsFloat:=yfgldata.dw.FieldByName('軍職以上干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','軍職以上','水消耗定額')+yfgldata.dw.FieldByName('師職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','師職','水消耗定額')+yfgldata.dw.FieldByName('團職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','團職','水消耗定額')+yfgldata.dw.FieldByName('營職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','營職','水消耗定額')+yfgldata.dw.FieldByName('連排職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','連排職','水消耗定額')+yfgldata.dw.FieldByName('學員人數').AsFloat*yfgldata.zjxhde.Lookup('職級','學員','水消耗定額')+yfgldata.dw.FieldByName('戰士編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','戰士','水消耗定額')+yfgldata.dw.FieldByName('職工編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','職工','水消耗定額');
      yfgldata.dwsdf.FieldByName('電消耗定額').AsFloat:=yfgldata.dw.FieldByName('軍職以上干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','軍職以上','電消耗定額')+yfgldata.dw.FieldByName('師職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','師職','電消耗定額')+yfgldata.dw.FieldByName('團職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','團職','電消耗定額')+yfgldata.dw.FieldByName('營職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','營職','電消耗定額')+yfgldata.dw.FieldByName('連排職干部編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','連排職','電消耗定額')+yfgldata.dw.FieldByName('學員人數').AsFloat*yfgldata.zjxhde.Lookup('職級','學員','電消耗定額')+yfgldata.dw.FieldByName('戰士編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','戰士','電消耗定額')+yfgldata.dw.FieldByName('職工編制數').AsFloat*yfgldata.zjxhde.Lookup('職級','職工','電消耗定額');
      yfgldata.dwsdf.FieldByName('水電費節約').AsFloat:=(yfgldata.dw.FieldByName('軍職以上干部編制數').AsInteger+yfgldata.dw.FieldByName('師職干部編制數').AsInteger+yfgldata.dw.FieldByName('團職干部編制數').AsInteger+yfgldata.dw.FieldByName('營職干部編制數').AsInteger+yfgldata.dw.FieldByName('連排職干部編制數').AsInteger+yfgldata.dw.FieldByName('學員人數').AsInteger+yfgldata.dw.FieldByName('職工編制數').AsInteger)*(yfgldata.sdfbz.FieldByName('干部職工基本標準').AsFloat+yfgldata.sdfbz.FieldByName('干部職工補助標準').AsFloat)+yfgldata.dw.FieldByName('戰士編制數').AsInteger*(yfgldata.sdfbz.FieldByName('戰士基本標準').AsFloat+yfgldata.sdfbz.FieldByName('戰士補助標準').AsFloat);
      yfgldata.dwsdf.Post;
      j:=j+1;
    end;
    zjdwsdfb.Gauge1.Progress:=(yfgldata.dw.RecNo*100) div yfgldata.dw.RecordCount;
    yfgldata.dw.Next;
    end;
  messagebox(zjdwsdfb.Handle,'新單位月收費表已生成完畢。','營房工作管理系統',64);
  close;
  if yfgldata.qdwsdf.Active then
  yfgldata.qdwsdf.Active:=false;
  yfgldata.qdwsdf.Params[0].AsInteger:=dwsdf.DBNumberEditEh1.Value;
  yfgldata.qdwsdf.Params[1].AsInteger:=dwsdf.DBNumberEditEh2.Value;
  yfgldata.qdwsdf.Active:=true;
  yfgldata.dwsdf.Filtered:=false;
  dwsdf.showdwsdf;
  end;
end;

end.