unit14.pas

劳模信息综合管理

unit Unit14;

interface

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

type
  TForm_search_nlm = class(TForm)
    Bevel1: TBevel;
    CBox_name: TCheckBox;
    CBox_year: TCheckBox;
    CBox_job: TCheckBox;
    Cbt_sex: TCheckBox;
    CBox_hy: TCheckBox;
    CBox_distinct_name: TCheckBox;
    CBx_ch: TCheckBox;
    Cbx_sex: TComboBox;
    CBox_ch: TComboBox;
    Edit_name: TEdit;
    Edit_job: TEdit;
    BitB_search: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DBComboBox1: TDBComboBox;
    StaticText1: TStaticText;
    Label2: TLabel;
    Label1: TLabel;
    ADOQ_lminfo1: TADOQuery;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    edit_hy: TComboBox;
    ChBox_dq: TCheckBox;
    CBox_dq: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure BitB_searchClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_search_nlm: TForm_search_nlm;
  str_date :String;
implementation
     uses  unit3,unit6 ;
{$R *.dfm}

procedure TForm_search_nlm.FormShow(Sender: TObject);
begin
    adoquery1.Close;
    adoQuery1.SQL.Clear;
    adoQuery1.SQL.Add('select year_lm from year_lm order by 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 ;


    with datalink.ADOQ_hy1 do
    begin
    Close;
    SQL.Clear;
    SQL.Add('select hy_name from hy1');
     Open;
     edit_hy.Items.Clear;//清空combobox中的数据
        while not(EOF) do
       begin
      edit_hy.Items.Add(FieldByName('hy_name').AsString);
        Next;
    end ;
    end;


     with datalink.ADOQ_area1 do
    begin
    Close;
    SQL.Clear;
    SQL.Add('select area_name from area1');
     Open;
     cBox_dq.Items.Clear;//清空combobox中的数据
        while not(EOF) do
       begin
      cBox_dq.Items.Add(FieldByName('area_name').AsString);
        Next;
    end ;
    end;

     with datalink.ADOQ_type_lm do
    begin
    Close;
    SQL.Clear;
    SQL.Add('select type_name from type_lm');
     Open;
     cBox_ch.Items.Clear;//清空combobox中的数据
        while not(EOF) do
       begin
      cBox_ch.Items.Add(FieldByName('type_name').AsString);
        Next;
    end ;
    end;

         adoq_lminfo1.Close;
         adoq_lminfo1.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:='评模时间';
         dbgrid1.Columns.Items[12].FieldName:='备注';
end;

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


         if (CBox_year.Checked=true) then
                begin
                     str_date:=Copy(DBComboBox1.Text,1,4);
                     adoq_lminfo1.SQL.Add(' and 评模时间='''+str_date+'''');
                end;
          if (cbt_sex.Checked=true) then
                 begin
                      adoq_lminfo1.SQL.Add(' and 性别='''+cbx_sex.Text+'''');
                 end;
          if (cbx_ch.Checked=true) then
                 begin
                      adoq_lminfo1.SQL.Add(' and 劳模类型='''+CBox_ch.Text+'''');
                 end;
          if (CBox_job.Checked=true) then
                begin
                     adoq_lminfo1.SQL.Add(' and  单位 like '''+'%'+edit_job.Text+'%'+'''');
                end;
          if (CBox_hy.Checked=true) then
                begin
                     adoq_lminfo1.SQL.Add(' and  所属行业 like '''+'%'+edit_hy.Text+'%'+'''');
                end;
           if (ChBox_dq.Checked=true) then
                begin
                     adoq_lminfo1.SQL.Add(' and  所在地市 like '''+'%'+cBox_dq.Text+'%'+'''');
                end;
             adoq_lminfo1.Open;
             adoq_lminfo1.Last;
            label2.Caption:='0';
            label2.Caption:=IntToStr(adoq_lminfo1.RecNo);
           
end;

procedure TForm_search_nlm.Button1Click(Sender: TObject);
begin

          form6.QRLabel1.Caption:='国家级(省级)劳模名单';
          form6.QuickRep1.DataSet:=ADOQ_lminfo1;
          form6.QRDBText1.DataSet:=ADOQ_lminfo1;
          form6.QRDBText2.DataSet:=ADOQ_lminfo1;
          form6.QRDBText3.DataSet:=ADOQ_lminfo1;
          form6.QRDBText4.DataSet:=ADOQ_lminfo1;
          form6.QRDBText5.DataSet:=ADOQ_lminfo1;
          form6.QRDBText6.DataSet:=ADOQ_lminfo1;
          form6.QRDBText7.DataSet:=ADOQ_lminfo1;
          form6.QRDBText8.DataSet:=ADOQ_lminfo1;
          form6.QRDBText9.DataSet:=ADOQ_lminfo1;
          form6.QRDBText10.DataSet:=ADOQ_lminfo1;


          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.Preview
end;

procedure TForm_search_nlm.Button2Click(Sender: TObject);
begin
 form6.QRLabel1.Caption:='国家级(省级)劳模名单';
          form6.QuickRep1.DataSet:=ADOQ_lminfo1;
          form6.QRDBText1.DataSet:=ADOQ_lminfo1;
          form6.QRDBText2.DataSet:=ADOQ_lminfo1;
          form6.QRDBText3.DataSet:=ADOQ_lminfo1;
          form6.QRDBText4.DataSet:=ADOQ_lminfo1;
          form6.QRDBText5.DataSet:=ADOQ_lminfo1;
          form6.QRDBText6.DataSet:=ADOQ_lminfo1;
          form6.QRDBText7.DataSet:=ADOQ_lminfo1;
          form6.QRDBText8.DataSet:=ADOQ_lminfo1;
          form6.QRDBText9.DataSet:=ADOQ_lminfo1;
          form6.QRDBText10.DataSet:=ADOQ_lminfo1;

          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;

end.