var
L: TQRLabel;
T: TQRDBText;
begin
L:=TQRLabel.Create(ColumnHeaderBand1);
L.Parent:=QRDetail.Bands.ColumnHeaderBand;
L.Top:=iTop;
L.Left:=iLeft;
L.Height:=17;
L.Name:='QS'+IntToStr(i);
L.Caption:=Fields[i].DisplayLabel;
L.Width:=Fields[i].DisplayWidth*8; T:=TQRDBText.Create(DetailBand1);
T.Parent:=QRDetail.Bands.DetailBand;
T.Top:=iTop-4;
T.Left:=iLeft;
T.Height:=17;
T.Transparent:=true;
T.DataSet:=QRDetail.DataSet;// ClientDataSet;
T.DataField:=Fields[i].FieldName;
T.Width:=Fields[i].DisplayWidth*8;end;
L: TQRLabel;
T: TQRDBText;
begin
L:=TQRLabel.Create(ColumnHeaderBand1);
L.Parent:=QRDetail.Bands.ColumnHeaderBand;
L.Top:=iTop;
L.Left:=iLeft;
L.Height:=17;
L.Name:='QS'+IntToStr(i);
L.Caption:=Fields[i].DisplayLabel;
L.Width:=Fields[i].DisplayWidth*8; T:=TQRDBText.Create(DetailBand1);
T.Parent:=QRDetail.Bands.DetailBand;
T.Top:=iTop-4;
T.Left:=iLeft;
T.Height:=17;
T.Transparent:=true;
T.DataSet:=QRDetail.DataSet;// ClientDataSet;
T.DataField:=Fields[i].FieldName;
T.Width:=Fields[i].DisplayWidth*8;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货