Excel 2000：用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;
  

• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Excel 2000：用Delphi自动生成报表 相关文章：
• ·InterPhonic 文本至语音转换合成在线完成
• ·Photoshop图像合成教程:艺术化普通照片
• ·小巧设计软件完成电子杂志个性化设计
• ·Photoshop将现成图案做成立体徽章
• ·QQ会员成长体系介绍及成长值换算参照表
• ·卡巴斯基报告称恶意软件近三成来自中国
• ·系统漏洞的形成和防治办法
• ·用AutoCAD五分钟内完成三维足球建模
• ·病毒新趋势：国产软件成网页挂马“新宠”
• ·利用iTextSharp生成Pdf一个小例子
• Excel 2000：用Delphi自动生成报表 相关软件
• ·商界成功者最推崇的成事法则：先做人后做事
• ·悲伤逆流成河
• ·快乐成语连连看
• ·郑成功传
• ·《狂怒Fury》高等级练成高清视频
• ·《工人物语2》模拟养成试玩
• ·《机场英雄成田》试玩
• ·如何将菜刀改成军刀
• ·《李自成》典藏集5卷
• ·《可爱女生梦工厂》超经典养成试玩

上一篇:人无我有话金山—金山表格

下一篇:Excel 2003：轻松自制学生练习测试卷

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐