pfm_selgridcol.pas

POS收银系统

unit pfm_selgridcol;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, CheckLst, Grids, DBGrids;

type
  Tfm_selgridcol = class(TForm)
    CkLBox1: TCheckListBox;
    BtnAllVis: TButton;
    BtnAllUnvis: TButton;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure CkLBox1ClickCheck(Sender: TObject);

    procedure BtnAllVisClick(Sender: TObject);
    procedure BtnAllUnvisClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    MyDbGrid:TDBgrid;
    procedure SetGrid(Value:TDBgrid);
    { Private declarations }
  public
    { Public declarations }
    property GRID1:TDBGrid  read MyDbGrid write SetGrid;
  end;

var
  fm_selgridcol: Tfm_selgridcol;

implementation

{$R *.DFM}

procedure Tfm_selgridcol.FormShow(Sender: TObject);
var
i:integer;
begin
    if mydbgrid=nil then exit;
    CkLbox1.Clear;
    for i:=0 to mydbgrid.columns.count-1 do
    begin
        CkLbox1.Items.add(mydbgrid.columns[i].Title.caption);
        if mydbgrid.columns[i].Visible=true then
        begin
            ckLbox1.checked[i]:=true;
        end
        else
        begin
            ckLbox1.checked[i]:=false;
        end;
    end;
        //=gridcolname.values[dbgrid1.columns[i].Title.caption];
  
end;

procedure Tfm_selgridcol.SetGrid(Value:TDBgrid);
begin
     MyDbgrid:=Value;
end;
procedure Tfm_selgridcol.CkLBox1ClickCheck(Sender: TObject);
begin
    Mydbgrid.Columns[CkLbox1.itemindex].Visible:=Cklbox1.Checked[Cklbox1.itemindex];
end;
procedure Tfm_selgridcol.BtnAllVisClick(Sender: TObject);
var
i:integer;
begin
    for i:=0 to cklbox1.Items.Count-1 do
    begin
        cklbox1.checked[i]:=true;
        Mydbgrid.Columns[i].Visible:=true;
    end;
end;
procedure Tfm_selgridcol.BtnAllUnvisClick(Sender: TObject);
var
i:integer;
begin
    for i:=0 to cklbox1.Items.Count-1 do
    begin
        cklbox1.checked[i]:=false;
        Mydbgrid.Columns[i].Visible:=false;
    end;
end;




procedure Tfm_selgridcol.Button1Click(Sender: TObject);
begin
    close;
end;

end.