可以用QRLable,然后分别赋值
with QReort1do
begin
QRLNo.Caption:=Tquery.FieldByName('empNo').value;
QRLName.Caption:=Tquery.FieldByName('Ename').value;
QRLtotal.Caption:=Tquery.FieldByName('HoursT').value;
QRLDptName.Caption:=Tquery.FieldByName('dptName').value;
QRLDptNo.Caption:=Tquery.FieldByName('dptNo').value;
QRLy.Caption:=copy(datetostr(now()),1,4);
QRLm.Caption:=copy(datetostr(now()),6,2);
QRLd.Caption:=copy(datetostr(now()),9,2);
Preview;
end;