xgdwsdffrm.pas

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

unit xgdwsdffrm;

interface

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

type
  Txgdwsdf = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    DBNumberEditEh2: TDBNumberEditEh;
    Label4: TLabel;
    Label11: TLabel;
    DBNumberEditEh3: TDBNumberEditEh;
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showdata;
  end;

var
  xgdwsdf: Txgdwsdf;

implementation

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

procedure Txgdwsdf.SpeedButton5Click(Sender: TObject);
begin
yfgldata.dwsdf.Filtered:=false;
yfgldata.dwsdf.FindFirst;
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;
dwsdf.showdwsdf;
close;
end;

procedure Txgdwsdf.FormActivate(Sender: TObject);
begin
yfgldata.dwsdf.Filter:='年度='+floattostr(dwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(dwsdf.DBNumberEditEh2.Value);
yfgldata.dwsdf.Filtered:=true;
yfgldata.dwsdf.FindFirst;
xgdwsdf.Edit1.Text:=inttostr(yfgldata.dwsdf.FieldByName('序号').AsInteger);
xgdwsdf.Edit2.Text:=yfgldata.dwsdf.FieldByName('单位代码').AsString;
xgdwsdf.Edit3.Text:=yfgldata.dwsdf.FieldByName('单位名称').AsString;
xgdwsdf.DBNumberEditEh2.Value:=yfgldata.dwsdf.FieldByName('用水量').AsFloat;
xgdwsdf.DBNumberEditEh3.Value:=yfgldata.dwsdf.FieldByName('用电量').AsFloat;
xgdwsdf.showdata;
end;

procedure txgdwsdf.showdata;
begin
xgdwsdf.SpeedButton1.Enabled:=(yfgldata.dwsdf.RecNo<>1) and (yfgldata.dwsdf.RecordCount>0);
xgdwsdf.SpeedButton2.Enabled:=(yfgldata.dwsdf.RecNo<>1) and (yfgldata.dwsdf.RecordCount>0);
xgdwsdf.SpeedButton3.Enabled:=(yfgldata.dwsdf.RecNo<>yfgldata.dwsdf.RecordCount) and (yfgldata.dwsdf.RecordCount>0);
xgdwsdf.SpeedButton4.Enabled:=(yfgldata.dwsdf.RecNo<>yfgldata.dwsdf.RecordCount) and (yfgldata.dwsdf.RecordCount>0);
end;

procedure Txgdwsdf.SpeedButton1Click(Sender: TObject);
begin
yfgldata.dwsdf.FindFirst;
xgdwsdf.Edit1.Text:=inttostr(yfgldata.dwsdf.FieldByName('序号').AsInteger);
xgdwsdf.Edit2.Text:=yfgldata.dwsdf.FieldByName('单位代码').AsString;
xgdwsdf.Edit3.Text:=yfgldata.dwsdf.FieldByName('单位名称').AsString;
xgdwsdf.DBNumberEditEh2.Value:=yfgldata.dwsdf.FieldByName('用水量').AsFloat;
xgdwsdf.DBNumberEditEh3.Value:=yfgldata.dwsdf.FieldByName('用电量').AsFloat;
xgdwsdf.showdata;
end;

procedure Txgdwsdf.SpeedButton2Click(Sender: TObject);
begin
yfgldata.dwsdf.FindPrior;
xgdwsdf.Edit1.Text:=inttostr(yfgldata.dwsdf.FieldByName('序号').AsInteger);
xgdwsdf.Edit2.Text:=yfgldata.dwsdf.FieldByName('单位代码').AsString;
xgdwsdf.Edit3.Text:=yfgldata.dwsdf.FieldByName('单位名称').AsString;
xgdwsdf.DBNumberEditEh2.Value:=yfgldata.dwsdf.FieldByName('用水量').AsFloat;
xgdwsdf.DBNumberEditEh3.Value:=yfgldata.dwsdf.FieldByName('用电量').AsFloat;
xgdwsdf.showdata;
end;

procedure Txgdwsdf.SpeedButton3Click(Sender: TObject);
begin
yfgldata.dwsdf.FindNext;
xgdwsdf.Edit1.Text:=inttostr(yfgldata.dwsdf.FieldByName('序号').AsInteger);
xgdwsdf.Edit2.Text:=yfgldata.dwsdf.FieldByName('单位代码').AsString;
xgdwsdf.Edit3.Text:=yfgldata.dwsdf.FieldByName('单位名称').AsString;
xgdwsdf.DBNumberEditEh2.Value:=yfgldata.dwsdf.FieldByName('用水量').AsFloat;
xgdwsdf.DBNumberEditEh3.Value:=yfgldata.dwsdf.FieldByName('用电量').AsFloat;
xgdwsdf.showdata;
end;

procedure Txgdwsdf.SpeedButton4Click(Sender: TObject);
begin
yfgldata.dwsdf.FindLast;
xgdwsdf.Edit1.Text:=inttostr(yfgldata.dwsdf.FieldByName('序号').AsInteger);
xgdwsdf.Edit2.Text:=yfgldata.dwsdf.FieldByName('单位代码').AsString;
xgdwsdf.Edit3.Text:=yfgldata.dwsdf.FieldByName('单位名称').AsString;
xgdwsdf.DBNumberEditEh2.Value:=yfgldata.dwsdf.FieldByName('用水量').AsFloat;
xgdwsdf.DBNumberEditEh3.Value:=yfgldata.dwsdf.FieldByName('用电量').AsFloat;
xgdwsdf.showdata;
end;

procedure Txgdwsdf.SpeedButton6Click(Sender: TObject);
begin
application.CreateForm(tdwsdfdw,dwsdfdw);
try
  dwsdfdw.ShowModal;
finally
  dwsdfdw.Free;
end;
end;

procedure Txgdwsdf.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
yfgldata.dwsdf.Edit;
yfgldata.dwsdf.FieldByName('用水量').AsFloat:=xgdwsdf.DBNumberEditEh2.Value;
yfgldata.dwsdf.FieldByName('用电量').AsFloat:=xgdwsdf.DBNumberEditEh3.Value;
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;
end;

end.