yfsbfrm.pas

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

unit yfsbfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGridEh, Buttons, ExtCtrls, PrnDbgeh;

type
  Tyfsb = class(TForm)
    PrintDBGridEh1: TPrintDBGridEh;
    Panel2: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel1: TPanel;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    procedure SpeedButton2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showsb;
    { Public declarations }
  end;

var
  yfsb: Tyfsb;

implementation
uses datafrm,bbdcfrm,gen_q,yfsbtjfrm;
{$R *.dfm}

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

procedure Tyfsb.CheckBox1Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[0].Visible:=yfsb.CheckBox1.Checked;
end;

procedure Tyfsb.CheckBox2Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[2].Visible:=yfsb.CheckBox2.Checked;
end;

procedure Tyfsb.CheckBox3Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[3].Visible:=yfsb.CheckBox3.Checked;
end;

procedure Tyfsb.CheckBox4Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[4].Visible:=yfsb.CheckBox4.Checked;
yfsb.DBGridEh1.Columns[5].Visible:=yfsb.CheckBox4.Checked;
yfsb.DBGridEh1.Columns[6].Visible:=yfsb.CheckBox4.Checked;
yfsb.DBGridEh1.Columns[7].Visible:=yfsb.CheckBox4.Checked;
yfsb.DBGridEh1.Columns[8].Visible:=yfsb.CheckBox4.Checked;
yfsb.DBGridEh1.Columns[9].Visible:=yfsb.CheckBox4.Checked;
yfsb.DBGridEh1.Columns[10].Visible:=yfsb.CheckBox4.Checked;
end;

procedure Tyfsb.CheckBox5Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[11].Visible:=yfsb.CheckBox5.Checked;
yfsb.DBGridEh1.Columns[12].Visible:=yfsb.CheckBox5.Checked;
yfsb.DBGridEh1.Columns[13].Visible:=yfsb.CheckBox5.Checked;
yfsb.DBGridEh1.Columns[14].Visible:=yfsb.CheckBox5.Checked;
yfsb.DBGridEh1.Columns[15].Visible:=yfsb.CheckBox5.Checked;
yfsb.DBGridEh1.Columns[16].Visible:=yfsb.CheckBox5.Checked;
yfsb.DBGridEh1.Columns[17].Visible:=yfsb.CheckBox5.Checked;
yfsb.DBGridEh1.Columns[18].Visible:=yfsb.CheckBox5.Checked;
end;

procedure Tyfsb.CheckBox6Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[19].Visible:=yfsb.CheckBox6.Checked;
yfsb.DBGridEh1.Columns[20].Visible:=yfsb.CheckBox6.Checked;
yfsb.DBGridEh1.Columns[21].Visible:=yfsb.CheckBox6.Checked;
yfsb.DBGridEh1.Columns[22].Visible:=yfsb.CheckBox6.Checked;
end;

procedure Tyfsb.CheckBox7Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[23].Visible:=yfsb.CheckBox7.Checked;
yfsb.DBGridEh1.Columns[24].Visible:=yfsb.CheckBox7.Checked;
end;

procedure Tyfsb.CheckBox8Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[25].Visible:=yfsb.CheckBox8.Checked;
end;

procedure Tyfsb.CheckBox9Click(Sender: TObject);
begin
yfsb.DBGridEh1.Columns[26].Visible:=yfsb.CheckBox9.Checked;
yfsb.DBGridEh1.Columns[27].Visible:=yfsb.CheckBox9.Checked;
yfsb.DBGridEh1.Columns[28].Visible:=yfsb.CheckBox9.Checked;
yfsb.DBGridEh1.Columns[29].Visible:=yfsb.CheckBox9.Checked;
yfsb.DBGridEh1.Columns[30].Visible:=yfsb.CheckBox9.Checked;
end;

procedure tyfsb.showsb;
begin
yfsb.SpeedButton6.Enabled:=(yfgldata.yfsb.RecordCount>0) and (yfgldata.yfsb.RecNo<>1);
yfsb.SpeedButton7.Enabled:=(yfgldata.yfsb.RecordCount>0) and (yfgldata.yfsb.RecNo<>1);
yfsb.SpeedButton8.Enabled:=(yfgldata.yfsb.RecordCount>0) and (yfgldata.yfsb.RecNo<>yfgldata.yfsb.RecordCount);
yfsb.SpeedButton9.Enabled:=(yfgldata.yfsb.RecordCount>0) and (yfgldata.yfsb.RecNo<>yfgldata.yfsb.RecordCount);
yfsb.SpeedButton11.Enabled:=yfgldata.yfsb.RecordCount>0;
yfsb.SpeedButton12.Enabled:=yfgldata.yfsb.RecordCount>0;
yfsb.SpeedButton14.Enabled:=yfgldata.yfsb.RecordCount>0;
yfsb.SpeedButton1.Enabled:=yfgldata.yfsb.RecordCount>0;
end;

procedure Tyfsb.FormShow(Sender: TObject);
begin
yfsb.showsb;
end;

procedure Tyfsb.SpeedButton6Click(Sender: TObject);
begin
yfgldata.yfsb.First;
yfsb.showsb;
end;

procedure Tyfsb.SpeedButton7Click(Sender: TObject);
begin
yfgldata.yfsb.Prior;
yfsb.showsb;
end;

procedure Tyfsb.SpeedButton8Click(Sender: TObject);
begin
yfgldata.yfsb.Next;
yfsb.showsb;
end;

procedure Tyfsb.SpeedButton9Click(Sender: TObject);
begin
yfgldata.yfsb.Last;
yfsb.showsb;
end;

procedure Tyfsb.SpeedButton14Click(Sender: TObject);
begin
application.CreateForm(tbbdc,bbdc);
with bbdc do
begin
  listbox1.Items.Add('序号');
  listbox1.Items.Add('坐落号');
  listbox1.Items.Add('单位代码');
  listbox1.Items.Add('住用单位'); 
  listbox1.Items.Add('水井');
  listbox1.Items.Add('水塔数量');
  listbox1.Items.Add('水塔容量');
  listbox1.Items.Add('储水池数量');
  listbox1.Items.Add('储水池容量');
  listbox1.Items.Add('水泵数量');
  listbox1.Items.Add('水泵功率');
  listbox1.Items.Add('恒压装置');
  listbox1.Items.Add('变压器数量');
  listbox1.Items.Add('变压器容量');
  listbox1.Items.Add('发电机数量');
  listbox1.Items.Add('发电机功率');
  listbox1.Items.Add('高压柜');
  listbox1.Items.Add('低压柜');
  listbox1.Items.Add('电容柜');
  listbox1.Items.Add('锅炉数量');
  listbox1.Items.Add('蒸发量');
  listbox1.Items.Add('除尘设备');
  listbox1.Items.Add('火炉');
  listbox1.Items.Add('立式空调');
  listbox1.Items.Add('挂式空调');
  listbox1.Items.Add('电梯');
  listbox1.Items.Add('水池数量');
  listbox1.Items.Add('水池容量');
  listbox1.Items.Add('水泵数量1');
  listbox1.Items.Add('水泵功率1');
  listbox1.Items.Add('消防栓');
  vps_filter:=yfgldata.yfsb.Filter;
  vps_name:='yfgl_yfsb';
  edit1.Text:='设施设备登记（变更）表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Tyfsb.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_yfsb';
f_query.fields.Clear;
f_query.fields.Add('坐落号');
f_query.fields.Add('单位代码');
f_query.fields.Add('住用单位');
f_query.fields.Add('水井');
f_query.fields.Add('水塔数量');
f_query.fields.Add('水塔容量');
f_query.fields.Add('储水池数量');
f_query.fields.Add('储水池容量');
f_query.fields.Add('水泵数量');
f_query.fields.Add('水泵功率');
f_query.fields.Add('恒压装置');
f_query.fields.Add('变压器数量');
f_query.fields.Add('变压器容量');
f_query.fields.Add('发电机数量');
f_query.fields.Add('发电机功率');
f_query.fields.Add('高压柜');
f_query.fields.Add('低压柜');
f_query.fields.Add('电容柜');
f_query.fields.Add('锅炉数量');
f_query.fields.Add('蒸发量');
f_query.fields.Add('除尘设备');
f_query.fields.Add('火炉');
f_query.fields.Add('立式空调');
f_query.fields.Add('挂式空调');
f_query.fields.Add('电梯');
f_query.fields.Add('水池数量');
f_query.fields.Add('水池容量');
f_query.fields.Add('水泵数量1');
f_query.fields.Add('水泵功率1');
f_query.fields.Add('消防栓');
f_query.fieldsalias.Clear;
f_query.fieldsalias.Add('坐落号');
f_query.fieldsalias.Add('单位代码');
f_query.fieldsalias.Add('住用单位');
f_query.fieldsalias.Add('水井');
f_query.fieldsalias.Add('水塔数量');
f_query.fieldsalias.Add('水塔容量');
f_query.fieldsalias.Add('储水池数量');
f_query.fieldsalias.Add('储水池容量');
f_query.fieldsalias.Add('水泵数量');
f_query.fieldsalias.Add('水泵功率');
f_query.fieldsalias.Add('恒压装置');
f_query.fieldsalias.Add('变压器数量');
f_query.fieldsalias.Add('变压器容量');
f_query.fieldsalias.Add('发电机数量');
f_query.fieldsalias.Add('发电机功率');
f_query.fieldsalias.Add('高压柜');
f_query.fieldsalias.Add('低压柜');
f_query.fieldsalias.Add('电容柜');
f_query.fieldsalias.Add('锅炉数量');
f_query.fieldsalias.Add('蒸发量');
f_query.fieldsalias.Add('除尘设备');
f_query.fieldsalias.Add('火炉');
f_query.fieldsalias.Add('立式空调');
f_query.fieldsalias.Add('挂式空调');
f_query.fieldsalias.Add('电梯');
f_query.fieldsalias.Add('水池数量');
f_query.fieldsalias.Add('水池容量');
f_query.fieldsalias.Add('水泵数量1');
f_query.fieldsalias.Add('水泵功率1');
f_query.fieldsalias.Add('消防栓');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.yfsb.Filter:=f_query.filtervalue;
    yfgldata.yfsb.Filtered:=true;
    yfsb.showsb;
    end
  else
    begin
    yfgldata.yfsb.Filtered:=false;
    yfsb.showsb;
    end;
finally
  f_query.Free;
end;
end;

procedure Tyfsb.SpeedButton1Click(Sender: TObject);
begin
yfsb.PrintDBGridEh1.PageHeader.CenterText.Clear;
yfsb.PrintDBGridEh1.PageHeader.CenterText.Add('设施设备登记（变更）表');
yfsb.PrintDBGridEh1.Preview;
end;

procedure Tyfsb.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tyfsbtj,yfsbtj);
yfsbtj.Caption:='添加新记录';
yfsbtj.sb:=true;
try
  yfsbtj.ShowModal;
finally
  yfsbtj.Free;
end;
end;

procedure Tyfsb.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tyfsbtj,yfsbtj);
yfsbtj.Caption:='修改记录';
yfsbtj.sb:=false;
yfsbtj.ComboBox1.Style:=csdropdown;
yfsbtj.ComboBox1.Enabled:=false;
yfsbtj.ComboBox1.Text:=yfgldata.yfsb.FieldByName('坐落号').AsString;
yfsbtj.Edit1.Text:=yfgldata.yfsb.FieldByName('单位代码').AsString;
yfsbtj.Edit2.Text:=yfgldata.yfsb.FieldByName('住用单位').AsString;
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('水池容量').AsInteger;
yfsbtj.DBNumberEditEh25.Value:=yfgldata.yfsb.FieldByName('水泵数量1').AsInteger;
yfsbtj.DBNumberEditEh26.Value:=yfgldata.yfsb.FieldByName('水泵功率1').AsInteger;
yfsbtj.DBNumberEditEh27.Value:=yfgldata.yfsb.FieldByName('消防栓').AsInteger;
try
  yfsbtj.ShowModal;
finally
  yfsbtj.Free;
end;
end;

procedure Tyfsb.SpeedButton11Click(Sender: TObject);
var
  i:integer;
begin
if messagebox(yfsb.handle,'请确认要删除记录吗？','营房工作管理系统',33)=1 then
  begin
    yfgldata.yfsb.Delete;
    yfgldata.yfsb.First;
    for i:=1 to yfgldata.yfsb.RecordCount do
      begin
        yfgldata.yfsb.Edit;
        yfgldata.yfsb.FieldByName('序号').AsInteger:=i;
        yfgldata.yfsb.Post;
        yfgldata.yfsb.Next;
      end;
    yfgldata.yfsb.First;
    yfsb.showsb;
  end;
end;

end.