unit zjyhsdffrm;

interface

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

type
  Tzjyhsdf = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    DBNumberEditEh3: TDBNumberEditEh;
    DBNumberEditEh4: TDBNumberEditEh;
    DBNumberEditEh5: TDBNumberEditEh;
    DBNumberEditEh6: TDBNumberEditEh;
    DBNumberEditEh7: TDBNumberEditEh;
    DBNumberEditEh8: TDBNumberEditEh;
    DBNumberEditEh9: TDBNumberEditEh;
    DBNumberEditEh10: TDBNumberEditEh;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBNumberEditEh1Change(Sender: TObject);
    procedure DBNumberEditEh3Change(Sender: TObject);
    procedure DBNumberEditEh5Change(Sender: TObject);
    procedure DBNumberEditEh6Change(Sender: TObject);
    procedure DBNumberEditEh4Change(Sender: TObject);
    procedure DBNumberEditEh7Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zjyhsdf: Tzjyhsdf;

implementation

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

procedure Tzjyhsdf.SpeedButton2Click(Sender: TObject);
begin
yfgldata.sdf.Filtered:=false;
close;
end;

procedure Tzjyhsdf.DBNumberEditEh1Change(Sender: TObject);
begin
zjyhsdf.DBNumberEditEh2.Value:=zjyhsdf.DBNumberEditEh1.Value*yfgldata.sdjg.FieldByName('煤氣價(jià)').AsFloat;
zjyhsdf.DBNumberEditEh10.Value:=zjyhsdf.DBNumberEditEh2.Value+zjyhsdf.DBNumberEditEh7.Value+zjyhsdf.DBNumberEditEh8.Value+zjyhsdf.DBNumberEditEh9.Value;
end;

procedure Tzjyhsdf.DBNumberEditEh3Change(Sender: TObject);
begin
if zjyhsdf.DBNumberEditEh3.Value>zjyhsdf.DBNumberEditEh4.Value then
  zjyhsdf.DBNumberEditEh8.Value:=(zjyhsdf.DBNumberEditEh3.Value-zjyhsdf.DBNumberEditEh4.Value)*yfgldata.sdjg.FieldByName('水價(jià)').AsFloat
else
  zjyhsdf.DBNumberEditEh8.Value:=0;
zjyhsdf.DBNumberEditEh10.Value:=zjyhsdf.DBNumberEditEh2.Value+zjyhsdf.DBNumberEditEh7.Value+zjyhsdf.DBNumberEditEh8.Value+zjyhsdf.DBNumberEditEh9.Value;
end;

procedure Tzjyhsdf.DBNumberEditEh5Change(Sender: TObject);
begin
if zjyhsdf.DBNumberEditEh5.Value>zjyhsdf.DBNumberEditEh6.Value then
  zjyhsdf.DBNumberEditEh9.Value:=(zjyhsdf.DBNumberEditEh5.Value-zjyhsdf.DBNumberEditEh6.Value)*yfgldata.sdjg.FieldByName('電價(jià)').AsFloat
else
  zjyhsdf.DBNumberEditEh9.Value:=0;
zjyhsdf.DBNumberEditEh10.Value:=zjyhsdf.DBNumberEditEh2.Value+zjyhsdf.DBNumberEditEh7.Value+zjyhsdf.DBNumberEditEh8.Value+zjyhsdf.DBNumberEditEh9.Value;
end;

procedure Tzjyhsdf.DBNumberEditEh6Change(Sender: TObject);
begin
if zjyhsdf.DBNumberEditEh5.Value>zjyhsdf.DBNumberEditEh6.Value then
  zjyhsdf.DBNumberEditEh9.Value:=(zjyhsdf.DBNumberEditEh5.Value-zjyhsdf.DBNumberEditEh6.Value)*yfgldata.sdjg.FieldByName('電價(jià)').AsFloat
else
  zjyhsdf.DBNumberEditEh9.Value:=0;
zjyhsdf.DBNumberEditEh10.Value:=zjyhsdf.DBNumberEditEh2.Value+zjyhsdf.DBNumberEditEh7.Value+zjyhsdf.DBNumberEditEh8.Value+zjyhsdf.DBNumberEditEh9.Value;
end;

procedure Tzjyhsdf.DBNumberEditEh4Change(Sender: TObject);
begin
if zjyhsdf.DBNumberEditEh3.Value>zjyhsdf.DBNumberEditEh4.Value then
  zjyhsdf.DBNumberEditEh8.Value:=(zjyhsdf.DBNumberEditEh3.Value-zjyhsdf.DBNumberEditEh4.Value)*yfgldata.sdjg.FieldByName('水價(jià)').AsFloat
else
  zjyhsdf.DBNumberEditEh8.Value:=0;
zjyhsdf.DBNumberEditEh10.Value:=zjyhsdf.DBNumberEditEh2.Value+zjyhsdf.DBNumberEditEh7.Value+zjyhsdf.DBNumberEditEh8.Value+zjyhsdf.DBNumberEditEh9.Value;
end;

procedure Tzjyhsdf.DBNumberEditEh7Change(Sender: TObject);
begin
zjyhsdf.DBNumberEditEh10.Value:=zjyhsdf.DBNumberEditEh2.Value+zjyhsdf.DBNumberEditEh7.Value+zjyhsdf.DBNumberEditEh8.Value+zjyhsdf.DBNumberEditEh9.Value;
end;

procedure Tzjyhsdf.SpeedButton1Click(Sender: TObject);
var
i,num:integer;
begin
num:=0;
if zjyhsdf.Edit1.Text<>'' then
  begin
    if not (zjyhsdf.RadioButton1.Checked or zjyhsdf.RadioButton2.Checked) then
      messagebox(zjyhsdf.handle,'請(qǐng)選擇添加方式。','營(yíng)房工作管理系統(tǒng)',16)
    else
      if yfgldata.qyhsdf.FieldByName('序號(hào)').AsInteger<>null then
      num:=yfgldata.qyhsdf.FieldByName('序號(hào)').AsInteger;
      yfgldata.sdf.Filter:='年度='+floattostr(yhsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(yhsdf.DBNumberEditEh2.Value);
      yfgldata.sdf.Filtered:=true;
      yfgldata.sdf.Locate('序號(hào)',num,[loCaseInsensitive]);
      begin
      if zjyhsdf.RadioButton1.Checked then
        begin
          yfgldata.sdf.Insert;
          yfgldata.sdf.FieldByName('序號(hào)').AsInteger:=0;
          yfgldata.sdf.FieldByName('姓名').AsString:=zjyhsdf.Edit1.Text;
          yfgldata.sdf.FieldByName('用氣量').AsFloat:=zjyhsdf.DBNumberEditEh1.Value;
          yfgldata.sdf.FieldByName('煤氣費(fèi)').AsFloat:=zjyhsdf.DBNumberEditEh2.Value;
          yfgldata.sdf.FieldByName('用水量').AsFloat:=zjyhsdf.DBNumberEditEh3.Value;
          yfgldata.sdf.FieldByName('用水補(bǔ)助').AsFloat:=zjyhsdf.DBNumberEditEh4.Value;
          yfgldata.sdf.FieldByName('水費(fèi)').AsFloat:=zjyhsdf.DBNumberEditEh8.Value;
          yfgldata.sdf.FieldByName('用電量').AsFloat:=zjyhsdf.DBNumberEditEh5.Value;
          yfgldata.sdf.FieldByName('用電補(bǔ)助').AsFloat:=zjyhsdf.DBNumberEditEh6.Value;
          yfgldata.sdf.FieldByName('電費(fèi)').AsFloat:=zjyhsdf.DBNumberEditEh9.Value;
          yfgldata.sdf.FieldByName('房租').AsFloat:=zjyhsdf.DBNumberEditEh7.Value;
          yfgldata.sdf.FieldByName('合計(jì)').AsFloat:=zjyhsdf.DBNumberEditEh10.Value;
          yfgldata.sdf.FieldByName('年度').AsFloat:=yhsdf.DBNumberEditEh1.Value;
          yfgldata.sdf.FieldByName('月份').AsFloat:=yhsdf.DBNumberEditEh2.Value;
          yfgldata.sdf.Post;
        end
      else
        begin
          yfgldata.sdf.Append;
          yfgldata.sdf.FieldByName('序號(hào)').AsInteger:=0;
          yfgldata.sdf.FieldByName('姓名').AsString:=zjyhsdf.Edit1.Text;
          yfgldata.sdf.FieldByName('用氣量').AsFloat:=zjyhsdf.DBNumberEditEh1.Value;
          yfgldata.sdf.FieldByName('煤氣費(fèi)').AsFloat:=zjyhsdf.DBNumberEditEh2.Value;
          yfgldata.sdf.FieldByName('用水量').AsFloat:=zjyhsdf.DBNumberEditEh3.Value;
          yfgldata.sdf.FieldByName('用水補(bǔ)助').AsFloat:=zjyhsdf.DBNumberEditEh4.Value;
          yfgldata.sdf.FieldByName('水費(fèi)').AsFloat:=zjyhsdf.DBNumberEditEh8.Value;
          yfgldata.sdf.FieldByName('用電量').AsFloat:=zjyhsdf.DBNumberEditEh5.Value;
          yfgldata.sdf.FieldByName('用電補(bǔ)助').AsFloat:=zjyhsdf.DBNumberEditEh6.Value;
          yfgldata.sdf.FieldByName('電費(fèi)').AsFloat:=zjyhsdf.DBNumberEditEh9.Value;
          yfgldata.sdf.FieldByName('房租').AsFloat:=zjyhsdf.DBNumberEditEh7.Value;
          yfgldata.sdf.FieldByName('合計(jì)').AsFloat:=zjyhsdf.DBNumberEditEh10.Value;
          yfgldata.sdf.FieldByName('年度').AsFloat:=yhsdf.DBNumberEditEh1.Value;
          yfgldata.sdf.FieldByName('月份').AsFloat:=yhsdf.DBNumberEditEh2.Value;
          yfgldata.sdf.Post;
        end;
        yfgldata.sdf.FindFirst;
        for i:=1 to yfgldata.sdf.RecordCount do
          begin
            yfgldata.sdf.Edit;
            yfgldata.sdf.FieldByName('序號(hào)').AsInteger:=i;
            yfgldata.sdf.Post;
            yfgldata.sdf.FindNext;
          end;
        if yfgldata.qyhsdf.Active then
          yfgldata.qyhsdf.Active:=false;
        yfgldata.qyhsdf.Params[0].AsInteger:=yhsdf.DBNumberEditEh1.Value;
        yfgldata.qyhsdf.Params[1].AsInteger:=yhsdf.DBNumberEditEh2.Value;
        yfgldata.qyhsdf.Active:=true;
        yfgldata.qyhsdf.Locate('姓名',zjyhsdf.Edit1.Text,[loCaseInsensitive]);
        yfgldata.sdf.Filtered:=false;
        yhsdf.showyhsdf;
        close;
      end
  end
else
  messagebox(zjyhsdf.handle,'用戶名不能為空。','營(yíng)房工作管理系統(tǒng)',16);
end;

end.