unit16.~pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls,Excel2000,Word2000,OleServer;

type
  Tyjchaxun = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yjchaxun: Tyjchaxun;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit2, Unit3,
  Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure Tyjchaxun.Button4Click(Sender: TObject);
begin
yjchaxun.Close;
end;

procedure Tyjchaxun.Button1Click(Sender: TObject);
 var i:integer;
begin
if (edit1.Text='') and (edit2.Text='') and (edit3.Text='') and (edit4.Text='') and (edit5.Text='') then
begin
 application.MessageBox('请输入查询条件！！','木鱼工作室',mb_iconhand+mb_yesno);
edit1.SetFocus;
end;
if (edit1.Text<>'') and (edit2.Text='') and (edit3.Text='') and (edit4.Text='') and (edit5.Text='') then
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='员工id';
 dbgrid1.Columns[1].FieldName:='姓名';
 dbgrid1.Columns[2].FieldName:='性别';
 dbgrid1.Columns[3].FieldName:='出生日期';
 dbgrid1.Columns[4].FieldName:='籍贯';
 dbgrid1.Columns[5].FieldName:='民族';
 dbgrid1.Columns[6].FieldName:='身份证号';
 dbgrid1.Columns[7].FieldName:='政治面貌';
 dbgrid1.Columns[8].FieldName:='部门代码';
 dbgrid1.Columns[9].FieldName:='进入部门日期';
 dbgrid1.Columns[10].FieldName:='职务代码';
 dbgrid1.Columns[11].FieldName:='职称';
 dbgrid1.Columns[12].FieldName:='起薪日期';
 dbgrid1.Columns[13].FieldName:='原企业';
 dbgrid1.Columns[14].FieldName:='原职称';
 dbgrid1.Columns[15].FieldName:='员工id';
 dbgrid1.Columns[16].FieldName:='毕业学校';
 dbgrid1.Columns[17].FieldName:='毕业日期';
 dbgrid1.Columns[18].FieldName:='学历';
 dbgrid1.Columns[19].FieldName:='专业';
 dbgrid1.Columns[20].FieldName:='外语';
 dbgrid1.Columns[21].FieldName:='地址';
 dbgrid1.Columns[22].FieldName:='电话';
 dbgrid1.Columns[23].FieldName:='邮箱';
 dbgrid1.Columns[24].FieldName:='在岗状态';
  for i:=0 to 24 do
  dbgrid1.Columns[i].Width:=80;
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text='') and (edit4.Text='') and (edit5.Text='') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''' and 姓名='''+edit2.Text+'''' );
Open;
dbgrid1.Columns[0].FieldName:='员工id';
 dbgrid1.Columns[1].FieldName:='姓名';
 dbgrid1.Columns[2].FieldName:='性别';
 dbgrid1.Columns[3].FieldName:='出生日期';
 dbgrid1.Columns[4].FieldName:='籍贯';
 dbgrid1.Columns[5].FieldName:='民族';
 dbgrid1.Columns[6].FieldName:='身份证号';
 dbgrid1.Columns[7].FieldName:='政治面貌';
 dbgrid1.Columns[8].FieldName:='部门代码';
 dbgrid1.Columns[9].FieldName:='进入部门日期';
 dbgrid1.Columns[10].FieldName:='职务代码';
 dbgrid1.Columns[11].FieldName:='职称';
 dbgrid1.Columns[12].FieldName:='起薪日期';
 dbgrid1.Columns[13].FieldName:='原企业';
 dbgrid1.Columns[14].FieldName:='原职称';
 dbgrid1.Columns[15].FieldName:='员工id';
 dbgrid1.Columns[16].FieldName:='毕业学校';
 dbgrid1.Columns[17].FieldName:='毕业日期';
 dbgrid1.Columns[18].FieldName:='学历';
 dbgrid1.Columns[19].FieldName:='专业';
 dbgrid1.Columns[20].FieldName:='外语';
 dbgrid1.Columns[21].FieldName:='地址';
 dbgrid1.Columns[22].FieldName:='电话';
 dbgrid1.Columns[23].FieldName:='邮箱';
 dbgrid1.Columns[24].FieldName:='在岗状态';
  for i:=0 to 24 do
  dbgrid1.Columns[i].Width:=80;
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'') then
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''' and 姓名='''+edit2.Text+''' and 职称='''+edit3.Text+''' and 身份证号='''+edit4.Text+''' and 学历='''+edit5.Text+'''' );
Open;
dbgrid1.Columns[0].FieldName:='员工id';
 dbgrid1.Columns[1].FieldName:='姓名';
 dbgrid1.Columns[2].FieldName:='性别';
 dbgrid1.Columns[3].FieldName:='出生日期';
 dbgrid1.Columns[4].FieldName:='籍贯';
 dbgrid1.Columns[5].FieldName:='民族';
 dbgrid1.Columns[6].FieldName:='身份证号';
 dbgrid1.Columns[7].FieldName:='政治面貌';
 dbgrid1.Columns[8].FieldName:='部门代码';
 dbgrid1.Columns[9].FieldName:='进入部门日期';
 dbgrid1.Columns[10].FieldName:='职务代码';
 dbgrid1.Columns[11].FieldName:='职称';
 dbgrid1.Columns[12].FieldName:='起薪日期';
 dbgrid1.Columns[13].FieldName:='原企业';
 dbgrid1.Columns[14].FieldName:='原职称';
 dbgrid1.Columns[15].FieldName:='员工id';
 dbgrid1.Columns[16].FieldName:='毕业学校';
 dbgrid1.Columns[17].FieldName:='毕业日期';
 dbgrid1.Columns[18].FieldName:='学历';
 dbgrid1.Columns[19].FieldName:='专业';
 dbgrid1.Columns[20].FieldName:='外语';
 dbgrid1.Columns[21].FieldName:='地址';
 dbgrid1.Columns[22].FieldName:='电话';
 dbgrid1.Columns[23].FieldName:='邮箱';
 dbgrid1.Columns[24].FieldName:='在岗状态';
  for i:=0 to 24 do
  dbgrid1.Columns[i].Width:=80;
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);

edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text='') and (edit5.Text='') then
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''' and 姓名='''+edit2.Text+''' and 职称='''+edit3.Text+'''' );
Open;
dbgrid1.Columns[0].FieldName:='员工id';
 dbgrid1.Columns[1].FieldName:='姓名';
 dbgrid1.Columns[2].FieldName:='性别';
 dbgrid1.Columns[3].FieldName:='出生日期';
 dbgrid1.Columns[4].FieldName:='籍贯';
 dbgrid1.Columns[5].FieldName:='民族';
 dbgrid1.Columns[6].FieldName:='身份证号';
 dbgrid1.Columns[7].FieldName:='政治面貌';
 dbgrid1.Columns[8].FieldName:='部门代码';
 dbgrid1.Columns[9].FieldName:='进入部门日期';
 dbgrid1.Columns[10].FieldName:='职务代码';
 dbgrid1.Columns[11].FieldName:='职称';
 dbgrid1.Columns[12].FieldName:='起薪日期';
 dbgrid1.Columns[13].FieldName:='原企业';
 dbgrid1.Columns[14].FieldName:='原职称';
 dbgrid1.Columns[15].FieldName:='员工id';
 dbgrid1.Columns[16].FieldName:='毕业学校';
 dbgrid1.Columns[17].FieldName:='毕业日期';
 dbgrid1.Columns[18].FieldName:='学历';
 dbgrid1.Columns[19].FieldName:='专业';
 dbgrid1.Columns[20].FieldName:='外语';
 dbgrid1.Columns[21].FieldName:='地址';
 dbgrid1.Columns[22].FieldName:='电话';
 dbgrid1.Columns[23].FieldName:='邮箱';
 dbgrid1.Columns[24].FieldName:='在岗状态';
  for i:=0 to 24 do
  dbgrid1.Columns[i].Width:=80;
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text='') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''' and 姓名='''+edit2.Text+''' and 职称='''+edit3.Text+''' and 身份证号='''+edit4.Text+'''' );
Open;
dbgrid1.Columns[0].FieldName:='员工id';
 dbgrid1.Columns[1].FieldName:='姓名';
 dbgrid1.Columns[2].FieldName:='性别';
 dbgrid1.Columns[3].FieldName:='出生日期';
 dbgrid1.Columns[4].FieldName:='籍贯';
 dbgrid1.Columns[5].FieldName:='民族';
 dbgrid1.Columns[6].FieldName:='身份证号';
 dbgrid1.Columns[7].FieldName:='政治面貌';
 dbgrid1.Columns[8].FieldName:='部门代码';
 dbgrid1.Columns[9].FieldName:='进入部门日期';
 dbgrid1.Columns[10].FieldName:='职务代码';
 dbgrid1.Columns[11].FieldName:='职称';
 dbgrid1.Columns[12].FieldName:='起薪日期';
 dbgrid1.Columns[13].FieldName:='原企业';
 dbgrid1.Columns[14].FieldName:='原职称';
 dbgrid1.Columns[15].FieldName:='员工id';
 dbgrid1.Columns[16].FieldName:='毕业学校';
 dbgrid1.Columns[17].FieldName:='毕业日期';
 dbgrid1.Columns[18].FieldName:='学历';
 dbgrid1.Columns[19].FieldName:='专业';
 dbgrid1.Columns[20].FieldName:='外语';
 dbgrid1.Columns[21].FieldName:='地址';
 dbgrid1.Columns[22].FieldName:='电话';
 dbgrid1.Columns[23].FieldName:='邮箱';
 dbgrid1.Columns[24].FieldName:='在岗状态';
  for i:=0 to 24 do
  dbgrid1.Columns[i].Width:=80;
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);

edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text='') and (edit5.Text<>'') then
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''' and 姓名='''+edit2.Text+''' and 职称='''+edit3.Text+''' and 学历='''+edit5.Text+'''' );
Open;
dbgrid1.Columns[0].FieldName:='员工id';
 dbgrid1.Columns[1].FieldName:='姓名';
 dbgrid1.Columns[2].FieldName:='性别';
 dbgrid1.Columns[3].FieldName:='出生日期';
 dbgrid1.Columns[4].FieldName:='籍贯';
 dbgrid1.Columns[5].FieldName:='民族';
 dbgrid1.Columns[6].FieldName:='身份证号';
 dbgrid1.Columns[7].FieldName:='政治面貌';
 dbgrid1.Columns[8].FieldName:='部门代码';
 dbgrid1.Columns[9].FieldName:='进入部门日期';
 dbgrid1.Columns[10].FieldName:='职务代码';
 dbgrid1.Columns[11].FieldName:='职称';
 dbgrid1.Columns[12].FieldName:='起薪日期';
 dbgrid1.Columns[13].FieldName:='原企业';
 dbgrid1.Columns[14].FieldName:='原职称';
 dbgrid1.Columns[15].FieldName:='员工id';
 dbgrid1.Columns[16].FieldName:='毕业学校';
 dbgrid1.Columns[17].FieldName:='毕业日期';
 dbgrid1.Columns[18].FieldName:='学历';
 dbgrid1.Columns[19].FieldName:='专业';
 dbgrid1.Columns[20].FieldName:='外语';
 dbgrid1.Columns[21].FieldName:='地址';
 dbgrid1.Columns[22].FieldName:='电话';
 dbgrid1.Columns[23].FieldName:='邮箱';
 dbgrid1.Columns[24].FieldName:='在岗状态';
  for i:=0 to 24 do
  dbgrid1.Columns[i].Width:=80;
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);

edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text='') and (edit4.Text<>'') and (edit5.Text='') then