unit11.pas

自己做的一个人力资源管理

unit Unit11;

interface

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

type
  Tselect = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    RadioGroup1: TRadioGroup;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  select: Tselect;

implementation

uses Unit10, Unit3, Unit8, Unit9, Unit4, Unit5;

{$R *.dfm}

procedure Tselect.Button1Click(Sender: TObject);
begin
            dbgrid1.Enabled:=true;
            with DM.Query2 do
              begin
                close;
                sql.Clear;
                case  RadioGroup1.ItemIndex of
                     -1:    begin
                                    showmessage('请选择查询方式!');
                                    exit;
                           end;
                      0:   begin
                                    sql.add('select * from person  where empname like :empname');
                                    ParamByName('empname').AsString:='%'+edit1.Text+'%';
                           end;
                      1:   begin
                                    sql.add('select * from jobmade where empname like :empname');
                                   ParamByName('empname').AsString:='%'+edit1.Text+'%';
                           end;
                      2:   begin
                                   sql.add('select * from Achievement where empname like :empname');
                                   ParamByName('empname').AsString:='%'+edit1.Text+'%';
                           end;
                      3:   begin
                                   sql.add('select * from PersonExp where empname like :empname');
                                   ParamByName('empname').AsString:='%'+edit1.Text+'%';
                           end;
                      4:   begin
                                   sql.add('select * from TitleExp where empname like :empname');
                                   ParamByName('empname').AsString:='%'+edit1.Text+'%';
                           end;
                      5:   begin
                                   sql.add('select * from Wages where empname like :empname');
                                   ParamByName('empname').AsString:='%'+edit1.Text+'%';
                           end;
                      6:   begin
                                   sql.add('select * from ID where empname like :empname');
                                   ParamByName('empname').AsString:='%'+edit1.Text+'%';
                           end;
                end;
                open;
      end;
      Panel3.Caption:='一共找到'+inttostr(dm.Query2.recordcount)+'条记录';
end;

procedure Tselect.DBGrid1DblClick(Sender: TObject);
begin
        if RadioGroup1.ItemIndex=0 then
                base_people.ShowModal;
        if RadioGroup1.ItemIndex=1 then
                chuqing_people.ShowModal;
        if RadioGroup1.ItemIndex=2 then
                jiangfa_people.ShowModal;
        if RadioGroup1.ItemIndex=3 then
                base_people.ShowModal;
        if RadioGroup1.ItemIndex=4 then
                base_people.ShowModal;
        if RadioGroup1.ItemIndex=5 then
                money_people.ShowModal;
        if RadioGroup1.ItemIndex=6 then
                system_people.showmodal;
                
end;

procedure Tselect.FormShow(Sender: TObject);
begin
         dbgrid1.Enabled:=false;
         panel3.Caption:='';
end;

end.