注意:1.因为报表上会用到很多QRLabel ,QRshape控件,因为要注意分组区别命名,比如横向的QRshape与纵向的QRshape

          要区分一下,方便查找和统一定制样式。

         2.添加的报表控件一定要放在合适的位置,否则就预览出错了,要在Object TreeView中看下是否在正确的包含下。
         3.用代码为控件caption,name赋值

           例如:

View Code
procedure TFrmrsglrp1.FormCreate(Sender: TObject);
var
n,m:integer;
Q:
array[1..5,1..6] of TQRLabel;
W:
array[1..5,1..5] of TQRLabel;
E:
array[1..6,1..5] of TQRLabel;

begin
Q[
1,1] := Q11; Q[1,2] := Q12; Q[1,3] := Q13; Q[1,4] := Q14; Q[1,5] := Q15; Q[1,6] := Q16;
Q[
2,1] := Q21; Q[2,2] := Q22; Q[2,3] := Q23; Q[2,4] := Q24; Q[2,5] := Q25; Q[2,6] := Q26;
Q[
3,1] := Q31; Q[3,2] := Q32; Q[3,3] := Q33; Q[3,4] := Q34; Q[3,5] := Q35; Q[3,6] := Q36;
Q[
4,1] := Q41; Q[4,2] := Q42; Q[4,3] := Q43; Q[4,4] := Q44; Q[4,5] := Q45; Q[4,6] := Q46;
Q[
5,1] := Q51; Q[5,2] := Q52; Q[5,3] := Q53; Q[5,4] := Q54; Q[5,5] := Q55; Q[5,6] := Q56;
for n:=1 to 5 do
begin
for m:=1 to 6 do
begin
Q[n,m].Caption :
= '';
end;
end;

W[
1,1] := W11; W[1,2] := W12; W[1,3] := W13; W[1,4] := W14; W[1,5] := W15;
W[
2,1] := W21; W[2,2] := W22; W[2,3] := W23; W[2,4] := W24; W[2,5] := W25;
W[
3,1] := W31; W[3,2] := W32; W[3,3] := W33; W[3,4] := W34; W[3,5] := W35;
W[
4,1] := W41; W[4,2] := W42; W[4,3] := W43; W[4,4] := W44; W[4,5] := W45;
W[
5,1] := W51; W[5,2] := W52; W[5,3] := W53; W[5,4] := W54; W[5,5] := W55;
for n:=1 to 5 do
begin
for m:=1 to 5 do
begin
W[n,m].Caption :
= '';
end;
end;

E[
1,1] := E11; E[1,2] := E12; E[1,3] := E13; E[1,4] := E14; E[1,5] := E15;
E[
2,1] := E21; E[2,2] := E22; E[2,3] := E23; E[2,4] := E24; E[2,5] := E25;
E[
3,1] := E31; E[3,2] := E32; E[3,3] := E33; E[3,4] := E34; E[3,5] := E35;
E[
4,1] := E41; E[4,2] := E42; E[4,3] := E43; E[4,4] := E44; E[4,5] := E45;
E[
5,1] := E51; E[5,2] := E52; E[5,3] := E53; E[5,4] := E54; E[5,5] := E55;
E[
6,1] := E61; E[6,2] := E62; E[6,3] := E63; E[6,4] := E64; E[6,5] := E65;
for n:=1 to 6 do
begin
for m:=1 to 5 do
begin
E[n,m].Caption :
= '';

end;
end;
end;
4.做报表前先整体看下布局,有几行几列来控制QRshape的设计,有几种字体字形,内容边距,单元格内容布局,
posted on 2011-03-22 09:53  cnby  阅读(1460)  评论(0编辑  收藏  举报