?? dwsdfshfrm.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -