做一個統(tǒng)計報表.doc

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