quickreport相关

数据库字段多行显示：

用  TQRDBRichText   只支持   BLOB   字段类型，保证没有问题。      
如果字段类型是   CHAR/VARCHAR   类型，就不能用   TQRDBRichText   ，必须用没有“DB”的  
TQRRichText，在   Band   的   BeforePrint   事件给   TQRRichText   值：     
void   __fastcall   TForm1::DetailBand1BeforePrint(TQRCustomBand   *Sender,  
              bool   &PrintBand)  
  {  
      QRRichText1->Lines->Clear();  
      QRRichText1->Lines->Add(Table1->FieldByName("FIELDNAME")->AsString);  
  } 

==================================================================================

显示  当前XX页/一共XX页

 QuickRep1.Prepare;
 QRLabel1.Caption:='当前 '+inttostr(QuickRep1.QRPrinter.PageCount)+' 页/一共 '+inttostr(QuickRep1.QRPrinter.Pagenumber)+' 页';
 QuickRep1.Preview;