⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 编制的程序运行中动态制作报表 .htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<html>

<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
编制的程序运行中动态制作报表
</title>
<!--***********-->
</head>

<body bgcolor="#FFFFFF" >














<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
编制的程序运行中动态制作报表
</h2></font>
<h3>
上海
<br>陈春曦
</h3>
</center>
<p><font color="#ffffff">----</font>
Delphi中的quickreport是挪威的QuSoft AS公司专门为Delphi设计的用于制作报表的组件，具有很强的访问数据库的能力。但是，从我个人的使用经验来看，这个组件的帮助写的不够详尽，例程也不多。因而一般编程人员都是在设计期间设计好报表的所有格式，并在运行时连上数据源(即delphi中的dataset)运行程序的。显然，这种方法不具备很强的灵活性。在这里我想向大家介绍一种在程序运行时如何动态制作报表的方法。

<p><font color="#ffffff">----</font>
首先，建立form1；unit1（调用窗体），其中放入button1:caption为‘预览’，用以查看报表，再加入label1:caption为‘报表标题’;edit1用以接收用户输入的标题。再建立form2(放置quickreport元件的窗体),其中放入quickrep元件和三个qrband元件，其bandtype分别为rbTitle,rbColumnHeader,rbDetail.但其中无须放入qrlabel和qrdbtext元件，由程序中自动生成。再在form2；unit2中放入table1,table2。在databasename属性中填入数据库所在的Alias Name.在tablename中分别填入Goods,TableInformation.其中Goods中存放商品信息，可以设置以下字段:ID;Name;Unit;Price。TableInformation中的字段为TableName;    FieldsName; DisplayName数据库中填入以下信息。
<xmp>
————————————————————————
Goods         ID             商品编号
Goods         Name           商品名称
Goods         Price          商品单价
</xmp>
<font color="#ffffff">----</font>
好了，准备工作完成了一半，现在写入代码。在unit1的implementation下写入uses Unit2;在button1的click事件中写入以下代码：
<xmp>
  begin
   PreparePrint;
   with Form2 do
   begin
     Preview;
     Table1.Close;
     Table2.Close;
   end;
  end;

在unit1中添加一个过程PreparePrint；

procedure TForm1.PreparePrint;
var LeftValue:integer;
    aLabel : TQRLabel;
    aText:TQRDBText;
begin
  LeftValue:=100;
  with Form2 do
  begin
    aLabel := TQRLabel.Create(Form2); '设置标题
    aLabel.Parent := TitleBand1;
    with aLabel do
    begin
      Width:=300;
      Height:=TitleBand1.Height;
      Alignment:=taCenter;
      Caption := Edit1.Text;
    end;
    Table1.Open;
    Table2.Open;
    Table2.First;
    while not Table2.EOF do
    begin
      aLabel := TQRLabel.Create(Form2);
 ’设置显示字段标题
      aLabel.Parent := HeaderBand1;
      with aLabel do
      begin
        AutoSize:=False;
        AutoStretch:=True;
        Left :=LeftValue;
        Top := 0;
        Width:=80;
        Height:=HeaderBand1.Height;
        Alignment:=taCenter;
        Caption := ' '+table2.FieldbyName(
         'DisplayName').AsString+' ';
      end;
      aText := TQRDBText.Create(Form2); 
   '设置显示字段内容
      aText.Parent := DetailBand1;
      with aText do
      begin
         AutoSize:=False;
         AutoStretch:=True;
         Height:=DetailBand1.Height;
         DataSet:=Table1;
         DataField:=Table2.FieldbyName(
       'FieldsName').AsString;
         Alignment:=taCenter;
      end;
      LeftValue:=LeftValue+80;
      Table2.Next;
    end;
  end;
end;
</xmp>
<font color="#ffffff">----</font>
好了，运行程序可以看到报表预览的效果，显示了Goods中的ID,Name,Price。在运行时完全可以控制table1和table2中的数据内容。显示不同数据库的不同信息，改变table2中的记录顺序可改变报表中的显示顺序。而且，由于报表的各部分，甚至包括各band和system data均可在程序运行时依据上述方法动态生成。其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form Wizard一样的报表精灵，还可提供一个灵活而且强大的打印设置功能。

<p><font color="#ffffff">----</font>
以上代码在delphi3中运行通过。


 



<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small> 
<br>
</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -