• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

在Delphi中实现数据分析模块的动态报表_Delphi

Delphi 搞代码 3年前 (2018-08-09) 197次浏览 已收录 0个评论

  一、问题的提出

—- Delphi作为强大的数据库开发工具,正被愈来愈多的编程人员所采用,"聪明的程序员用Delphi"更形象生动的道出广大程序员的心声,但这并不意味着所有功能的实现都非常容易,例如,笔者在开发军队的某个信息系统中,就在为数据分析模块中DecisionGrid1控件的数据进行报表输出时走了不少的弯路。广大的Delphi的爱好者在今后的学习或工作中也有可能会遇到类似的问题,而在许多参考书中,很少有甚至没有关于它们的解决方法,于是,我想花费一点时间把它整理出来,以供大家参考。本文中报表动态生成的公用模块具有很大的灵活性和易操作性,其中的思路、实现的功能和通用性等方面的优缺点就由大家看了本文后自有定论。

二、建立报表的动态输出公用模块

—- 下面,结合公司人事管理信息系统说明其实现的方法和技术。

—- 1、基本思路:首先从DecisionGrid1中获得报表所需数据,放到二维数组PA中,然后在C:/DataWork中动态创建一个数据表tjb.dbf,存放报表数据,最后用T able1与tjb.dbf相连接,以后工作就与一般的动态输出报表(如查询报表)相类似,在这里我就无须赘述了。

http://www.gaodaima.com/?p=65762在Delphi中实现数据分析模块的动态报表_Delphi

—- 2、建立窗体文件:放入六个用于数据分析的常用控件DecisionQuery1、DecisionSource1、DecisionCube1、DecisionGraph1、DecisionPivot1、DecisionGrid1,设置DecisionSource1的decisionCube属性为decisionCube1,decisionCube1的Dataset属性为decisionQuery1、decisionQuery1的DatabaseName属性为c:/datawork;一个Table1控件,用于连接数据表tjb.dbf;一个QuickRep1控件,用于数据的报表输出;两个Button1和Button2控件,其Caption分别设为"报表输出"和"返回"。分别设置decisionCube1的Dataset属性为decisionQuery1、decisionQuery1的DatabaseName属性为c:/datawork.。

—- 3、单元文件的主要控件代码 Button1控件的代码如下(定义变量部分略),主要分以下8个功能块来加以说明:

—- ⑴删除同名或上一次建立的数据表

if FileExists(‘c:/DataWork/tjb.dbf’) then
deletefile(‘c:/ DataWork /tjb.dbf’);

—- ⑵根据DecisionGrid1控件的cells属性,获得报表所需数据,并将其默认的’Sum’值汉化成’总计’、’合计’、’小计’以符合汉语的习惯要求,所求得的数据存放于二维数组PA中
for i:=1-DecisionGrid1.FixedCols to DecisionGrid1.
ColCount-DecisionGrid1.FixedCols-1 do
for j:=0-DecisionGrid1.FixedRows to DecisionGrid1.
RowCount-DecisionGrid1.FixedRows-1 do
begin
pa[i,j]:=DecisionGrid1.cells[i,j];
//处理DecisionGrid1控件中固定列的值为’Sum’的数据项
if ((i=1-DecisionGrid1.fixedcols) and (pa[i,j]=’Sum’)) then
pa[i,j]:=’总 计’
else if ((i = -1) and (pa[i,j]=’Sum’)) then
pa[i,j]:=’小 计’
else if ((i<-1) and (i>1-DecisionGrid1
.FixedCols) and (pa[i,j]=’Sum’)) then
pa[i,j]:=’合 计’;
//处理DecisionGrid1控件中固定行的值为’Sum’的数据项
if (pa[i,j]=’Sum’ ) and (j=-1) then
pa[i,j]:=’总 计’;
end;

—- ⑶用T able1动态创建数据表tjb.dbf
Table1.Active:=false;
with Table1 do
begin
DatabaseName := ‘c:/DataWork’;
TableName := ‘tjb’;
TableType := ttDBase;
with FieldDefs do
begin
Clear;
for i:=1 to 40 do
Add(IntToStr(i),ftString,30, False);
end;
CreateTable;
end;
//下面将DecisionGrid1控件中的数据放入数据表中
Table1.Active:=true;
for j:=1-DecisionGrid1.FixedRows to DecisionGrid1
.RowCount-DecisionGrid1.FixedRows-1 do
begin
K:=0;
Table1.Insert;
for i:=1-DecisionGrid1.FixedCols to DecisionGrid1
.ColCount-DecisionGrid1.FixedCols-1 do
begin
Table1.Fields[K].AsString:=pa[i,j];
K:=K+1;
end;
Table1.Post;
Table1.Next;
end;

—- ⑷下面代码确定输出报表的每列宽度
SetLength(M,DecisionGrid1.ColCount);//动态设置数组
copy(M,1-DecisionGrid1.FixedCols,DecisionGrid1
.ColCount-DecisionGrid1.FixedCols-1);
//重新设置动态数组的起始位置
for i:=1-DecisionGrid1.FixedCols to DecisionGrid1
.ColCount-DecisionGrid1.FixedCols-1 do
begin
M[i]:=0;
for j:=1-DecisionGrid1.FixedRows to DecisionGrid1
.RowCount-DecisionGrid1.FixedRows-1 do
IF M[i]< Length (Trim (PA[I,J]))*8 THEN
M[i]:= Length (Trim (PA[I,J]))*8;
end;

—- ⑸如果要求输出报表的列宽相同(除DecisionGrid1控件的固定列,下同),可将数据项的最大列宽作为输出报表的列度,如果不要求,可跳过下面代码
max:=0;
for i:=0 to DecisionGrid1.ColCount
-DecisionGrid1.FixedCols-1 do
if m[i]>max then
max:=m[i];
for i:=0 to DecisionGrid1.ColCount
-DecisionGrid1.FixedCols-1 do
m[i]:=max;
ZK:=0;//报表总宽
for i:=1-DecisionGrid1.FixedCols to DecisionGrid1
.ColCount-DecisionGrid1.FixedCols-1 do
ZK:=ZK+M[i]+1;

—- ⑹判断报表的宽度,超宽?横向报表?还是纵向报表?
if ZK>1123 then
begin
Application.MessageBox(‘报表超宽,
请调整再输出!’,’警告’, 1);//输出对话框
exit;
end
else if ZK>794 then
QuickRep.Page.Orientation:=poLandscape //横向
else
QuickRep.Page.Orientation:=poPortrait;//纵向

—- ⑺以下代码完成了动态数据报表,与一般的动态输出报表功能相类似,
for i:=1 to QuickRep.Bands.TitleBand.
ControlCount DO//取消系统对控件的控制,下同
QuickRep.Bands.TitleBand.RemoveControl
(QuickRep.Bands.TitleBand.Controls[0]);
for i:=1 to QuickRep.Bands.DetailBand.ControlCount DO
QuickRep.Bands.DetailBand.RemoveControl
(QuickRep.Bands.DetailBand.Controls[0]);
SetLength(QRShape,DecisionGrid1.ColCount)
; //动态设置数组
SetLength(QRDBText, DecisionGrid1.ColCount)
; //动态设置数组
K:=0;//动态生成对象的数,
Lx:=(QuickRep.Width-ZK)DIV 2;//生成对象的左坐标
//报表的动态生成
For j:=1-DecisionGrid1.FixedCols to DecisionGrid1
.ColCount-DecisionGrid1.FixedCols-1 do
begin
QRShape[K]:=TQRSHAPE.Create(tj1);//自定义对象的创建(下同)
QRShape[K].Parent:=QuickRep.Bands
.DetailBand;// 自定义对象的父类对象(下同)
QRDBText[K]:=TQRDBText.Create(tj1);
QRDBText[K].parent :=QuickRep.Bands.DetailBand;
QRShape[K].LEFT:=Lx;//生成对象的左坐标
QRShape[K].WIDTH:=M[J]+2; //生成对象的宽度
QRShape[K].HEIGHT:=QuickRep.Bands
.DetailBand.Height+1; //生成对象的高度
QRShape[K].TOP:=-1; //生成对象的纵坐标
QRDBText[K].WIDTH:=QRShape[K].WIDTH-10;
QRDBText[K].Left :=QRShape[K].LEFT+1;
QRDBText[K].HEIGHT:=QRShape[K].Height div 2;
QRDBText[K].Top :=QRDBText[K]
.Height div 2+QRShape[K].Top;
QRDBText[K].AutoSize:=false;
QRDBText[K].Alignment:=taCenter; //生成对象居中
QRDBText[K].DataSet:=Table1;
QRDBText[K].DataField:=IntToStr(k+1);
Lx:=Lx+M[J]+1;
Inc(k);
end;
//动态生成报表的标题
Caption := TQRLabel.Create(tj1);
Caption.Parent := QuickRep.Bands.TitleBand;
Caption.Alignment:=taCenter;//标题居中
Caption.Width:= Length (Trim (ptitle))*8; //标题的宽度
Caption.Left:=(QuickRep.Width-
Length (Trim (ptitle))*8)div 2; //标题的左坐标
Caption.Height:=QuickRep.Bands
.TitleBand.Height-1; //标题的高度
Caption.Top:= 0;
Caption.Caption:=ptitle; //标题的名称
,ptitle为调用该公用模块时的输入参数
QuickRep.DataSet:=Table1;
QuickRep.Preview;
⑻动态生成对象的内存释放
k:=0;
for j:=1-DecisionGrid1.FixedCols to DecisionGrid1
.ColCount-DecisionGrid1.FixedCols-1 do
begin
QRShape[K].Free;
QRDBText[K].Free;
inc(k);
end;
Caption.Free;
Table1.Active:=false;//关闭数据表
end;

—- 以上程序是在Delphi 4.0中调试通过,其数据文件应放在C:/DataWork,类型为DB或DBF。
三、应注意以下几个问题

—- 1、QuickRep1的Bands中的HasColumnHeader、HasDetail、HasTitle三个属性必须设置为true;

—- 2、不能忘记公用模块中QuickRep对象的DataSet属性设置,即源代码中的QuickRep.DataSet:=Table1语句;

—- 3、动态生成组件的宽度计算必须放在定义其字体属性完成后进行;

—- 4、另外,动态数组给定的内存(即数组容量)以及指定动态数组的起始位置(不一定为0,根据DecisionGrid1控件的固定列确定)很重要,因为一方面当数据库很大时它会大大减少内存的消耗,另一方面便于操作该数组,大大增强了程序的灵活性和通用性。

—- 5、如果让QRDBText控件的数据居中,必须先设置其AutoSize属性为false,然后才能设置其Alignment属性为taCenter。这一点往往容易忽略,直接设置Alignment属性为taCenter,往往达不到数据居中的目的。

四、结束语

—- 当然,由于客户对数据报表的可能特殊要求,此公用模块或许不能完全解决。但是,作为公用模块,能实现实现代码的重复利用,提高我们开发程序的效率,当然可以在此模块的基础上进行一些修改或补充,以满足大多数用户的要求,用以下两点加以说明。

—- 1、如果要对数据表的字段进行动态选择输出,则可以将动态产生的数据表字段传递到另一个窗体进行输出选择,然后根据你所选择的字段进行报表输出,源程序几乎无须修改即可实现。

—- 2、若要改变数据分析的内容(即直方图的维)时,只须修改SQL语句即可,动态、静态均可,具体的操作也就无须我多言了。各位Delphi编程爱好者不妨一试。

欢迎大家阅读《在Delphi中实现数据分析模块的动态报表_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址