Qreport报表设计的心得

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

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

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

           例如:

ContractedBlock.gif ExpandedBlockStart.gif 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的设计,有几种字体字形,内容边距,单元格内容布局,

转载于:https://www.cnblogs.com/gaiyang/archive/2011/03/22/1991003.html

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值