主題:我想做一個統計報表？如何做比較簡單？我想做一個統計報表，對多個相關表進行統計，統計出結果后，然后進行打印。數據量很大，請問如何實現，速度比較快，而且打印也比較方便做？ 問題點數：50、回復次數：2回復:我想做一個統計報表？如何做比較簡單？1一般做報表沒什么大的區別，都是把sql寫出來，作為數據集呀，以前我用fastreport,現在改用reportmachine，還可以，至于數據我認為報表工具間沒太大區別吧?；貜?我想做一個統計報表？如何做比較簡單？2功能更加強勁，增加多行表頭的功能，新增更多事件，加強了打印期間對報表樣式 的控制，可隨意改變打印內容。 下載地址：/cnshare/soft/15/15471.shtm reprint 使用說明 本控件可打印 datasource,dbgrid,stringgrid. 一 、控件屬性： 1、colstitle 設置報表的列標題屬性 (1) Print:boolean;是否打印 (2) Font:tfont;字體 (3) Rowsline:tpen;橫線樣式 (4) Colsline:tpen;豎線樣式 (5) Alignment:talignment;對齊方式 (6) Rowspace:integer;行間距 (7) EveryPage:boolean;是否每頁打印 (8) EveryRow:boolean;是否每行打印 (9) titlearray:tstrings;怎加標題組 (使用方法見附帶demo) (10) rows:integer;設置默認列標題打印行數 2、datasource 綁定 datasource 3、dbgrid 綁定 dbgrid 4、stringgrid 綁定 stringgrid PrintObject 選擇打印的對象(datasource 、dbgrid、 stringgrid ) 5、pagefooter 頁腳 pageheader 頁眉 (1) Text:string;內容 (2) Font:tfont;字體 (3) Print:boolean;是否打印 (4) Alignment:talignment;對齊方式 6、detail 設置要打印的明細數據屬性 (1)arrange 設置明細字段排列方向 Horizontal 橫向打?。J的一般打印） Vertical 豎向打?。ㄗ侄呜Q向排列適合打印字段內容較長的報表如“會議紀錄”） (2)aotureturn 打印明細字段時，如果字段超過列的寬度是否允許自動換行 (3)colsline 設置豎線屬性引用tpen類 (4)footer 設置明細尾 （設置同pagefooter 頁腳 pageheader 頁眉） (5)frame 設置明細邊框屬性引用tpen類 (6)head 設置明細頭（設置同pagefooter 頁腳 pageheader 頁眉） (7)rowsline 設置橫線屬性引用tpen類 (8)rowspace 設置明細行的高度 (9)top 明細與標題的距離 (10)Alignment對齊方式 7、page 設置紙張 (1) leftmargin:real;左邊距 (2) rightmargin:real;右邊距 (3) topmargin:real;頂邊距 (4) bottommargin:real;底邊距 (5) pagesize:TPageSize;紙張類型 (6) Height:real;高度 (7) width:real;寬度 (8) Orientation:TPrinterOrientation;打印方向 注意：設置紙張的寬度和高度需把pagesize設為Custom 8、title 設置標題 (1) Print:boolean; 是否打印 (2) Text:tstrings; 內容可設置多行 (3) Font:tfont;字體 (4) Alignment:talignment;對齊方式 (5) top:integer; 距紙張頂部距離 (6) Rowspace:integer;行距 (7) EveryPage:boolean;是否每頁打印 二 、控件方法： (1) preview 預覽 (2) print 打印 (3) SaveToFile() 保存為報表文件 (4) SaveToStream() 保存為流（然后就可把整個報表存到數據庫了很方便哦! _） (5) PrintFile() 打印報表文件 (6) PrintStream() 打印流（流的數據庫存取就不用多說了吧） (7) PreviewFile() 預覽文件 (8) PreviewStream() 預覽流 (9) OptionToStream() 報表的屬性保存為流 (10) OptionFromStream() 從流中得到報表屬性 (11) OptionPost()在打印期間改變了報表屬性，要想立即生效調用此方法。 (12) PaintText(Text:string) 覆蓋原有打印的字符，一般在能返回當前打印的內容的事件中使用。（見控件事件） 三、 控件事件： (1) AfterPrint 打印后 (2) BeforePrint 打印前 (3) OnPrintDetail(RecordNumber: Integer)在打印每一欄明細前觸發此事件， 返回參數：RecordNumber返回當前打印行數。 (4) OnPrintDetailField(RecordNumber,FieldIndex: Integer; FieldText: String); 在打印明細的每個字段都會觸發此事件。 返回參數：RecordNumber返回當前打印行數。 FieldIndex 字段索引 FieldText字段內容 (5) OnPrintTitle(Row: Integer; Text: String)打印每行標題都會觸發此事件。 返回參數：row當前打印的行 Text當前打印的內容 (6) OnPrintColsTitleField(Row, FieldIndex: Integer; FieldName: String); 打印列標題字段時觸發此事件 返回參數：row當前打印的行 FieldIndex當前打印的字段索引 FieldName當前打印的字段名稱 (7) OnPrintColsTitle(Row: Integer) 打印每行列標題時觸發此事件 返回參數：row當前打印的行 四、注意事項 (1) text 屬性，輸入“|#|”打印頁碼值，如果想打印頁碼可輸入“第|#|頁” 輸入“|RecordCount|”