請問QuickReport如何達到下列效果? |
答題得分者是:sos_admin
|
ying0515
中階會員 發表:90 回覆:168 積分:81 註冊:2003-01-04 發送簡訊給我 |
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
引言:參考這篇文章http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29503 有問題再問吧…請問QuickReport如何達到下列效果? buy1 qty1 pro qty2 b001 100 a01 10 b001 100 a02 20 b001 100 a03 30 印出成下列 buy1 qty1 pro qty2 b001 100 a01 10 a02 20 a03 30Delphi follower
------
~小弟淺見,參考看看~ |
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
说一个简单的方法吧! 比如:
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, DB, ADODB, QuickRpt, ExtCtrls, StdCtrls; type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
TitleBand1: TQRBand;
ColumnHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
ADOQuery1: TADOQuery;
QRLabel3: TQRLabel;
QRDBText2: TQRDBText;
Button1: TButton;
DetailBand1: TQRBand;
QRDBText1: TQRDBText;
QRLabel2: TQRLabel;
procedure Button1Click(Sender: TObject);
procedure DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
str:string;
implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview ;
end;
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if adoquery1.FieldByName('namex').AsString=str then
QRLabel2.Caption:=''
else
begin
str:=adoquery1.FieldByName('namex').AsString;
QRLabel2.Caption :=str;
end;
end;
end. 用QRLabel2实现,如上!参考看看,可以实现的我刚试验过的~
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |