dwsdfshfrm.pas

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

unit dwsdfshfrm;

interface

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

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

var
  dwsdfsh: Tdwsdfsh;

implementation

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

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

procedure Tdwsdfsh.SpeedButton9Click(Sender: TObject);
var
i,m:integer;
begin
yfgldata.dwsdf.Filter:='年度='+floattostr(dwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(dwsdf.DBNumberEditEh2.Value);
yfgldata.dwsdf.Filtered:=true;
m:=yfgldata.dwsdf.RecordCount;
yfgldata.dwsdf.FindFirst;
for i:=1 to yfgldata.dwsdf.RecordCount do
  begin
    yfgldata.dwsdf.Edit;
    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.FindNext;
    dwsdfsh.Gauge1.Progress:=(i*100) div m;
  end;
yfgldata.dwsdf.Filtered:=false;
close;
end;

end.