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

📄 kqtj.~pas

📁 人事管理
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='9' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,ninemonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='九月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('ninemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='10' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,tenmonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='十月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('tenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='11' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,elevenmonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='十一月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('elevenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='12' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,elevenmonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='十二月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('twelevenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
2:if cmbmonth.Text='1' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,onemonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='一月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('onemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='2' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,twomonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='二月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('twomonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='3' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,threemonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='三月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('threemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='4' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,fourmonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='四月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('fourmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='5' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,fivemonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='五月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('fivemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='6' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,sixmonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='六月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('sixmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='7' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,sevenmonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='七月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('sevenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='8' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,eightmonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='八月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('eightmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='9' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,ninemonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='九月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('ninemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='10' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,tenmonth from ygsbtb where name='+quotedstr(edname.Text));
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='十月份';
12345

⌨️ 快捷键说明

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