| 導購 | 订阅 | 在线投稿
分享
 
 
 

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;
󰈣󰈤
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
  免責聲明:本文僅代表作者個人觀點,與王朝網絡無關。王朝網絡登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
© 2005- 王朝網路 版權所有