unit4.~pas

劳模信息综合管理

unit Unit4;

interface

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

type
  Tform_search = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    BitB_search: TBitBtn;
    Edit_name: TEdit;
    Dtp_pmsj: TDateTimePicker;
    ADOQ_lminfo: TADOQuery;
    DataSource1: TDataSource;
    Cbx_sex: TComboBox;
    Cb_tm: TCheckBox;
    Cbt_sex: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    StaticText1: TStaticText;
    Label1: TLabel;
    Label2: TLabel;
    CBox_name: TCheckBox;
    CBox_year: TCheckBox;
    CBox_job: TCheckBox;
    Edit_job: TEdit;
    Bevel2: TBevel;
    Bevel3: TBevel;
    DBComboBox1: TDBComboBox;
    ADOQuery1: TADOQuery;
    CBox_distinct_name: TCheckBox;
    CBox_hy: TCheckBox;
    Edit_hy: TEdit;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitB_searchClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_search: Tform_search;
   str_date :String;
implementation
  uses Unit2,unit3,unit6;
{$R *.dfm}

procedure Tform_search.FormShow(Sender: TObject);
begin
    adoquery1.Close;
    adoQuery1.SQL.Clear;
    adoQuery1.SQL.Add('select year_lm from year_lm');
    adoQuery1.Open;
    DBComboBox1.Items.Clear;//清空combobox中的数据
    while not(adoQuery1.EOF) do
    begin
    DBComboBox1.Items.Add(adoQuery1.FieldByName('year_lm').AsString);
    adoQuery1.Next;
    end ;


         adoq_lminfo.Close;
         adoq_lminfo.Open;
         dbgrid1.Columns.Items[0].FieldName:='编号';
         dbgrid1.Columns.Items[1].FieldName:='姓名';
         dbgrid1.Columns.Items[2].FieldName:='性别';
         dbgrid1.Columns.Items[3].FieldName:='年龄';
         dbgrid1.Columns.Items[4].FieldName:='政治面貌';
         dbgrid1.Columns.Items[5].FieldName:='民族';
         dbgrid1.Columns.Items[6].FieldName:='单位';
         dbgrid1.Columns.Items[7].FieldName:='学历';
         dbgrid1.Columns.Items[8].FieldName:='所属行业';
         dbgrid1.Columns.Items[9].FieldName:='所在地市';
         dbgrid1.Columns.Items[10].FieldName:='评模时间';
         dbgrid1.Columns.Items[11].FieldName:='备注';

         //dtp_pmsj.DateTime:=date;
end;

procedure Tform_search.BitB_searchClick(Sender: TObject);
begin
         adoq_lminfo.close;
         adoq_lminfo.SQL.Clear;
         adoq_lminfo.SQL.Add('select * from lminfo where 1=1');
         if(CBox_distinct_name.Checked=true) then
         begin
         adoq_lminfo.sql.Clear;
         adoq_lminfo.sql.Add('select *  from lminfo where 编号 IN(SELECT  MAX(编号) FROM lminfo GROUP BY 姓名)');
         end;
         if (CBox_name.Checked=true)  then
         begin
               if edit_name.Text='' then
                   showmessage('请输入正确的查询姓名条件')
               else
                    begin
                     adoq_lminfo.SQL.Add(' and 姓名 like '''+'%'+edit_name.text+'%'+'''');
                    end;
         end;


         if (CBox_year.Checked=true) then
                begin
                     str_date:=Copy(DBComboBox1.Text,1,4);
                     adoq_lminfo.SQL.Add(' and 评模时间='''+str_date+'''');
                end;
         if (cb_tm.Checked=true) then
                begin
                      adoq_lminfo.sql.Add('  and 特等劳模=1');
                end;
          if (cbt_sex.Checked=true) then
                 begin
                      adoq_lminfo.SQL.Add(' and 性别='''+cbx_sex.Text+'''');
                 end;
          if (CBox_job.Checked=true) then
                begin
                     adoq_lminfo.SQL.Add(' and  单位 like '''+'%'+edit_job.Text+'%'+'''');
                end;
                 if (CBox_hy.Checked=true) then
                begin
                     adoq_lminfo.SQL.Add(' and  所属行业 like '''+'%'+edit_hy.Text+'%'+'''');
                end;
           adoq_lminfo.Open;
           adoq_lminfo.Last;
           label2.Caption:='0';
           label2.Caption:=IntToStr(adoq_lminfo.RecNo);
end;
procedure Tform_search.Button2Click(Sender: TObject);
begin
          form6.QRLabel1.Caption:='哈尔滨市劳模名单' ;
          form6.QuickRep1.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText1.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText2.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText3.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText4.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText5.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText6.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText7.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText8.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText9.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText10.DataSet:=form_search.ADOQ_lminfo;


          form6.QRDBText1.DataField:='姓名';
          form6.QRDBText2.DataField:='性别';
          form6.QRDBText3.DataField:='年龄';
          form6.QRDBText4.DataField:='民族';
          form6.QRDBText5.DataField:='单位';
          form6.QRDBText6.DataField:='所属行业';
          form6.QRDBText7.DataField:='所在地市';
          form6.QRDBText8.DataField:='政治面貌';
          form6.QRDBText9.DataField:='评模时间';
          form6.QRDBText10.DataField:='备注';
          form6.QRDBText1.DataField:='姓名';
          form6.QRDBText2.DataField:='性别';
          form6.QRDBText3.DataField:='年龄';
          form6.QRDBText4.DataField:='民族';
          form6.QRDBText5.DataField:='单位';
          form6.QRDBText6.DataField:='所属行业';
          form6.QRDBText7.DataField:='所在地市';
          form6.QRDBText8.DataField:='政治面貌';
          form6.QRDBText9.DataField:='评模时间';
          form6.QRDBText10.DataField:='备注';
          form6.QuickRep1.Prepare;
           form6.QuickRep1.PrinterSetup;
          form6.QuickRep1.print;

end;

procedure Tform_search.Button1Click(Sender: TObject);
begin
         form6.QRLabel1.Caption:='哈尔滨市劳模名单';
         form6.QuickRep1.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText1.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText2.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText3.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText4.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText5.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText6.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText7.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText8.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText9.DataSet:=form_search.ADOQ_lminfo;
          form6.QRDBText10.DataSet:=form_search.ADOQ_lminfo;



          form6.QRDBText1.DataField:='姓名';
          form6.QRDBText2.DataField:='性别';
          form6.QRDBText3.DataField:='年龄';
          form6.QRDBText4.DataField:='民族';
          form6.QRDBText5.DataField:='单位';
          form6.QRDBText6.DataField:='所属行业';
          form6.QRDBText7.DataField:='所在地市';
          form6.QRDBText8.DataField:='政治面貌';
          form6.QRDBText9.DataField:='评模时间';
          form6.QRDBText10.DataField:='备注';
          form6.QuickRep1.Prepare;
          //form6.QuickRep1.PrinterSetup;
          form6.QuickRep1.Preview;
end;

procedure Tform_search.BitBtn1Click(Sender: TObject);
begin
close;
end;

end.