yffdfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 599 行 · 第 1/2 页

unit yffdfrm;

interface

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

type
  Tyffd = class(TForm)
    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;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    PrintDBGridEh1: TPrintDBGridEh;
    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 CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(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 DBGridEh1CellClick(Column: TColumnEh);
    procedure DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showbt;
    { Public declarations }
  end;

var
  yffd: Tyffd;

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

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

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

procedure Tyffd.CheckBox2Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[1].Visible:=yffd.CheckBox2.Checked;
end;

procedure Tyffd.CheckBox3Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[2].Visible:=yffd.CheckBox3.Checked;
end;

procedure Tyffd.CheckBox4Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[5].Visible:=yffd.CheckBox4.Checked;
end;

procedure Tyffd.CheckBox5Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[6].Visible:=yffd.CheckBox5.Checked;
yffd.DBGridEh1.Columns[7].Visible:=yffd.CheckBox5.Checked;
yffd.DBGridEh1.Columns[8].Visible:=yffd.CheckBox5.Checked;
yffd.DBGridEh1.Columns[9].Visible:=yffd.CheckBox5.Checked;
yffd.DBGridEh1.Columns[10].Visible:=yffd.CheckBox5.Checked;
yffd.DBGridEh1.Columns[11].Visible:=yffd.CheckBox5.Checked;
end;

procedure Tyffd.CheckBox6Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[12].Visible:=yffd.CheckBox6.Checked;
yffd.DBGridEh1.Columns[13].Visible:=yffd.CheckBox6.Checked;
yffd.DBGridEh1.Columns[14].Visible:=yffd.CheckBox6.Checked;
yffd.DBGridEh1.Columns[15].Visible:=yffd.CheckBox6.Checked;
yffd.DBGridEh1.Columns[16].Visible:=yffd.CheckBox6.Checked;
end;

procedure Tyffd.CheckBox7Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[17].Visible:=yffd.CheckBox7.Checked;
end;

procedure Tyffd.CheckBox8Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[18].Visible:=yffd.CheckBox8.Checked;
end;

procedure Tyffd.CheckBox9Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[19].Visible:=yffd.CheckBox9.Checked;
end;

procedure Tyffd.CheckBox10Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[20].Visible:=yffd.CheckBox10.Checked;
end;

procedure Tyffd.CheckBox11Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[21].Visible:=yffd.CheckBox11.Checked;
end;

procedure Tyffd.CheckBox12Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[22].Visible:=yffd.CheckBox12.Checked;
end;

procedure Tyffd.CheckBox13Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[23].Visible:=yffd.CheckBox13.Checked;
end;

procedure Tyffd.CheckBox14Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[24].Visible:=yffd.CheckBox14.Checked;
end;

procedure Tyffd.CheckBox15Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[25].Visible:=yffd.CheckBox15.Checked;
yffd.DBGridEh1.Columns[26].Visible:=yffd.CheckBox15.Checked;
yffd.DBGridEh1.Columns[27].Visible:=yffd.CheckBox15.Checked;
yffd.DBGridEh1.Columns[28].Visible:=yffd.CheckBox15.Checked;
yffd.DBGridEh1.Columns[29].Visible:=yffd.CheckBox15.Checked;
yffd.DBGridEh1.Columns[30].Visible:=yffd.CheckBox15.Checked;
end;

procedure Tyffd.CheckBox16Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[31].Visible:=yffd.CheckBox16.Checked;
end;

procedure Tyffd.CheckBox17Click(Sender: TObject);
begin
yffd.DBGridEh1.Columns[32].Visible:=yffd.CheckBox17.Checked;
end;

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

procedure Tyffd.FormShow(Sender: TObject);
begin
yffd.showbt;
end;

procedure Tyffd.SpeedButton6Click(Sender: TObject);
begin
yfgldata.yffd.First;
yffd.showbt;
end;

procedure Tyffd.SpeedButton7Click(Sender: TObject);
begin
yfgldata.yffd.Prior;
yffd.showbt;
end;

procedure Tyffd.SpeedButton8Click(Sender: TObject);
begin
yfgldata.yffd.Next;
yffd.showbt;
end;

procedure Tyffd.SpeedButton9Click(Sender: TObject);
begin
yfgldata.yffd.Last;
yffd.showbt;
end;

procedure Tyffd.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('气');
  listbox1.Items.Add('消');
  listbox1.Items.Add('卫');
  listbox1.Items.Add('变更原因');
  listbox1.Items.Add('变更依据');
  vps_filter:=yfgldata.yffd.Filter;
  vps_name:='yfgl_yffd';
  edit1.Text:='营房分栋登记（变更）表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Tyffd.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_yffd';
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('分类一');