shezhixianshixianmu.pas

有不足之处请指出

unit shezhixianshixianmu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls,chazhaoyuxiugai;

type
  TshezhixianshixianmuForm = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shezhixianshixianmuForm: TshezhixianshixianmuForm;
implementation

{$R *.dfm}

procedure TshezhixianshixianmuForm.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TshezhixianshixianmuForm.Button1Click(Sender: TObject);
var i:integer;
begin
  Button2.Enabled :=False;
  for i:=3 to 9 do
  begin
  chazhaoyuxiugaiForm.DbGrid1.Columns[i-1].Visible:=true;
  chazhaoyuxiugaiForm.DbGrid2.Columns[i-1].Visible:=true;
  end;
  Checkbox3.Checked:=True;
  Checkbox4.Checked:=True;
  Checkbox5.Checked:=True;
  Checkbox6.Checked:=True;
  Checkbox7.Checked:=True;
  Checkbox8.Checked:=True;
  Checkbox9.Checked:=True;
  close;
end;

procedure TshezhixianshixianmuForm.Button2Click(Sender: TObject);
begin
  Button1.Enabled :=False;
  if  checkbox3.Checked then
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[2].Visible:=true;
    chazhaoyuxiugaiForm.DbGrid2.Columns[2].Visible:=true ;
    chazhaoyuxiugaiForm.QRLabel3.Enabled :=True;
    chazhaoyuxiugaiForm.QRDBText3.Enabled :=True;
    end
  else
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[2].Visible:=false;
    chazhaoyuxiugaiForm.DbGrid2.Columns[2].Visible:=false;
    chazhaoyuxiugaiForm.QRLabel3.Enabled :=False;
     chazhaoyuxiugaiForm.QRDBText3.Enabled :=False;
    end;
  if  checkbox4.Checked then
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[3].Visible:=true;
    chazhaoyuxiugaiForm.DbGrid2.Columns[3].Visible:=true ;
    chazhaoyuxiugaiForm.QRLabel4.Enabled :=True;
     chazhaoyuxiugaiForm.QRDBText4.Enabled :=True;
    end
  else
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[3].Visible:=false;
    chazhaoyuxiugaiForm.DbGrid2.Columns[3].Visible:=false;
    chazhaoyuxiugaiForm.QRLabel4.Enabled :=False;
    chazhaoyuxiugaiForm.QRDBText4.Enabled :=False;
    end;
  if  checkbox5.Checked then
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[4].Visible:=true;
    chazhaoyuxiugaiForm.DbGrid2.Columns[4].Visible:=true ;
    chazhaoyuxiugaiForm.QRLabel5.Enabled :=True;
     chazhaoyuxiugaiForm.QRDBText5.Enabled :=True;
    end
  else
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[4].Visible:=false;
    chazhaoyuxiugaiForm.DbGrid2.Columns[4].Visible:=false;
    chazhaoyuxiugaiForm.QRLabel5.Enabled :=False;
    chazhaoyuxiugaiForm.QRDBText5.Enabled :=False;
    end;
  if  checkbox6.Checked then
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[5].Visible:=true;
    chazhaoyuxiugaiForm.DbGrid2.Columns[5].Visible:=true ;
    chazhaoyuxiugaiForm.QRLabel6.Enabled :=True;
     chazhaoyuxiugaiForm.QRDBText6.Enabled :=True;
    end
  else
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[5].Visible:=false;
    chazhaoyuxiugaiForm.DbGrid2.Columns[5].Visible:=false;
    chazhaoyuxiugaiForm.QRLabel6.Enabled :=False;
    chazhaoyuxiugaiForm.QRDBText6.Enabled :=False;
    end;
  if  checkbox7.Checked then
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[6].Visible:=true;
    chazhaoyuxiugaiForm.DbGrid2.Columns[6].Visible:=true ;
    chazhaoyuxiugaiForm.QRLabel7.Enabled :=True;
     chazhaoyuxiugaiForm.QRDBText7.Enabled :=True;
    end
  else
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[6].Visible:=false;
    chazhaoyuxiugaiForm.DbGrid2.Columns[6].Visible:=false;
    chazhaoyuxiugaiForm.QRLabel7.Enabled :=False;
    chazhaoyuxiugaiForm.QRDBText7.Enabled :=False;
    end;
  if  checkbox8.Checked then
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[7].Visible:=true;
    chazhaoyuxiugaiForm.DbGrid2.Columns[7].Visible:=true ;
    chazhaoyuxiugaiForm.QRLabel8.Enabled :=True;
     chazhaoyuxiugaiForm.QRDBText8.Enabled :=True;
    end
  else
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[7].Visible:=false;
    chazhaoyuxiugaiForm.DbGrid2.Columns[7].Visible:=false;
    chazhaoyuxiugaiForm.QRLabel8.Enabled :=False;
    chazhaoyuxiugaiForm.QRDBText8.Enabled :=False;
    end;
  if  checkbox9.Checked then
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[8].Visible:=true;
    chazhaoyuxiugaiForm.DbGrid2.Columns[8].Visible:=true ;
    chazhaoyuxiugaiForm.QRLabel9.Enabled :=True;
     chazhaoyuxiugaiForm.QRDBText9.Enabled :=True;
    end
  else
    begin
    chazhaoyuxiugaiForm.DbGrid1.Columns[8].Visible:=false;
    chazhaoyuxiugaiForm.DbGrid2.Columns[8].Visible:=false;
    chazhaoyuxiugaiForm.QRLabel9.Enabled :=False;
    chazhaoyuxiugaiForm.QRDBText9.Enabled :=False;
    end;
 close;
end;


procedure TshezhixianshixianmuForm.FormShow(Sender: TObject);
begin
Button1.Enabled :=true;
Button2.Enabled :=True;
end;

end.