| 订阅 | 在线投稿
分享
 
 
 

Excel2000:用Delphi自动生成报表

2008-05-21 03:17:03 编辑來源:互联网 国际版 评论
 
 
本文为【Excel2000:用Delphi自动生成报表】的汉字拼音对照版显示拼音
  zhai yaoExcelshidangqianzuiliuxingdeshujubaobiaozhizuogongjubenwenjieshaoruhe使shiyongDelphilaikongzhiExcelwanchengshujukuyubaobiaozhijiandeshujujiaohuantaolunlebaobiaozhizuogongchengzhongdeyixiexijiexingwenti

  guanjianziDelphiExcelbaobiao

  yinyan

  shujubaobiaozuoweiqishiyedanweishangbaohexiadadechongyaoxinxizaitisuizhexinxihuajianshedebuduantuijinzaishijidegongzuozhongdedaoleqiansuoweiyoudeyingyongyincishujubaobiaoyijingchengweiguanlixinxixitongzhongchongyaodeyixianggongnengbingqieyouyushujudeduoyangxinghetongjixinxidezengjiashujubaobiaodexitongshixianbiandeyuelaiyuefuduo

  Delphishiyigegaoxiaodekeshihuashujukuguanlixinxixitongkaifagongju.danshiDelphikaifahuanjingzhongtigongdebaobiaokongjianzaizhizuofuduobaobiaoshixiandebugoulixiangbuguanshiyiqianbanbentigongdeQuick ReportkongjianzuhuanshiDelphi 7tigongdeRavekongjianzudoubunengrangyonghuduishengchengdebaobiaojinxinggaidongqiechengxukongzhihennanshixianExcelzuoweixiandaibangongchangyongdedianzibiaogezhizuogongjuyitadeyicaozuoxingheshiyongxingdedaolegexingyebangongrenyuandeqinglaibenwengenjushijiyingyongshijianjieshaoliyongDelphibianchengkongzhiExcelshengchengbaobiaodegezhongfangfa

  DelphikongzhiExceldefangfa

  1 chuangjianExcelwenjian

  yaozaiDelphizhongkongzhiExceljiubixuyongdaoOLEzidonghuaxianzaiyibancaiyongOLE2laichuangjianOLEduixiangdangjihuoyigeOLEduixiangshifuwuqichengxujinzairongqichengxuneibujihuozhejiushisuoweidejiudijihuo(in-place activation)

  chuangjianExcelwenjianshixianchuangjianyigeOLEduixiangranhouzaiduixiangzhongjianligongzuobiaoworksheetruhanshucreateExcelsuoshi

  function createExcel:variant;

  var

  v:variant;

  sheet:variant;

  begin

  v:=createoleobject('Excel.Application');//chuangjianOLEduixiang

  v.visible:=true;

  v.workbooks.add(-4167); //tianjiagongzuobiao

  v.workbooks[1].sheets[1].name:='test';

  sheet:=v.workbooks[1].sheets['test'];

  return v;

  end;

  2 shujubiaogekongzhi

  Excelbiaogedekongzhizhuyaobaokuoshujudedaoruxiugaidanyuangedehebingbiankuangdekongzhibiaogedefuzhiniantiedengdangbaobiaogeshiyidingdeqingkuangxiabiaogedefuzhiniantiexiandeyouweichongyaozheyangkeyixianzhizuoyigewenjianmobanranhouanzhaoshijixuyaoshuchuduoyebaobiaojike

  (1)shujudedaoru(importData)

  procedure importData;

  var

  I,j:integer;

  v:variant;

  begin

  v:=createExcel; //chuangjianExcelwenjiantest

  for I:=0 to maxcolumn do

  begin

  for j:=0 to maxrow do

  v.workbooks[1].sheets[1].cells[I,j]:=I*j; //daorushuju

  end;

  end;

  (2)danyuangedehebingbiankuangdekongzhi(lineStylecontrol)

  danyuangedehebingshizaixuandinghebingfanweideqingkuangxiajinxingdebiankuangkongzhikeyicaozuobiankuang线xiantiaodeshifouxianshiqitafangshidekongzhikeyi仿fangzhaoxiamianguochengjinxing

  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]];//xuandingbiaoge

  range.select;

  range.merge; //hebingdanyuange

  range.borders.linestyle:=xlcontinuous; //zhibiankuang线xiankejian

  range.font.size:=9; //gaibianbiaogeneiwenbenzitidaxiao

  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;
󰈣󰈤
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

网络安全治理:国家安全保障的主要方向是打击犯罪,而不是处置和惩罚受害者

来源:中国青年报 新的攻击方法不断涌现,黑客几乎永远占据网络攻击的上风,我们不可能通过技术手段杜绝网络攻击。国家安全保障的主要方向是打击犯罪,而不是处置和惩罚...

 
 
 
>>返回首页<<
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 
 热帖排行
 
清淡自然的清纯模特
倩女幽魂_美丽女生
[i]黄山
雪棉
 
 
王朝网络微信公众号
微信扫码关注本站公众号wangchaonetcn
 
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
©2005- 王朝网络 版权所有