selectkan.pas

一个信息查询系统,主要功能文件上传下载,信息浏览,打印等

unit selectkan;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TOKBottomDlg1 = class(TForm)
    CancelBtn: TButton;
    Bevel1: TBevel;
    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;
    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 CheckBox18Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg1: TOKBottomDlg1;

implementation

uses selectdata;

{$R *.dfm}

procedure TOKBottomDlg1.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked=true then
    form3.DBGrid1.Columns[3].Visible:=true
    else
      form3.DBGrid1.Columns[3].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox2Click(Sender: TObject);
begin
   if checkbox2.Checked=true then
    form3.DBGrid1.Columns[4].Visible:=true
    else
      form3.DBGrid1.Columns[4].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox3Click(Sender: TObject);
begin
   if checkbox3.Checked=true then
    form3.DBGrid1.Columns[5].Visible:=true
    else
      form3.DBGrid1.Columns[5].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox4Click(Sender: TObject);
begin
    if checkbox4.Checked=true then
    form3.DBGrid1.Columns[7].Visible:=true
    else
      form3.DBGrid1.Columns[7].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox5Click(Sender: TObject);
begin
    if checkbox5.Checked=true then
    form3.DBGrid1.Columns[16].Visible:=true
    else
      form3.DBGrid1.Columns[16].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox6Click(Sender: TObject);
begin
   if checkbox6.Checked=true then
    form3.DBGrid1.Columns[15].Visible:=true
    else
      form3.DBGrid1.Columns[15].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox7Click(Sender: TObject);
begin
   if checkbox7.Checked=true then
    form3.DBGrid1.Columns[13].Visible:=true
    else
      form3.DBGrid1.Columns[13].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox8Click(Sender: TObject);
begin
   if checkbox8.Checked=true then
    form3.DBGrid1.Columns[11].Visible:=true
    else
      form3.DBGrid1.Columns[11].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox9Click(Sender: TObject);
begin
   if checkbox9.Checked=true then
    form3.DBGrid1.Columns[10].Visible:=true
    else
      form3.DBGrid1.Columns[10].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox10Click(Sender: TObject);
var
i:integer;
begin
if checkbox10.Checked=true then
begin
   i:=0;
   while i<form3.DBGrid1.Columns.Count do
   begin
    form3.DBGrid1.Columns[i].Visible:=true;
    inc(i);
   end;
   checkbox1.Checked:=true;
   checkbox2.Checked:=true;
   checkbox3.Checked:=true;
   checkbox4.Checked:=true;
   checkbox5.Checked:=true;
   checkbox6.Checked:=true;
   checkbox7.Checked:=true;
   checkbox8.Checked:=true;
   checkbox9.Checked:=true;
   checkbox11.Checked:=true;
   checkbox12.Checked:=true;
   checkbox13.Checked:=true;
   checkbox14.Checked:=true;
   checkbox15.Checked:=true;
   checkbox16.Checked:=true;
   checkbox17.Checked:=true;
   checkbox18.Checked:=true;
   checkbox19.Checked:=true;
   checkbox20.Checked:=true;
end
else
  begin
   i:=0;
   while i<form3.DBGrid1.Columns.Count do
   begin
    form3.DBGrid1.Columns[i].Visible:=false;
    inc(i);
    end;
    checkbox1.Checked:=false;
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
    checkbox4.Checked:=false;
    checkbox5.Checked:=false;
    checkbox6.Checked:=false;
    checkbox7.Checked:=false;
    checkbox8.Checked:=false;
    checkbox9.Checked:=false;
    checkbox11.Checked:=false;
    checkbox12.Checked:=false;
    checkbox13.Checked:=false;
    checkbox14.Checked:=false;
    checkbox15.Checked:=false;
    checkbox16.Checked:=false;
    checkbox17.Checked:=false;
    checkbox18.Checked:=false;
    checkbox19.Checked:=false;
    checkbox20.Checked:=false;
  end;
end;

procedure TOKBottomDlg1.CheckBox11Click(Sender: TObject);
begin
  if checkbox11.Checked=true then
    form3.DBGrid1.Columns[0].Visible:=true
    else
      form3.DBGrid1.Columns[0].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox12Click(Sender: TObject);
begin
   if checkbox12.Checked=true then
    form3.DBGrid1.Columns[1].Visible:=true
    else
      form3.DBGrid1.Columns[1].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox13Click(Sender: TObject);
begin
  if checkbox13.Checked=true then
    form3.DBGrid1.Columns[2].Visible:=true
    else
      form3.DBGrid1.Columns[2].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox14Click(Sender: TObject);
begin
   if checkbox14.Checked=true then
    form3.DBGrid1.Columns[6].Visible:=true
    else
      form3.DBGrid1.Columns[6].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox15Click(Sender: TObject);
begin
   if checkbox15.Checked=true then
    form3.DBGrid1.Columns[12].Visible:=true
    else
      form3.DBGrid1.Columns[12].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox18Click(Sender: TObject);
begin
  if checkbox18.Checked=true then
    form3.DBGrid1.Columns[8].Visible:=true
    else
      form3.DBGrid1.Columns[8].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox16Click(Sender: TObject);
begin
  if checkbox16.Checked=true then
    form3.DBGrid1.Columns[9].Visible:=true
    else
      form3.DBGrid1.Columns[9].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox17Click(Sender: TObject);
begin
   if checkbox17.Checked=true then
    form3.DBGrid1.Columns[14].Visible:=true
    else
      form3.DBGrid1.Columns[14].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox19Click(Sender: TObject);
begin
   if checkbox19.Checked=true then
    form3.DBGrid1.Columns[17].Visible:=true
    else
      form3.DBGrid1.Columns[17].Visible:=false;
end;

procedure TOKBottomDlg1.CheckBox20Click(Sender: TObject);
begin
  if checkbox20.Checked=true then
    form3.DBGrid1.Columns[18].Visible:=true
  else
      form3.DBGrid1.Columns[18].Visible:=false;
end;

end.