find.pas

人事管理

unit find;

interface

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

type
  Tfrmfind = class(TForm)
    GroupBox1: TGroupBox;
    checkid: TCheckBox;
    checkname: TCheckBox;
    checksex: TCheckBox;
    checkmz: TCheckBox;
    checkhf: TCheckBox;
    checkeducation: TCheckBox;
    checkbm: TCheckBox;
    checksortwork: TCheckBox;
    checkbirthday: TCheckBox;
    btnok: TBitBtn;
    btnexit: TBitBtn;
    edid: TEdit;
    edmz: TEdit;
    cmbbm: TComboBox;
    edname: TEdit;
    cmbhf: TComboBox;
    cmbsortwork: TComboBox;
    cmbsex: TComboBox;
    cmbeducation: TComboBox;
    edbirthday: TEdit;
    StaticText1: TStaticText;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    dbgdshowfind: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    cmbif: TComboBox;
    Label3: TLabel;
    procedure btnexitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edidChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ednameChange(Sender: TObject);
    procedure cmbsexChange(Sender: TObject);
    procedure edmzChange(Sender: TObject);
    procedure cmbhfChange(Sender: TObject);
    procedure cmbeducationChange(Sender: TObject);
    procedure cmbbmChange(Sender: TObject);
    procedure cmbsortworkChange(Sender: TObject);
    procedure edbirthdayChange(Sender: TObject);
    procedure edidEnter(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edidKeyPress(Sender: TObject; var Key: Char);
    procedure ednameKeyPress(Sender: TObject; var Key: Char);
    procedure cmbsexKeyPress(Sender: TObject; var Key: Char);
    procedure edmzKeyPress(Sender: TObject; var Key: Char);
    procedure cmbhfKeyPress(Sender: TObject; var Key: Char);
    procedure cmbeducationKeyPress(Sender: TObject; var Key: Char);
    procedure cmbbmKeyPress(Sender: TObject; var Key: Char);
    procedure cmbsortworkKeyPress(Sender: TObject; var Key: Char);
    procedure edbirthdayKeyPress(Sender: TObject; var Key: Char);
    procedure edidExit(Sender: TObject);
    procedure ednameExit(Sender: TObject);
    procedure cmbsexExit(Sender: TObject);
    procedure edmzExit(Sender: TObject);
    procedure cmbhfExit(Sender: TObject);
    procedure cmbeducationExit(Sender: TObject);
    procedure cmbbmExit(Sender: TObject);
    procedure cmbsortworkExit(Sender: TObject);
    procedure edbirthdayExit(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmfind: Tfrmfind;
  i:integer;
implementation

uses showfindrs, datarsgl;

{$R *.dfm}

procedure Tfrmfind.btnexitClick(Sender: TObject);
begin
close;//quit current windows
end;

procedure Tfrmfind.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;//关闭子窗口
end;

procedure Tfrmfind.edidChange(Sender: TObject);
begin
if edid.Text<>'' then
begin
checkid.Checked:=true;
end;
end;

procedure Tfrmfind.FormCreate(Sender: TObject);
begin
i:=0;
checkid.Checked:=false;
checkbm.Checked:=false;
checkmz.Checked:=false;
checkname.Checked:=false;
checkhf.Checked:=false;
checksortwork.Checked:=false;
checksex.Checked:=false;
checkeducation.Checked:=false;
checkbirthday.Checked:=false;
end;

procedure Tfrmfind.ednameChange(Sender: TObject);
begin
if edname.Text<>'' then
begin
checkname.Checked:=true;
end;
end;

procedure Tfrmfind.cmbsexChange(Sender: TObject);
begin
if cmbsex.Text<>'' then
begin
checksex.Checked:=true;
end;
end;

procedure Tfrmfind.edmzChange(Sender: TObject);
begin
if edmz.Text<>'' then
begin
checkmz.Checked:=true;
end;
end;

procedure Tfrmfind.cmbhfChange(Sender: TObject);
begin
if cmbhf.Text<>'' then
begin
checkhf.Checked:=true;
end;
end;

procedure Tfrmfind.cmbeducationChange(Sender: TObject);
begin
if cmbeducation.Text<>'' then
begin
checkeducation.Checked:=true;
end;
end;

procedure Tfrmfind.cmbbmChange(Sender: TObject);
begin
if cmbbm.Text<>'' then
begin
checkbm.Checked:=true;
end;
end;

procedure Tfrmfind.cmbsortworkChange(Sender: TObject);
begin
if cmbsortwork.Text<>'' then
begin
checksortwork.Checked:=true;
end;
end;

procedure Tfrmfind.edbirthdayChange(Sender: TObject);
begin
if edbirthday.Text<>'' then
begin
checkbirthday.Checked:=true;
end;
end;

procedure Tfrmfind.edidEnter(Sender: TObject);
begin
edname.SetFocus;
end;

procedure Tfrmfind.FormShow(Sender: TObject);
begin
edid.SetFocus;
cmbsex.Items.Add('男');
cmbsex.Items.Add('女');
cmbhf.Items.Add('是');
cmbhf.Items.Add('否');
cmbif.Items.Add('and');
cmbif.Items.Add('or');
cmbeducation.Items.Add('博士');
cmbeducation.Items.Add('硕士');
cmbeducation.Items.Add('本科');
cmbeducation.Items.Add('大专');
cmbeducation.Items.Add('中专');
cmbeducation.Items.Add('高中');
cmbeducation.Items.Add('初中');
cmbeducation.Items.Add('小学');
end;

procedure Tfrmfind.edidKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edname.SetFocus; //get focus
end;

procedure Tfrmfind.ednameKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
cmbsex.SetFocus;
end;

procedure Tfrmfind.cmbsexKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edmz.SetFocus;
end;

procedure Tfrmfind.edmzKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
cmbhf.SetFocus;
end;

procedure Tfrmfind.cmbhfKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
cmbeducation.SetFocus;
end;

procedure Tfrmfind.cmbeducationKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
cmbbm.SetFocus;
end;

procedure Tfrmfind.cmbbmKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
cmbsortwork.SetFocus;
end;

procedure Tfrmfind.cmbsortworkKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edbirthday.SetFocus;
end;

procedure Tfrmfind.edbirthdayKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
btnok.SetFocus;
end;

procedure Tfrmfind.edidExit(Sender: TObject);
begin
if (edid.text<>'') and (i<6) then
begin
i:=i+1;
end
else
begin
if i>=6 then
showmessage('查询条件不能超过6条');
checkid.Checked:=false;
edid.Clear;
btnok.SetFocus;
end;
end;
procedure Tfrmfind.ednameExit(Sender: TObject);
begin
if (edname.Text<>'') and (i<6) then
begin
i:=i+1;
end
else
begin
if i>=6 then
showmessage('查询条件不能超过6条');
checkname.Checked:=false;
edname.Clear;
btnok.SetFocus;
end;
end;
procedure Tfrmfind.cmbsexExit(Sender: TObject);
begin
if (cmbsex.Text<>'') and (i<6) then
begin
i:=i+1;
end
else
begin
if i>=6 then
showmessage('查询条件不能超过6条');
checksex.Checked:=false;
cmbsex.Clear;
btnok.SetFocus;
end;
end;

procedure Tfrmfind.edmzExit(Sender: TObject);
begin
if (edmz.Text<>'') and (i<6) then
begin
i:=i+1;

end
else
begin
if i>=6 then
showmessage('查询条件不能超过6条');
checkmz.Checked:=false;
edmz.Clear;
btnok.SetFocus;
end;
end;
procedure Tfrmfind.cmbhfExit(Sender: TObject);
begin
if (cmbhf.Text<>'') and (i<6) then
begin
i:=i+1;
end
else
begin
if i>=6 then
showmessage('查询条件不能超过6条');
checkhf.Checked:=false;
cmbhf.Clear;
btnok.SetFocus;
end;
end;

procedure Tfrmfind.cmbeducationExit(Sender: TObject);
begin
if (cmbeducation.Text<>'') and (i<6) then
begin
i:=i+1;
end
else