Excel2000:用Delphi自動生成報表

摘 要: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;

在Delphi中動態生成QuickReport報表
----筆者在前一段使用Delphi開發數據庫的工作中,用戶提出了這樣一個需求:要根據自己的的查詢結果動態生成報表然後進行打印。幾經摸索,筆者使用動態生成QuickReport控件的方法滿足了用戶的需求。現將此方法說明如下...查看完整版>>在Delphi中動態生成QuickReport報表
 
自動生成--Delphi多層數據庫應用項目源代碼
當設計好數據庫後,開發Delphi多層數據庫應用項目有許多枯燥而重複的體力活要做,如放組件,命名(特別是給每個組件以及字段對象都取一個可讀的名字),關聯,.....等等, 我開發了一個代碼自動生成工具,自動生成應...查看完整版>>自動生成--Delphi多層數據庫應用項目源代碼
 
Delphi控制Excel2000
類 別:COM & ActiveX(一) 使用動態創建的方法首先創建 Excel 對象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 顯示當前窗口:ExcelApp.Visible := True;2) 更改 ...查看完整版>>Delphi控制Excel2000
 
Delphi 水晶報表打包解決
開發環境: Delphi6.0及水晶報表9.2 (程序中以Bde連接設計報表)打包工具: InstallShield Developer v8.02打包必備: Iinstallhields8.0 ...查看完整版>>Delphi 水晶報表打包解決
 
報表處理組件 BY DELPHI
本人傾精力,時間使用DELPHI開發了一套報表處理組件,適合各種軟件系統複雜的報表處理功能,尤其是其提供的報表編輯,打印預覽及數據導入接口等功能可以迅速滿足客戶提出的有關報表處理的各種需求。1.設計原則:1.1 ...查看完整版>>報表處理組件 BY DELPHI
 
asp生成excel報表
1. 前言 報表打印通常是管理信息系統中的一個重要模塊,而Excel憑借它功能強大、應用靈活、通用性強等的優勢在報表打印中獲得了廣泛的應用。 最初的管理信息系統基本上是采用客戶機/服務器(C/S)模式開發的,但隨著...查看完整版>>asp生成excel報表
 
使用JFreeReport生成報表
  報表生成一直是企業信息化過程中重要的一環,也是目前比較難于實現的一環,今天作者給大家介紹一種新的報表生成組件――JFreeReport。JFreeReport是JFreeReport.Org基于LGPL授權協議提供的一組Java包,用于生成各...查看完整版>>使用JFreeReport生成報表
 
使用JFreeReport生成報表
  報表生成一直是企業信息化過程中重要的一環,也是目前比較難于實現的一環,今天作者給大家介紹一種新的報表生成組件??JFreeReport。JFreeReport是JFreeReport.Org基于LGPL授權協議提供的一組java包,用于生成各類...查看完整版>>使用JFreeReport生成報表
 
詳解如何利用iText在JSP中生成PDF報表
  前久做了一個通過JSP生成PDF報表的小項目,算得上開了一次眼界。企業的一些信息通過網絡形成Html報表,雖然IE可以直接打印顯示在其中的內容,但是從界面上來看,如果直接將Html的顯示結果打印出來,顯得不太美觀...查看完整版>>詳解如何利用iText在JSP中生成PDF報表
 
 
回到王朝網路首頁