Excel2000：用Delphi自動生成報表

2008-05-21 03:17:03  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大

 

　　摘 要：Excel是當前最流行的數據報表制作工具。本文介紹如何使用Delphi來控制Excel完成數據庫與報表之間的數據交換，討論了報表制作工程中的一些細節性問題。
　　關鍵字：Delphi，Excel，報表
　　引言
　　數據報表作爲企事業單位上報和下達的重要信息載體，隨著信息化建設的不斷推進，在實際的工作中得到了前所未有的應用。因此，數據報表已經成爲管理信息系統中重要的一項功能，並且，由于數據的多樣性和統計信息的增加，數據報表的系統實現變得越來越複雜。
　　Delphi是一個高效的可視化數據庫管理信息系統開發工具，.但是Delphi開發環境中提供的報表控件在制作複雜報表時顯得不夠理想，不管是以前版本提供的Quick Report控件組，還是Delphi 7提供的Rave控件組，都不能讓用戶對生成的報表進行改動，且程序控制很難實現。Excel作爲現代辦公常用的電子表格制作工具，以它的易操作性和實用性，得到了各行業辦公人員的青睐。本文根據實際應用實踐，介紹利用Delphi編程控制Excel生成報表的各種方法。
　　Delphi控制Excel的方法
　　1 創建Excel文件
　　要在Delphi中控制Excel，就必須用到OLE自動化。現在一般采用OLE2來創建OLE對象，當激活一個OLE對象時，服務器程序僅在容器程序內部激活，這就是所謂的「就地激活」(in-place activation)。
　　創建Excel文件時，先創建一個OLE對象，然後在對象中建立工作表worksheet，如函數createExcel所示：
　　function createExcel:variant;
　　var
　　v:variant;
　　sheet:variant;
　　begin
　　v:=createoleobject('Excel.Application');//創建OLE對象
　　v.visible:=true;
　　v.workbooks.add(-4167); //添加工作表
　　v.workbooks[1].sheets[1].name:='test';
　　sheet:=v.workbooks[1].sheets['test'];
　　return v;
　　end;
　　2 數據表格控制
　　Excel表格的控制，主要包括數據的導入、修改；單元格的合並、邊框的控制；表格的複制、粘貼等。當報表格式一定的情況下，表格的複制、粘貼顯得尤爲重要，這樣，可以先制作一個文件模板，然後按照實際需要輸出多頁報表即可。
　　(1)數據的導入(importData)
　　procedure importData;
　　var
　　I,j:integer;
　　v:variant;
　　begin
　　v:=createExcel; //創建Excel文件test
　　for I:=0 to maxcolumn do
　　begin
　　for j:=0 to maxrow do
　　v.workbooks[1].sheets[1].cells[I,j]:=I*j; //導入數據
　　end;
　　end;
　　(2)單元格的合並、邊框的控制(lineStylecontrol)
　　單元格的合並，是在選定合並範圍的情況下進行的。邊框控制可以操作邊框線條的是否顯示。其他方式的控制，可以仿照下面過程進行。
　　procedure lineStylecontrol;
　　var
　　v,sheet,range:variant;
　　begin
　　v:=createExecl;
　　sheet:= v.workbooks[1].sheets[1];
　　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//選定表格
　　range.select;
　　range.merge; //合並單元格
　　range.borders.linestyle:=xlcontinuous; //置邊框線可見
　　range.font.size:=9; //改變表格內文本字體大小
　　end;

 

　　摘 要：Excel是當前最流行的數據報表制作工具。本文介紹如何使用Delphi來控制Excel完成數據庫與報表之間的數據交換，討論了報表制作工程中的一些細節性問題。 　　關鍵字：Delphi，Excel，報表 　　引言 　　數據報表作爲企事業單位上報和下達的重要信息載體，隨著信息化建設的不斷推進，在實際的工作中得到了前所未有的應用。因此，數據報表已經成爲管理信息系統中重要的一項功能，並且，由于數據的多樣性和統計信息的增加，數據報表的系統實現變得越來越複雜。 　　Delphi是一個高效的可視化數據庫管理信息系統開發工具，.但是Delphi開發環境中提供的報表控件在制作複雜報表時顯得不夠理想，不管是以前版本提供的Quick Report控件組，還是Delphi 7提供的Rave控件組，都不能讓用戶對生成的報表進行改動，且程序控制很難實現。Excel作爲現代辦公常用的電子表格制作工具，以它的易操作性和實用性，得到了各行業辦公人員的青睐。本文根據實際應用實踐，介紹利用Delphi編程控制Excel生成報表的各種方法。 　　Delphi控制Excel的方法 　　1 創建Excel文件 　　要在Delphi中控制Excel，就必須用到OLE自動化。現在一般采用OLE2來創建OLE對象，當激活一個OLE對象時，服務器程序僅在容器程序內部激活，這就是所謂的「就地激活」(in-place activation)。 　　創建Excel文件時，先創建一個OLE對象，然後在對象中建立工作表worksheet，如函數createExcel所示： 　　function createExcel:variant; 　　var 　　v:variant; 　　sheet:variant; 　　begin 　　v:=createoleobject('Excel.Application');//創建OLE對象 　　v.visible:=true; 　　v.workbooks.add(-4167); //添加工作表 　　v.workbooks[1].sheets[1].name:='test'; 　　sheet:=v.workbooks[1].sheets['test']; 　　return v; 　　end; 　　2 數據表格控制 　　Excel表格的控制，主要包括數據的導入、修改；單元格的合並、邊框的控制；表格的複制、粘貼等。當報表格式一定的情況下，表格的複制、粘貼顯得尤爲重要，這樣，可以先制作一個文件模板，然後按照實際需要輸出多頁報表即可。 　　(1)數據的導入(importData) 　　procedure importData; 　　var 　　I,j:integer; 　　v:variant; 　　begin 　　v:=createExcel; //創建Excel文件test 　　for I:=0 to maxcolumn do 　　begin 　　for j:=0 to maxrow do 　　v.workbooks[1].sheets[1].cells[I,j]:=I*j; //導入數據 　　end; 　　end; 　　(2)單元格的合並、邊框的控制(lineStylecontrol) 　　單元格的合並，是在選定合並範圍的情況下進行的。邊框控制可以操作邊框線條的是否顯示。其他方式的控制，可以仿照下面過程進行。 　　procedure lineStylecontrol; 　　var 　　v,sheet,range:variant; 　　begin 　　v:=createExecl; 　　sheet:= v.workbooks[1].sheets[1]; 　　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//選定表格 　　range.select; 　　range.merge; //合並單元格 　　range.borders.linestyle:=xlcontinuous; //置邊框線可見 　　range.font.size:=9; //改變表格內文本字體大小 　　end;