unit16.~pas

劳模信息综合管理

unit Unit16;

interface

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

type
  TForm_lminfo1 = class(TForm)
    GroupBox_name: TGroupBox;
    Button1: TButton;
    ComboBox_year: TComboBox;
    CheckBox_name: TCheckBox;
    CheckBox_year: TCheckBox;
    Button3: TButton;
    Edit_name: TEdit;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_lminfo1: TForm_lminfo1;

implementation
     uses unit3;
{$R *.dfm}

procedure TForm_lminfo1.FormShow(Sender: TObject);
begin
         datalink.ADOQ_year_lm.close;
       datalink.ADOQ_year_lm.SQL.Clear;
       datalink.adoq_year_lm.SQL.Add('select year_lm from year_lm order by year_lm');
       datalink.adoq_year_lm.Open;
       ComboBox_year.Items.Clear;
       while not(datalink.ADOQ_year_lm.EOF) do
       begin
           ComboBox_year.Items.Add(datalink.adoq_year_lm.FieldByName('year_lm').AsString);
           datalink.ADOQ_year_lm.Next;
       end ;

         datalink.ADOQ_lm1.Close;
         datalink.ADOQ_lm1.SQL.Clear;
         datalink.ADOQ_lm1.SQL.Add('select * from lminfo1');
         datalink.ADOQ_lm1.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_lminfo1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     datalink.ADOQ_lm1.Close;
end;

procedure TForm_lminfo1.Button1Click(Sender: TObject);
begin

     datalink.adoq_lm1.close;
          datalink.adoq_lm1.SQL.Clear;
          datalink.adoq_lm1.SQL.Add('select * from lminfo1 where 1=1');
         if (CheckBox_name.Checked=true)  then
            begin
               if edit_name.Text='' then
                   showmessage('请输入正确的查询姓名条件')
               else
                    begin
                     datalink.adoq_lm1.SQL.Add(' and 姓名 like '''+'%'+edit_name.text+'%'+'''');
                    end;
         end;
           if (CheckBox_year.Checked=true) then
                begin
                     datalink.adoq_lm1.SQL.Add(' and 评模时间='''+Copy(ComboBox_year.Text,1,4)+'''');
           end;
           datalink.adoq_lm1.Open;


end;

procedure TForm_lminfo1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm_lminfo1.Button2Click(Sender: TObject);
begin
close;
end;

end.