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

📄 kqtj.~pas

📁 人事管理
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='十月份考勤总表';
  qrlabel9.Caption:='十月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='tenmonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='十一月份考勤总表';
  qrlabel9.Caption:='十一月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='elevenmonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='十二月份考勤总表';
  qrlabel9.Caption:='十二月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='twelevenmonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  end;
  end
else if check1=2 then
begin
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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='一月份个人考勤总表';
  qrlabel9.Caption:='一月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='onemonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='二月份个人考勤总表';
  qrlabel9.Caption:='二月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='twomonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='三月份个人考勤总表';
  qrlabel9.Caption:='三月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='threemonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='四月份个人考勤总表';
  qrlabel9.Caption:='四月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='fourmonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='五月份个人考勤总表';
  qrlabel9.Caption:='五月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='fivemonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='六月份个人考勤总表';
  qrlabel9.Caption:='六月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='sixmonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='七月份个人考勤总表';
  qrlabel9.Caption:='七月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText2.DataField:='name';
  QRDBText3.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText3.DataField:='sex';
  QRDBText4.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText4.DataField:='ygbm';
  QRDBText5.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText5.DataField:='sevenmonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  with tfrmprtkqtj.Create(self) do
  begin
  QuickRep1.DataSet:=dmrsgl.ygkqtbqry;
  QRLabel1.Caption:='八月份个人考勤总表';
  qrlabel9.Caption:='八月份';
  if recordcount<>0 then
  begin
  qrdbtext1.DataSet:=dmrsgl.ygkqtbqry;
  QRDBText1.DataField:='number';
  QRDBText2.DataSet:=dmrsgl.ygkqtbqry
12345

⌨️ 快捷键说明

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