unit tjdwsdffrm;

interface

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

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

var
  tjdwsdf: Ttjdwsdf;

implementation

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

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

procedure Ttjdwsdf.SpeedButton1Click(Sender: TObject);
var
i:integer;
begin
if tjdwsdf.dxLookupTreeView1.Text<>'' then
  begin
    yfgldata.dwsdf.Filter:='年度='+floattostr(dwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(dwsdf.DBNumberEditEh2.Value);
    yfgldata.dwsdf.Filtered:=true;
    if yfgldata.dwsdf.Locate('單位代碼',tjdwsdf.dxLookupTreeView1.Text,[loCaseInsensitive]) then
      messagebox(tjdwsdf.handle,'該單位數據已經存在。','營房工作管理系統',16)
    else
      if trim(yfgldata.dw.FieldByName('上級代碼').AsString)<>'' then
        begin
          yfgldata.dwsdf.Append;
          yfgldata.dwsdf.FieldByName('序號').AsInteger:=yfgldata.dwsdf.RecordCount;
          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:=dwsdf.DBNumberEditEh1.Value;
          yfgldata.dwsdf.FieldByName('月份').AsInteger:=dwsdf.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:=tjdwsdf.DBNumberEditEh1.Value;
          yfgldata.dwsdf.FieldByName('用電量').AsFloat:=tjdwsdf.DBNumberEditEh2.Value;
          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.dwsdf.FieldByName('水電費標準').AsFloat-(yfgldata.dwsdf.FieldByName('用水量').AsFloat*yfgldata.sdjg.FieldByName('水價').AsFloat+yfgldata.dwsdf.FieldByName('用電量').AsFloat*yfgldata.sdjg.FieldByName('電價').AsFloat);
          yfgldata.dwsdf.Post;
          yfgldata.dwsdf.FindFirst;
          for i:=1 to yfgldata.dwsdf.RecordCount do
          begin
            yfgldata.dwsdf.Edit;
            yfgldata.dwsdf.FieldByName('序號').AsInteger:=i;
            yfgldata.dwsdf.Post;
            yfgldata.dwsdf.FindNext;
          end;
          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;
          close;
        end
      else
        messagebox(tjdwsdf.handle,'該單位為主單位，不能添加。','營房工作管理系統',16);
  end
else
  messagebox(tjdwsdf.handle,'沒有選擇單位代碼。','營房工作管理系統',16);
end;

end.