listut.~pas

用delphi+access给单位做的实用,简单的.

unit listut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, CheckLst, ComCtrls, DB, Grids,
  DBGrids, ADODB;

type
  Tlistfm = class(TForm)
    procedure BitBtn7Click(Sender: TObject);
     procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
     procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure jbxxClick(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
     vstr:string
  end;

var
  listfm: Tlistfm;

implementation

uses mainut;

{$R *.dfm}

procedure Tlistfm.BitBtn7Click(Sender: TObject);
var

i:integer;
begin
vstr:='';
mainfm.vi:=0;

with adoquery1 do
   begin
     close;
     sql.Clear;
     sql.Add('select * from 职工信息表 order by 代号');
     open;
   end;

for i:=0 to CheckListBox1.Items.Count-1 do
begin
// mainfm.xz[i]:=CheckListBox1.Selected[i];
 if CheckListBox1.Checked[i] then
 begin
     mainfm.zd[i]:=CheckListBox1.Items.Strings[i];
     mainfm.vi:=mainfm.vi+1;
    // vstr:=vstr+CheckListBox1.Items.Strings[i]
   end;
 end;
 //showmessage(vstr);
 listfm.PageControl1.ActivePage:=tabsheet2;

vstr:='';
for i:=0 to  mainfm.vi-2 do
vstr:=vstr+mainfm.zd[i]+',';
vstr:=vstr+mainfm.zd[mainfm.vi-1];
if vstr='' then
 begin
  showmessage('字段不能全部为空!');
  exit;
 end;
 with adoquery1 do
   begin
     close;
     sql.Clear;
     sql.Add('select '+vstr+'  from 职工信息表 order by 代号');
     open;
   end;
end;

procedure Tlistfm.BitBtn6Click(Sender: TObject);
  var
  i:integer;
begin

for i:=0 to CheckListBox1.Items.Count-1  do
 CheckListBox1.Checked[i]:=true;
end;

procedure Tlistfm.FormCreate(Sender: TObject);
var
i:integer;
begin
CheckListBox1.Clear;
jbxx.Checked:=true;
xlxx.Checked:=true;
gzxx.Checked:=true;
for i:=0 to mainfm.DBGridEh1.Columns.Count-1 do
begin
 CheckListBox1.Items.Add(mainfm.DBGridEh1.Columns.Items[i].FieldName);
 end;
 for i:=0 to CheckListBox1.Items.Count-1  do
 CheckListBox1.Checked[i]:=true;

 with adoquery1 do
   begin
     close;
     sql.Clear;
     sql.Add('select * from 职工信息表 order by 代号');
     open;
   end;
end;



procedure Tlistfm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tlistfm.BitBtn1Click(Sender: TObject);
begin
mainfm.CopyDbDataToExcel([DBGrid1]);
end;
procedure Tlistfm.BitBtn3Click(Sender: TObject);
begin
listfm.PageControl1.ActivePage:=tabsheet1;
end;
procedure Tlistfm.jbxxClick(Sender: TObject);
 var
 i:integer;
  begin
 { if jbxx.Checked=false then
     begin
      for i:=1 to 11 do
        CheckListBox1.Checked[i]:=false;
      end
      else
        CheckListBox1.Checked[i]:=true;  }
  end;

end.