kqtj.~pas

人事管理

  else if cmbmonth.Text='12' 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('twelevenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
end;
end;
end;
procedure Tfrmkqtj.btnpreviewClick(Sender: TObject);
var check1:integer;
//定义查询方式的条件
begin
 //检查查询方式的条件
 inherited;
 check1:=0;
if checkmonth.Checked=true then
begin
check1:=1;
end;
if (checkmonth.Checked=true) and (checkname.Checked=true) then
begin
check1:=2;
end;
if (checkmonth.Checked=true) and (checkbm.Checked=true) then
begin
check1:=3;
end;
   {else
   messagedlg('选择的查询方式的条件不符合系统要求,请重新选择.',mtwarning,[mbyes],0);
   checkmonth.Checked:=false;
   checkname.Checked:=false;
   checkbm.Checked:=false;
   end
  end; }

with dmrsgl.ygkqtbqry do     //按条件查询获得数据
begin
if check1=1 then //判断查询条件方式
begin
  if cmbmonth.Text='1' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,onemonth 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:='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');
  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');
  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');
  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');
  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');
  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');
  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');
  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:='eightmonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end;
  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;
  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:='ninemonth';
  QuickRep1.Preview;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);