zjyhsdffrm.pas

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

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('煤气价').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('水价').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('电价').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('电价').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('水价').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,'请选择添加方式。','营房工作管理系统',16)
    else
      if yfgldata.qyhsdf.FieldByName('序号').AsInteger<>null then
      num:=yfgldata.qyhsdf.FieldByName('序号').AsInteger;
      yfgldata.sdf.Filter:='年度='+floattostr(yhsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(yhsdf.DBNumberEditEh2.Value);
      yfgldata.sdf.Filtered:=true;
      yfgldata.sdf.Locate('序号',num,[loCaseInsensitive]);
      begin
      if zjyhsdf.RadioButton1.Checked then
        begin
          yfgldata.sdf.Insert;
          yfgldata.sdf.FieldByName('序号').AsInteger:=0;
          yfgldata.sdf.FieldByName('姓名').AsString:=zjyhsdf.Edit1.Text;
          yfgldata.sdf.FieldByName('用气量').AsFloat:=zjyhsdf.DBNumberEditEh1.Value;
          yfgldata.sdf.FieldByName('煤气费').AsFloat:=zjyhsdf.DBNumberEditEh2.Value;
          yfgldata.sdf.FieldByName('用水量').AsFloat:=zjyhsdf.DBNumberEditEh3.Value;
          yfgldata.sdf.FieldByName('用水补助').AsFloat:=zjyhsdf.DBNumberEditEh4.Value;
          yfgldata.sdf.FieldByName('水费').AsFloat:=zjyhsdf.DBNumberEditEh8.Value;
          yfgldata.sdf.FieldByName('用电量').AsFloat:=zjyhsdf.DBNumberEditEh5.Value;
          yfgldata.sdf.FieldByName('用电补助').AsFloat:=zjyhsdf.DBNumberEditEh6.Value;
          yfgldata.sdf.FieldByName('电费').AsFloat:=zjyhsdf.DBNumberEditEh9.Value;
          yfgldata.sdf.FieldByName('房租').AsFloat:=zjyhsdf.DBNumberEditEh7.Value;
          yfgldata.sdf.FieldByName('合计').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('序号').AsInteger:=0;
          yfgldata.sdf.FieldByName('姓名').AsString:=zjyhsdf.Edit1.Text;
          yfgldata.sdf.FieldByName('用气量').AsFloat:=zjyhsdf.DBNumberEditEh1.Value;
          yfgldata.sdf.FieldByName('煤气费').AsFloat:=zjyhsdf.DBNumberEditEh2.Value;
          yfgldata.sdf.FieldByName('用水量').AsFloat:=zjyhsdf.DBNumberEditEh3.Value;
          yfgldata.sdf.FieldByName('用水补助').AsFloat:=zjyhsdf.DBNumberEditEh4.Value;
          yfgldata.sdf.FieldByName('水费').AsFloat:=zjyhsdf.DBNumberEditEh8.Value;
          yfgldata.sdf.FieldByName('用电量').AsFloat:=zjyhsdf.DBNumberEditEh5.Value;
          yfgldata.sdf.FieldByName('用电补助').AsFloat:=zjyhsdf.DBNumberEditEh6.Value;
          yfgldata.sdf.FieldByName('电费').AsFloat:=zjyhsdf.DBNumberEditEh9.Value;
          yfgldata.sdf.FieldByName('房租').AsFloat:=zjyhsdf.DBNumberEditEh7.Value;
          yfgldata.sdf.FieldByName('合计').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('序号').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,'用户名不能为空。','营房工作管理系统',16);
end;

end.