seek.pas

一个DELPHI的人事管理系统,具有一般人事管理系统的基本功能

unit seek;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, Buttons, StdCtrls, Mask, DBTables;

type
  TSeekForm = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Table1Number: TStringField;
    Table1Name: TStringField;
    Table1Sex: TStringField;
    Table1Birthday: TDateField;
    Table1Address: TStringField;
    Table1Phone: TStringField;
    Table1Unit: TStringField;
    Table1Salary: TFloatField;
    Table1Work_date: TDateField;
    Table1Duty: TStringField;
    Table1Speciality: TStringField;
    Table1Note: TStringField;
    Table1Operator: TStringField;
    Table1Stamp: TDateField;
    Table1Id: TStringField;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SeekForm: TSeekForm;

implementation

{$R *.dfm}

procedure TSeekForm.SpeedButton1Click(Sender: TObject);
begin
    close;
end;

procedure TSeekForm.FormActivate(Sender: TObject);
begin
    Label1.caption:='开始编号';
    Label2.Caption:='结束编号';
    Edit1.Text:='';
    Edit2.Text:='';
    MaskEdit1.Visible:=false;
    MaskEdit2.Visible:=false;
    Label1.Visible:=false;
    Label2.Visible:=false;
    Edit1.Visible:=false;
    Edit2.Visible:=false; 
    Table1.open;
    Table1Number.displaylabel:='员工编号';
    Table1Name.DisplayLabel:='员工姓名';
    Table1sex.DisplayLabel:='性别';
    Table1Birthday.DisplayLabel:='出生年月';
    Table1Id.DisplayLabel:='身份证号';
    Table1address.DisplayLabel:='通信地址';
    Table1Phone.DisplayLabel:='联系电话';
    Table1Unit.DisplayLabel:='所在单位';
    Table1salary.DisplayLabel:='工资';
    Table1Work_date.DisplayLabel:='参加工作时间';
    Table1Duty.DisplayLabel:='职务';
    Table1Speciality.DisplayLabel:='专业';
    Table1Note.DisplayLabel:='备注';
    Table1Operator.DisplayLabel:='操作员';
    Table1Stamp.DisplayLabel:='最后操作时间';
    ComboBox1.Items.clear;
    ComboBox1.Items.add('按编号查询');
    ComboBox1.Items.add('按姓名查询');
    ComboBox1.Items.add('按身份证号查询');
    ComboBox1.Items.add('按出生年月查询');
    ComboBox1.Items.add('按工资查询');
    ComboBox1.Items.add('按参加工作年月查询');
    ComboBox1.Items.add('全部');
    ComboBox1.text:=ComboBox1.items[6];
end;

procedure TSeekForm.ComboBox1Click(Sender: TObject);
begin
      if ComboBox1.ItemIndex=0 then
      begin
          Label1.Visible:=true;
          Label1.Caption:='开始编号';
          Label2.Visible:=true;
          Label2.Caption:='结束编号';
          Edit1.Text:='';
          Edit1.Visible:=true;
          Edit2.Text:='';
          Edit2.Visible:=true;
          MaskEdit1.Visible:=false;
          MaskEdit2.Visible:=false;
      end
      else if ComboBox1.ItemIndex=1 then
      begin
          Label1.Visible:=true;
          Label1.Caption:='姓名';
          Label2.Visible:=false;
          Edit1.Text:='';
          Edit1.Visible:=true;
          Edit2.Visible:=false;
          MaskEdit1.Visible:=false;
          MaskEdit2.Visible:=false;
      end
      else if ComboBox1.ItemIndex=2 then
      begin
          Label1.Visible:=true;
          Label1.Caption:='身份证号';
          Label2.Visible:=true;
          Label2.Caption:='至 身份证号';
          Edit1.Text:='';
          Edit1.Visible:=true;
          Edit2.text:='';
          Edit2.Visible:=true;
          MaskEdit1.Visible:=false;
          MaskEdit2.Visible:=false;
      end
      else if ComboBox1.ItemIndex=3 then
      begin
          Label1.Visible:=true;
          Label1.Caption:='出生年月';
          Label2.Visible:=true;
          Label2.Caption:='从 出生年月';
          Edit1.Text:='';
          Edit1.Visible:=false;
          Edit2.text:='';
          Edit2.Visible:=false;
          MaskEdit1.Visible:=true;
          MaskEdit2.Visible:=true;
      end
      else if ComboBox1.ItemIndex=4 then
      begin
          Label1.Visible:=true;
          Label1.Caption:='工资：从';
          Label2.Visible:=true;
          Label2.Caption:='至 ';
          Edit1.Text:='';
          Edit1.Visible:=true;
          Edit2.text:='';
          Edit2.Visible:=true;
          MaskEdit1.Visible:=false;
          MaskEdit2.Visible:=false;
      end
      else if ComboBox1.ItemIndex=5 then
      begin
          Label1.Visible:=true;
          Label1.Caption:='开始时间';
          Label2.Visible:=true;
          Label2.Caption:='结束时间';
          Edit1.Visible:=false;
          Edit2.Visible:=false;
          MaskEdit1.Visible:=true;
          MaskEdit2.Visible:=true;
      end
      else if ComboBox1.ItemIndex=6 then
      begin
          Label1.Visible:=false;
          Label2.Visible:=false;
          Edit1.Visible:=false;
          Edit2.Visible:=false;
          MaskEdit1.Visible:=false;
          MaskEdit2.Visible:=false;
      end
      else
          Application.MessageBox('选择错误，请检查！','提示信息',mb_ok);

end;

procedure TSeekForm.SpeedButton3Click(Sender: TObject);
begin
    if ComboBox1.ItemIndex=0 then
    begin
        Table1.CancelRange;
        Table1.SetRangeStart;
        Table1.FieldByName('number').asstring:=edit1.text;
        Table1.SetRangeEnd;
        Table1.FieldByName('number').asstring:=edit1.text;
        Table1.ApplyRange;
    end
    else if ComboBox1.ItemIndex=1 then
    begin
        Table1.CancelRange;
        Table1.close;
        Table1.Exclusive:=true;
        Table1.AddIndex('newindex','name',[ixCaseInsensitive	]);
        Table1.IndexName:='newindex';
        table1.Exclusive:=false;
        Table1.open;
        Table1.SetRangeStart;
        Table1.FieldByName('name').asstring:=edit1.text;
        Table1.SetRangeEnd;
        Table1.FieldByName('name').asstring:=edit1.text;
        Table1.ApplyRange;
    end
    else if ComboBox1.ItemIndex=2 then
    begin
        Table1.CancelRange;
        Table1.close;
        Table1.Exclusive:=true;
        Table1.AddIndex('newindex','id',[ixCaseInsensitive	]);
        Table1.IndexName:='newindex';
        table1.Exclusive:=false;
        Table1.open;
        Table1.SetRangeStart;
        Table1.FieldByName('id').asstring:=edit1.text;
        Table1.SetRangeEnd;
        Table1.FieldByName('id').asstring:=edit1.text;
        Table1.ApplyRange;
    end
    else if ComboBox1.ItemIndex=3 then
    begin
        Table1.CancelRange;
        Table1.close;
        Table1.Exclusive:=true;
        Table1.AddIndex('newindex','birthday',[ixCaseInsensitive	]);
        Table1.IndexName:='newindex';
        table1.Exclusive:=false;
        Table1.open;
        Table1.SetRangeStart;
        Table1.FieldByName('birthday').asdatetime:=strtodate(maskedit1.text);
        Table1.SetRangeEnd;
        Table1.FieldByName('birthday').asdatetime:=strtodate(Maskedit2.text);
        Table1.ApplyRange;
    end
    else if ComboBox1.ItemIndex=4 then
    begin
        Table1.CancelRange;
        Table1.close;
        Table1.Exclusive:=true;
        Table1.AddIndex('newindex','salary',[ixCaseInsensitive]);
        Table1.IndexName:='newindex';
        table1.Exclusive:=false;
        Table1.open;
        Table1.SetRangeStart;
        Table1.FieldByName('salary').asfloat:=strtofloat(edit1.text);
        Table1.SetRangeEnd;
        Table1.FieldByName('salary').asfloat:=strtofloat(edit2.text);
        Table1.ApplyRange;
    end
    else if ComboBox1.ItemIndex=5 then
    begin
        Table1.CancelRange;
        Table1.close;
        Table1.Exclusive:=true;
        Table1.AddIndex('newindex','work_date',[ixCaseInsensitive	]);
        Table1.IndexName:='newindex';
        table1.Exclusive:=false;
        Table1.open;
        Table1.SetRangeStart;
        Table1.FieldByName('work_date').asdatetime:=Strtodate(maskedit1.text);
        Table1.SetRangeEnd;
        Table1.FieldByName('work_date').asdatetime:=StrToDate(Maskedit2.text);
        Table1.ApplyRange;
    end
    else
    begin
        Table1.CancelRange;
        table1.close;
        table1.open;
    end;

end;

end.