---- 首先,建立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数据库中填入以下信息。
&lt;br&gt;<br>在unit1中添加一个过程PreparePrint;&lt;br&gt;<br>&lt;br&gt;<br>procedure TForm1.PreparePrint&lt;br&gt;<br>; var LeftValue:integer; &lt;br&gt;<br>aLabel : TQRLabel;&lt;br&gt;<br>aText:TQRDBText; &lt;br&gt;<br>begin LeftValue:=100;&lt;br&gt;<br>with Form2 do&lt;br&gt;<br>begin aLabel := TQRLabel.Create(Form2); '设置标题 &lt;br&gt;<br>aLabel.Parent := TitleBand1;&lt;br&gt;<br>with aLabel do &lt;br&gt;<br>begin Width:=300;&lt;br&gt;<br>Height:=TitleBand1.Height;&lt;br&gt;<br>Alignment:=taCenter;&lt;br&gt;<br>Caption := Edit1.Text;&lt;br&gt;<br>end;&lt;br&gt;<br>Table1.Open; &lt;br&gt;<br>Table2.Open;&lt;br&gt;<br>Table2.First;&lt;br&gt;<br>while not Table2.EOF &lt;br&gt;<br>do begin&lt;br&gt;<br>aLabel := TQRLabel.Create(Form2); ’设置显示字段标题 &lt;br&gt;<br>aLabel.Parent := HeaderBand1;&lt;br&gt;<br>with aLabel do &lt;br&gt;<br>begin AutoSize:=False;&lt;br&gt;<br>AutoStretch:=True;&lt;br&gt;<br>Left :=LeftValue; &lt;br&gt;<br>Top := 0; &lt;br&gt;<br>Width:=80; &lt;br&gt;<br>Height:=HeaderBand1.Height;&lt;br&gt;<br>Alignment:=taCenter;&lt;br&gt;<br>Caption := ' '+table2.FieldbyName( 'DisplayName').AsString+' ';&lt;br&gt;<br>end;&lt;br&gt;<br>aText := TQRDBText.Create(Form2); '设置显示字段内容 &lt;br&gt;<br>aText.Parent := DetailBand1;&lt;br&gt;<br>with aText do &lt;br&gt;<br>begin AutoSize:=False; &lt;br&gt;<br>AutoStretch:=True;&lt;br&gt;<br>Height:=DetailBand1.Height;&lt;br&gt;<br>DataSet:=Table1;&lt;br&gt;<br>DataField:=Table2.FieldbyName( 'FieldsName').AsString;&lt;br&gt;<br>Alignment:=taCenter; &lt;br&gt;<br>end;&lt;br&gt;<br>LeftValue:=LeftValue+80;&lt;br&gt;<br>Table2.Next;&lt;br&gt;<br>end; &lt;br&gt;<br>end;&lt;br&gt;<br>end;