新建 文本文档.txt

delphi 考勤系统 没事做写的 在其他地方也能找到

procedure TQuickReport4.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  t:string;
  num:integer;
begin
  //data1.chucai.Locate('员工号',VarArrayOf([strtoint(qrdbtext6.Caption )]),[]);
  //data1.chucai.FindKey([strtoint(qrdbtext6.Caption )]);
  //if data1.chucai.Eof then
  //qlbl1.Caption :=''
  //else           qrdbtext6.Caption
  //num := QRBand1.
  num := data1.renyuan1.FieldByName('员工号').AsInteger;
  if not data1.chucai.Active then data1.chucai.Open ;
  if data1.chucai.Locate('员工号',num,[])then
  t:=data1.chucai.FieldValues ['出差开始时间']
  else
  t:='';
  qlbl1.Caption :=inttostr(num)+t+qrdbtext6.Caption;
  data1.renyuan1.Next;// data1.chucai.FieldValues['出差开始时间'];
  if data1.renyuan1.Eof then data1.renyuan1.First ;
end;