yfsbtjfrm.pas

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

unit yfsbtjfrm;

interface

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

type
  Tyfsbtj = class(TForm)
    Panel2: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    Label5: TLabel;
    DBNumberEditEh2: TDBNumberEditEh;
    Label6: TLabel;
    DBNumberEditEh3: TDBNumberEditEh;
    Label7: TLabel;
    DBNumberEditEh4: TDBNumberEditEh;
    Label8: TLabel;
    DBNumberEditEh5: TDBNumberEditEh;
    Label9: TLabel;
    DBNumberEditEh6: TDBNumberEditEh;
    Label10: TLabel;
    DBNumberEditEh7: TDBNumberEditEh;
    GroupBox2: TGroupBox;
    Label11: TLabel;
    DBNumberEditEh8: TDBNumberEditEh;
    Label12: TLabel;
    DBNumberEditEh9: TDBNumberEditEh;
    Label13: TLabel;
    DBNumberEditEh10: TDBNumberEditEh;
    Label14: TLabel;
    DBNumberEditEh11: TDBNumberEditEh;
    Label15: TLabel;
    DBNumberEditEh12: TDBNumberEditEh;
    Label16: TLabel;
    DBNumberEditEh13: TDBNumberEditEh;
    Label17: TLabel;
    DBNumberEditEh14: TDBNumberEditEh;
    Label18: TLabel;
    DBNumberEditEh15: TDBNumberEditEh;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    Label19: TLabel;
    DBNumberEditEh16: TDBNumberEditEh;
    Label20: TLabel;
    DBNumberEditEh17: TDBNumberEditEh;
    Label21: TLabel;
    DBNumberEditEh18: TDBNumberEditEh;
    Label22: TLabel;
    DBNumberEditEh19: TDBNumberEditEh;
    Label23: TLabel;
    DBNumberEditEh20: TDBNumberEditEh;
    Label24: TLabel;
    DBNumberEditEh21: TDBNumberEditEh;
    Label25: TLabel;
    DBNumberEditEh22: TDBNumberEditEh;
    GroupBox4: TGroupBox;
    Label26: TLabel;
    DBNumberEditEh23: TDBNumberEditEh;
    Label27: TLabel;
    DBNumberEditEh24: TDBNumberEditEh;
    Label28: TLabel;
    DBNumberEditEh25: TDBNumberEditEh;
    Label29: TLabel;
    DBNumberEditEh26: TDBNumberEditEh;
    Label30: TLabel;
    DBNumberEditEh27: TDBNumberEditEh;
    ComboBox1: TComboBox;
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    sb:boolean;
    { Public declarations }
  end;

var
  yfsbtj: Tyfsbtj;

implementation
uses datafrm,yfsbfrm;
{$R *.dfm}

procedure Tyfsbtj.SpeedButton13Click(Sender: TObject);
begin
close;
end;

procedure Tyfsbtj.SpeedButton12Click(Sender: TObject);
begin
if yfsbtj.sb then
  begin
    if yfsbtj.ComboBox1.Text<>'' then
      begin
        if yfgldata.yfsb.Locate('坐落号',yfsbtj.ComboBox1.Text,[loCaseInsensitive]) then
          messagebox(yfsbtj.handle,'坐落号发生重复。','营房工作管理系统',16)
        else
          begin
            yfgldata.yfsb.Append;
            yfgldata.yfsb.FieldByName('序号').AsInteger:=yfgldata.yfsb.RecordCount+1;
            yfgldata.yfsb.FieldByName('坐落号').AsString:=yfsbtj.ComboBox1.Text;
            yfgldata.yfsb.FieldByName('单位代码').AsString:=yfsbtj.Edit1.Text;
            yfgldata.yfsb.FieldByName('住用单位').AsString:=yfsbtj.Edit2.Text;
            yfgldata.yfsb.FieldByName('水井').AsInteger:=yfsbtj.DBNumberEditEh1.Value;
            yfgldata.yfsb.FieldByName('水塔数量').AsInteger:=yfsbtj.DBNumberEditEh2.Value;
            yfgldata.yfsb.FieldByName('水塔容量').AsInteger:=yfsbtj.DBNumberEditEh3.Value;
            yfgldata.yfsb.FieldByName('储水池数量').AsInteger:=yfsbtj.DBNumberEditEh4.Value;
            yfgldata.yfsb.FieldByName('储水池容量').AsInteger:=yfsbtj.DBNumberEditEh5.Value;
            yfgldata.yfsb.FieldByName('水泵数量').AsInteger:=yfsbtj.DBNumberEditEh6.Value;
            yfgldata.yfsb.FieldByName('水泵功率').AsInteger:=yfsbtj.DBNumberEditEh7.Value;
            yfgldata.yfsb.FieldByName('恒压装置').AsInteger:=yfsbtj.DBNumberEditEh8.Value;
            yfgldata.yfsb.FieldByName('变压器数量').AsInteger:=yfsbtj.DBNumberEditEh9.Value;
            yfgldata.yfsb.FieldByName('变压器容量').AsInteger:=yfsbtj.DBNumberEditEh10.Value;
            yfgldata.yfsb.FieldByName('发电机数量').AsInteger:=yfsbtj.DBNumberEditEh11.Value;
            yfgldata.yfsb.FieldByName('发电机功率').AsInteger:=yfsbtj.DBNumberEditEh12.Value;
            yfgldata.yfsb.FieldByName('高压柜').AsInteger:=yfsbtj.DBNumberEditEh13.Value;
            yfgldata.yfsb.FieldByName('低压柜').AsInteger:=yfsbtj.DBNumberEditEh14.Value;
            yfgldata.yfsb.FieldByName('电容柜').AsInteger:=yfsbtj.DBNumberEditEh15.Value;
            yfgldata.yfsb.FieldByName('锅炉数量').AsInteger:=yfsbtj.DBNumberEditEh16.Value;
            yfgldata.yfsb.FieldByName('蒸发量').AsInteger:=yfsbtj.DBNumberEditEh17.Value;
            yfgldata.yfsb.FieldByName('除尘设备').AsInteger:=yfsbtj.DBNumberEditEh18.Value;
            yfgldata.yfsb.FieldByName('火炉').AsInteger:=yfsbtj.DBNumberEditEh19.Value;
            yfgldata.yfsb.FieldByName('立式空调').AsInteger:=yfsbtj.DBNumberEditEh20.Value;
            yfgldata.yfsb.FieldByName('挂式空调').AsInteger:=yfsbtj.DBNumberEditEh21.Value;
            yfgldata.yfsb.FieldByName('电梯').AsInteger:=yfsbtj.DBNumberEditEh22.Value;
            yfgldata.yfsb.FieldByName('水池数量').AsInteger:=yfsbtj.DBNumberEditEh23.Value;
            yfgldata.yfsb.FieldByName('水池容量').AsInteger:=yfsbtj.DBNumberEditEh24.Value;
            yfgldata.yfsb.FieldByName('水泵数量1').AsInteger:=yfsbtj.DBNumberEditEh25.Value;
            yfgldata.yfsb.FieldByName('水泵功率1').AsInteger:=yfsbtj.DBNumberEditEh26.Value;
            yfgldata.yfsb.FieldByName('消防栓').AsInteger:=yfsbtj.DBNumberEditEh27.Value;
            yfgldata.yfsb.Post;
            close;
            yfsb.showsb;
          end;
      end
    else
      messagebox(yfsbtj.handle,'坐落号不能为空值。','营房工作管理系统',16);
  end
else
  begin
    yfgldata.yfsb.Edit;
    yfgldata.yfsb.FieldByName('水井').AsInteger:=yfsbtj.DBNumberEditEh1.Value;
    yfgldata.yfsb.FieldByName('水塔数量').AsInteger:=yfsbtj.DBNumberEditEh2.Value;
    yfgldata.yfsb.FieldByName('水塔容量').AsInteger:=yfsbtj.DBNumberEditEh3.Value;
    yfgldata.yfsb.FieldByName('储水池数量').AsInteger:=yfsbtj.DBNumberEditEh4.Value;
    yfgldata.yfsb.FieldByName('储水池容量').AsInteger:=yfsbtj.DBNumberEditEh5.Value;
    yfgldata.yfsb.FieldByName('水泵数量').AsInteger:=yfsbtj.DBNumberEditEh6.Value;
    yfgldata.yfsb.FieldByName('水泵功率').AsInteger:=yfsbtj.DBNumberEditEh7.Value;
    yfgldata.yfsb.FieldByName('恒压装置').AsInteger:=yfsbtj.DBNumberEditEh8.Value;
    yfgldata.yfsb.FieldByName('变压器数量').AsInteger:=yfsbtj.DBNumberEditEh9.Value;
    yfgldata.yfsb.FieldByName('变压器容量').AsInteger:=yfsbtj.DBNumberEditEh10.Value;
    yfgldata.yfsb.FieldByName('发电机数量').AsInteger:=yfsbtj.DBNumberEditEh11.Value;
    yfgldata.yfsb.FieldByName('发电机功率').AsInteger:=yfsbtj.DBNumberEditEh12.Value;
    yfgldata.yfsb.FieldByName('高压柜').AsInteger:=yfsbtj.DBNumberEditEh13.Value;
    yfgldata.yfsb.FieldByName('低压柜').AsInteger:=yfsbtj.DBNumberEditEh14.Value;
    yfgldata.yfsb.FieldByName('电容柜').AsInteger:=yfsbtj.DBNumberEditEh15.Value;
    yfgldata.yfsb.FieldByName('锅炉数量').AsInteger:=yfsbtj.DBNumberEditEh16.Value;
    yfgldata.yfsb.FieldByName('蒸发量').AsInteger:=yfsbtj.DBNumberEditEh17.Value;
    yfgldata.yfsb.FieldByName('除尘设备').AsInteger:=yfsbtj.DBNumberEditEh18.Value;
    yfgldata.yfsb.FieldByName('火炉').AsInteger:=yfsbtj.DBNumberEditEh19.Value;
    yfgldata.yfsb.FieldByName('立式空调').AsInteger:=yfsbtj.DBNumberEditEh20.Value;
    yfgldata.yfsb.FieldByName('挂式空调').AsInteger:=yfsbtj.DBNumberEditEh21.Value;
    yfgldata.yfsb.FieldByName('电梯').AsInteger:=yfsbtj.DBNumberEditEh22.Value;
    yfgldata.yfsb.FieldByName('水池数量').AsInteger:=yfsbtj.DBNumberEditEh23.Value;
    yfgldata.yfsb.FieldByName('水池容量').AsInteger:=yfsbtj.DBNumberEditEh24.Value;
    yfgldata.yfsb.FieldByName('水泵数量1').AsInteger:=yfsbtj.DBNumberEditEh25.Value;
    yfgldata.yfsb.FieldByName('水泵功率1').AsInteger:=yfsbtj.DBNumberEditEh26.Value;
    yfgldata.yfsb.FieldByName('消防栓').AsInteger:=yfsbtj.DBNumberEditEh27.Value;
    yfgldata.yfsb.Post;
    close;
    yfsb.showsb;
  end;
end;

procedure Tyfsbtj.FormShow(Sender: TObject);
var
  i:integer;
begin
yfsbtj.ComboBox1.Items.Clear;
yfgldata.yfzl.First;
for i:=1 to yfgldata.yfzl.RecordCount do
  begin
    yfsbtj.ComboBox1.Items.Add(yfgldata.yfzl.fieldbyname('坐落号').AsString);
    yfgldata.yfzl.Next;
  end;
end;

procedure Tyfsbtj.ComboBox1Change(Sender: TObject);
begin
if yfsbtj.ComboBox1.Text<>'' then
  begin
    yfgldata.yfzl.Locate('坐落号',yfsbtj.ComboBox1.Text,[loCaseInsensitive]);
    yfsbtj.Edit1.Text:=yfgldata.yfzl.FieldByName('单位代码').AsString;
    yfsbtj.Edit2.Text:=yfgldata.yfzl.FieldByName('住用单位').AsString;
  end;
end;

end.