kqtj.pas

来自「采用delphi语言实现了人事管理信息系统。使用了access数据库。」· PAS 代码 · 共 1,626 行 · 第 1/5 页

PAS
1,626 行
字号
12345
  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 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('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 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('twelevenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
3:if cmbmonth.Text='1' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,onemonth from ygsbtb where ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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 ygbm='+quotedstr(cmbm.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('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 where ygbm='+quotedstr(cmbm.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('elevenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
12345

kqtj.pas - 源码说明

本页面展示了「采用delphi语言实现了人事管理信息系统。使用了access数据库。」中的 kqtj.pas 源码文件，采用 PAS 编程语言编写，共 1,626 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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