图形图象

开发平台：

Delphi

UnitFielSele.pas：源码内容

							unit UnitFielSele;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TFieldSelectForm = class(TForm)
    lv1: TListView;
    btnclall: TButton;
    btnseleall: TButton;
    btnfsele: TButton;
    btnok: TButton;
    btncancel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnclallClick(Sender: TObject);
    procedure btnseleallClick(Sender: TObject);
    procedure btnfseleClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FieldSelectForm: TFieldSelectForm;
implementation
uses UnitPcut;
{$R *.dfm}
procedure TFieldSelectForm.FormCreate(Sender: TObject);
var
  i:Integer;
  temit:TListItem;
begin
  with ImgCutForm do
    begin
      for i:=0 to tbl1.FieldCount-1 do
       begin
         temit:=lv1.Items.Add;
         temit.Caption:=tbl1.Fields[i].FieldName;
         if tbl1.Fields[i].Visible then
            temit.Checked:=True
         else temit.Checked:=False;   
       end;
    end;  
end;
procedure TFieldSelectForm.btnclallClick(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to lv1.Items.Count-1 do
    lv1.Items.Item[i].Checked:=False;
end;
procedure TFieldSelectForm.btnseleallClick(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to lv1.Items.Count-1 do
    lv1.Items.Item[i].Checked:=True;
end;
procedure TFieldSelectForm.btnfseleClick(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to lv1.Items.Count-1 do
    lv1.Items.Item[i].Checked:=not lv1.Items.Item[i].Checked;
end;
procedure TFieldSelectForm.btncancelClick(Sender: TObject);
begin
  Close;
end;
procedure TFieldSelectForm.btnokClick(Sender: TObject);
var
  i:Integer;
begin
  with ImgCutForm do
  begin
      with lv1 do
      begin
        with Items do
        begin
          for i:=0 to Count-1 do
            if Items.Item[i].Checked then
                  tbl1.FieldByName(Item[i].Caption).Visible:=True
            else tbl1.FieldByName(Item[i].Caption).Visible:=False;
        end
      end;
  end;
  Close;
end;
end.

						