Delphi程序执行时实时生成报表

日期：2008年2月25日作者：查看:[大字体中字体小字体]

end;
CrtRep.Enabled:=False;//禁上生成按钮
BtnPrint.Enabled:=not CrtRep.Enabled;允许打印铵钮
BtnPrview.Enabled:=BtnPrint.Enabled;允许预览按钮
if Tj1.Checked then begin //如果建立了页脚带区,则将页脚带区中前两列更改
    FBNAME[0].Expression:=''页合计'';
    FBNAME[1].Expression:='COUNT+'行'';
end;
if Tj1.Checked then begin //如果建立了总和带区,则将总和带区中前两列更改
    SumNAME[0].Expression:=''总计'';
    SumNAME[1].Expression:='COUNT+'行'';
end;
//调整列标头带区中的日期及页码打印位置
QRE2.Left:=HB.Width-Qre2.Width;
QRSQL.Left:=QRE1.Width+10;
QRSQL.Width:= QRE2.Left-10-QRSQL.Left;
QuickRep.DataSet:=Query; //为QuickRep指定数据集,该句一定不能少
Screen.Cursor:=crDefault;
end;

procedure TPrintForm.ClearRep();//清除生成报表格式时建立的控件
Var
I:Byte;
begin
For I:=0 to Query.FieldCount-1 do begin
    if Assigned(CHBShape[I]) then begin CHBShape[I].Free;CHBShape[I]:=nil;end;
    if Assigned(CHBNAME[I]) then begin CHBNAME[I].Free;CHBNAME[I]:=nil;end;
    if Assigned(DBShape[I]) then begin DBShape[I].Free;DBShape[I]:=nil;end;
    if Assigned(DBNAME[I]) then begin DBNAME[I].Free;DBNAME[I]:=nil;end;
    if Assigned(FBShape[I]) then begin FBShape[I].Free;FBShape[I]:=nil;end;
    if Assigned(FBNAME[I]) then begin FBNAME[I].Free;FBNAME[I]:=nil;end;
    if Assigned(SumShape[I]) then begin SumShape[I].Free;SumShape[I]:=nil;end;
    if Assigned(SumNAME[I]) then begin SumNAME[I].Free;SumNAME[I]:=nil;end;
end;
end;

procedure TPrintForm.SRClick(Sender: TObject);
begin
if Sr.Checked then QrSQL.Caption:=CXTJ else QRSQL.Caption:=';
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] 下一页
Delphi程序执行时实时生成报表相关文章：
·Fireworks教程液体金属表面特效制作
·多个CSS样式表争夺特定选择符的控制权
·HTML表格标记：行的水平对齐属性ALIGN
·纯CSS制作的新闻网站中的文章列表
·Illustrator绘制精美三维图表实例
·Excel表格页码设置打印输出更直观
·经典：交换机故障检测检查表
·QQ会员成长体系介绍及成长值换算参照表
·sqlldr加载数据到不同表的问题
·下载：MSN微软官方圣诞表情包
Delphi程序执行时实时生成报表相关软件
·火影忍者必杀技表演秀
·《文明4》官方科技树图表
·图片欣赏-世界名表欣赏
·万用表应用技巧
·历代CPU最全明细参数表
·心理自测表
·中国地方菜系及代表菜
·注册表结构
·用图表说话
·化学元素周期表

上一篇:Delphi中串行通信的实现

下一篇:Delphi的压缩流与解压流

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

Delphi程序执行时实时生成报表

精品推荐

热点TOP10

特别推荐