⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit16.pas

📁 一个完整的工资管理系统 主要走查询 添加 删除 管理等功能
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
begin
  with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''' and 姓名='''+edit2.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 学历='''+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 职称='''+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 职称='''+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
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.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 职称='''+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.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 身份证号='''+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 学历='''+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:='进入部门日期';
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -