easy_gassetgrid.pas

来自「EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空」· PAS 代码 · 共 51 行

unit EASY_GASSETGRID;

interface

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

type
  TGridDlg = class(TForm)
    CLB: TCheckListBox;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    procedure CLBClickCheck(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    GRID:TDBGridEH;
    Procedure loadgrid;
  end;

var
  GridDlg: TGridDlg;

implementation

{$R *.dfm}
Procedure TGridDlg.loadgrid;
var I:Integer;
begin
  CLB.Clear;
  For I:=0 to Grid.Columns.Count-1 do
  Begin
    CLB.Items.Add('字段:'+Grid.Columns[I].FieldName+' - 显示名称:'+Grid.Columns[I].Title.Caption);
    CLB.Checked[I]:=Grid.Columns[I].Visible;
  end;
end;

procedure TGridDlg.CLBClickCheck(Sender: TObject);
begin
  Grid.Columns[CLB.ItemIndex].Visible:=CLB.Checked[CLB.ItemIndex];
end;

end.