tjdwsdffrm.pas

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

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.