sdfhsenhfrm.pas

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

unit sdfhsenhfrm;

interface

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

type
  Tsdfshenh = class(TForm)
    Panel1: TPanel;
    Gauge1: TGauge;
    Panel2: TPanel;
    SpeedButton9: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    procedure shenhe;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sdfshenh: Tsdfshenh;

implementation

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

procedure tsdfshenh.shenhe;
var
i,m:integer;
begin
yfgldata.sdf.Filter:='年度='+floattostr(yhsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(yhsdf.DBNumberEditEh2.Value);
yfgldata.sdf.Filtered:=true;
m:=yfgldata.sdf.RecordCount;
yfgldata.sdf.FindFirst;
for i:=1 to yfgldata.sdf.RecordCount do
  begin
    yfgldata.sdf.Edit;
    yfgldata.sdf.FieldByName('煤气费').AsFloat:=yfgldata.sdf.FieldByName('用气量').AsFloat*yfgldata.sdjg.FieldByName('煤气价').AsFloat;
    if yfgldata.sdf.FieldByName('用水量').AsFloat>yfgldata.sdf.FieldByName('用水补助').AsFloat then
      yfgldata.sdf.FieldByName('水费').AsFloat:=(yfgldata.sdf.FieldByName('用水量').AsFloat-yfgldata.sdf.FieldByName('用水补助').AsFloat)*yfgldata.sdjg.FieldByName('水价').AsFloat
    else
      yfgldata.sdf.FieldByName('水费').AsFloat:=0;
    if yfgldata.sdf.FieldValues['用电量']>yfgldata.sdf.FieldByName('用电补助').AsFloat then
      yfgldata.sdf.FieldByName('电费').AsFloat:=(yfgldata.sdf.FieldByName('用电量').AsFloat-yfgldata.sdf.FieldByName('用电补助').AsFloat)*yfgldata.sdjg.FieldByName('电价').AsFloat
    else
      yfgldata.sdf.FieldByName('电费').AsFloat:=0;
    yfgldata.sdf.FieldByName('合计').AsFloat:=yfgldata.sdf.FieldByName('煤气费').AsFloat+yfgldata.sdf.FieldByName('水费').AsFloat+yfgldata.sdf.FieldByName('电费').AsFloat+yfgldata.sdf.FieldByName('房租').AsFloat;
    yfgldata.sdf.Post;
    yfgldata.sdf.FindNext;
    sdfshenh.Gauge1.Progress:=(i*100) div m;
  end;
end;

procedure Tsdfshenh.SpeedButton9Click(Sender: TObject);
begin
sdfshenh.shenhe;
yfgldata.sdf.Filtered:=false;
close;
end;

procedure Tsdfshenh.SpeedButton1Click(Sender: TObject);
begin
yfgldata.sdf.Filtered:=false;
sdfshenh.Close;
end;

end.