yfzlfrm.pas

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

unit yfzlfrm;

interface

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

type
  Tyfzl = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    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;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: 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 CheckBox18Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(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);
  private
    { Private declarations }
  public
    procedure showbtn;
    { Public declarations }
  end;

var
  yfzl: Tyfzl;

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

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

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

procedure Tyfzl.CheckBox2Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[3].Visible:=yfzl.CheckBox2.Checked;
end;

procedure Tyfzl.CheckBox3Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[4].Visible:=yfzl.CheckBox3.Checked;
end;

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

procedure Tyfzl.CheckBox5Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[6].Visible:=yfzl.CheckBox5.Checked;
end;

procedure Tyfzl.CheckBox6Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[7].Visible:=yfzl.CheckBox6.Checked;
end;

procedure Tyfzl.CheckBox7Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[8].Visible:=yfzl.CheckBox7.Checked;
end;

procedure Tyfzl.CheckBox8Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[9].Visible:=yfzl.CheckBox8.Checked;
end;

procedure Tyfzl.CheckBox9Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[10].Visible:=yfzl.CheckBox9.Checked;
end;

procedure Tyfzl.CheckBox10Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[11].Visible:=yfzl.CheckBox10.Checked;
end;

procedure Tyfzl.CheckBox11Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[12].Visible:=yfzl.CheckBox11.Checked;
end;

procedure Tyfzl.CheckBox12Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[13].Visible:=yfzl.CheckBox12.Checked;
end;

procedure Tyfzl.CheckBox13Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[14].Visible:=yfzl.CheckBox13.Checked;
yfzl.DBGridEh1.Columns[15].Visible:=yfzl.CheckBox13.Checked;
yfzl.DBGridEh1.Columns[16].Visible:=yfzl.CheckBox13.Checked;
yfzl.DBGridEh1.Columns[17].Visible:=yfzl.CheckBox13.Checked;
end;

procedure Tyfzl.CheckBox14Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[18].Visible:=yfzl.CheckBox14.Checked;
yfzl.DBGridEh1.Columns[19].Visible:=yfzl.CheckBox14.Checked;
yfzl.DBGridEh1.Columns[20].Visible:=yfzl.CheckBox14.Checked;
end;

procedure Tyfzl.CheckBox15Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[21].Visible:=yfzl.CheckBox15.Checked;
yfzl.DBGridEh1.Columns[22].Visible:=yfzl.CheckBox15.Checked;
yfzl.DBGridEh1.Columns[23].Visible:=yfzl.CheckBox15.Checked;
end;

procedure Tyfzl.CheckBox16Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[24].Visible:=yfzl.CheckBox16.Checked;
end;

procedure Tyfzl.CheckBox17Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[25].Visible:=yfzl.CheckBox17.Checked;
end;

procedure Tyfzl.CheckBox18Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[26].Visible:=yfzl.CheckBox18.Checked;
end;

procedure Tyfzl.CheckBox19Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[27].Visible:=yfzl.CheckBox19.Checked;
end;

procedure Tyfzl.CheckBox20Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[28].Visible:=yfzl.CheckBox20.Checked;
end;

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

procedure Tyfzl.FormShow(Sender: TObject);
begin
yfzl.showbtn;
end;

procedure Tyfzl.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tyfzlbj,yfzlbj);
yfzlbj.Caption:='添加新坐落';
yfzlbj.zlbj:=false;
try
  yfzlbj.ShowModal;
finally
  yfzlbj.Free;
end;
end;

procedure Tyfzl.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_yfzl';
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.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('变更原因');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.yfzl.Filter:=f_query.filtervalue;
    yfgldata.yfzl.Filtered:=true;
    yfzl.showbtn;
    end
  else
    begin
    yfgldata.yfzl.Filtered:=false;
    yfzl.showbtn;
    end;
finally
  f_query.Free;
end;
end;

procedure Tyfzl.SpeedButton1Click(Sender: TObject);
begin
yfzl.PrintDBGridEh1.PageHeader.CenterText.Clear;
yfzl.PrintDBGridEh1.PageHeader.CenterText.Add('坐落概况登记（变更）表');
yfzl.PrintDBGridEh1.Preview;
end;

procedure Tyfzl.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('城乡区位');