seachut.pas

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

unit seachut;

interface

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

type
  Tseachfm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    dh: TEdit;
    xm: TEdit;
    xb: TComboBox;
    nl: TEdit;
    zzmm: TComboBox;
    xl: TComboBox;
    zc: TComboBox;
    zw: TComboBox;
    dj: TComboBox;
    jb: TComboBox;
    bz: TComboBox;
    zwbz: TComboBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    zgxm: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Panel1: TPanel;
    Panel2: TPanel;
    CheckListBox1: TCheckListBox;
    BitBtn7: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn11: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure k(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seachfm: Tseachfm;

implementation

uses mainut, listut;

{$R *.dfm}

procedure Tseachfm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tseachfm.BitBtn2Click(Sender: TObject);
begin
zgxm.Clear;
end;

procedure Tseachfm.BitBtn1Click(Sender: TObject);
var
i,j:integer;
begin
//for i:=0 to  mainfm.MDBGrid1.Columns.count-1 do
//for j:=0 to mainfm.vi-1 do
// begin
  //if  (mainfm.zd[j]=mainfm.MDBGrid1.Columns[i].FieldName)then
    // mainfm.MDBGrid1.Columns.Items[i].Destroy;
 //end;

 //mainfm.MDBGrid1.Visible:=true;
 if zgxm.Text='' then
   begin
     showmessage('请输入姓名进行查询');
     exit;
   end;
 with mainfm.adoquery do
   begin
     close;
     sql.Clear;
     sql.Add('select * from 职工信息表 where 姓名 like "'+'%'+zgxm.Text+'%'+'"');
     open;
     if recordcount<1 then
       begin
         showmessage('对不起没有找到记录！');
         exit;
       end;
   end;
  
end;

procedure Tseachfm.BitBtn6Click(Sender: TObject);
begin
close;
end;

procedure Tseachfm.BitBtn4Click(Sender: TObject);
var
 str:string;
begin
  str:='select * from 职工信息表 where 序号<>0';
  if dh.Text<>'' then
    str:=str+' and 代号="'+trim(dh.Text)+'"';
  if xm.Text<>'' then
    str:=str+' and 姓名="'+trim(xm.Text)+'"';
  if xb.Text<>'' then
    str:=str+' and 性别="'+trim(xb.Text)+'"';
  if nl.Text<>'' then
    str:=str+' and 年龄='+trim(nl.Text);
  if zzmm.Text<>'' then
    str:=str+' and 政治面貌="'+trim(zzmm.Text)+'"';
  if xl.Text<>'' then
    str:=str+' and 学历="'+trim(xl.Text)+'"';
  if zc.Text<>'' then
     str:=str+' and 职称="'+trim(zc.Text)+'"';
  if jb.Text<>'' then
     str:=str+' and 级别="'+trim(jb.Text)+'"';
  if zw.Text<>'' then
     str:=str+' and 职务="'+trim(zw.Text)+'"';
  if dj.Text<>'' then
     str:=str+' and 等级="'+trim(dj.Text)+'"';
  if bz.Text<>'' then
     str:=str+' and 班组="'+trim(bz.Text)+'"';
  if zwbz.Text<>'' then
     str:=str+'  and 职务标识="'+trim(zwbz.Text)+'"';
    with mainfm.adoquery do
   begin
     close;
     sql.Clear;
     sql.Add(str);
     open;
   end;
end;

procedure Tseachfm.BitBtn5Click(Sender: TObject);
begin
dh.Clear;
xm.Clear;
xb.Text:='';
nl.Clear;
zzmm.Text:='';
xl.Text:='';
zc.Text:='';
jb.Clear;
end;

procedure Tseachfm.k(Sender: TObject);
begin
listfm.show;
end;

procedure Tseachfm.FormCreate(Sender: TObject);
var
i,j:integer;
begin
//mainfm.fresh.Click;

dh.Clear;
xm.Clear;
xb.Text:='';
nl.Clear;
zzmm.Text:='';
xl.Text:='';
zc.Clear;
jb.Clear;
zw.Clear;
dj.Clear;
bz.Clear;
zwbz.Text:='';

CheckListBox1.Clear;

  for i:=0 to mainfm.DBGridEh1.Columns.Count-1 do
  begin
    CheckListBox1.Items.Add(mainfm.DBGridEh1.Columns[i].FieldName);
    CheckListBox1.Checked[i]:=true;
   end;


   with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 职务 from 职务表');
      open;
      first;
       while not eof do
         begin
           zw.Items.Add(fieldbyname('职务').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 职称 from 职称表');
      open;
      first;
       while not eof do
         begin
           zc.Items.Add(fieldbyname('职称').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 级别 from 级别表');
      open;
      first;
       while not eof do
         begin
           jb.Items.Add(fieldbyname('级别').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 等级 from 等级表');
      open;
      first;
       while not eof do
         begin
           dj.Items.Add(fieldbyname('等级').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 班组 from 班组表');
      open;
      first;
       while not eof do
         begin
           bz.Items.Add(fieldbyname('班组').AsString);
           next;
         end;
    end;


end;

procedure Tseachfm.BitBtn10Click(Sender: TObject);
begin
close;
end;

procedure Tseachfm.BitBtn7Click(Sender: TObject);
var
i,j:integer;
begin
  for i:=0 to CheckListBox1.Items.Count-1 do
    begin
      if CheckListBox1.Checked[i] then
         begin
            mainfm.xz[i]:=true;
         end
      else
        mainfm.xz[i]:=false;
    end;

      
 for j:=0 to  mainfm.DBGridEh1.Columns.Count-1 do
   begin
     if mainfm.xz[j]=true then
     mainfm.DBGridEh1.Columns[j].Visible:=true
     else
     mainfm.DBGridEh1.Columns[j].Visible:=false;
   end;
end;

procedure Tseachfm.BitBtn9Click(Sender: TObject);
begin
mainfm.CopyDbDataToExcel([mainfm.DBGridEh1]);
end;

procedure Tseachfm.BitBtn8Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to mainfm.DBGridEh1.Columns.Count-1 do
 begin
   CheckListBox1.Checked[i]:=true;
 end;

end;

end.