delphi中GRID数据导出到EXCEL的操作

原创 2007年09月30日 08:15:00

首先确定在窗口上放有Excelapplication, Excelworkbook, Excelworksheet(在SERVER选项上),用来创建EXCEL文件及工作表.

再放入一个按钮,作为触发器,

拖入一个savedialog用来保存文件。代码如下:

procedure Tfrmqry.Button1Click(Sender: TObject);

var

 i,j,row,nall:integer;        //定义变量,i用以储存记录的数目,  j是记录的列数   row是EXCEL的行数  nall是记录的总数

begin

  if SaveDialog1.Execute then                    // 打开保存窗口,让用户选择保存的文件名

begin            //inintial excel  初始化EXCEL

 ExcelApplication1.Connect;

 ExcelApplication1.Workbooks.Add(Null,0);

 ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);

 ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);

  begin

  nall:=qry1.RecordCount;                   //保存记录的数量

  row:=0;                                            //初始化行,定位在第一 行

 for j:=0 to QRY1.Fields.Count-1 do       // column   name,统计共有的列数目,把列名逐列导出到EXCEL第一行

        begin

   ExcelWorksheet1.Cells.item[1, j+1] := qry1.Fields[j].DisplayName  //.DisplayLabel;

        end;

  for i:=0 to nall-1 do    // total rows   正规记录,从第一条记录一直到最后循环

      while not qry1.Eof do   只要记录没到最后就执行以下动作

    begin

          for j:=0 to QRY1.Fields.Count-1 do       // column逐列导出动作

        begin

            ExcelWorkSheet1.Cells.Item[row+2,j+1]:=QRY1.Fields[j].AsString;[行,列]

        end;

            row:=row+1;  //行进行增量

       qry1.Next;        //到下一条记录

   end;

 end;

//以下是导出完毕后的动作,

   ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName+'.xls'); //加后缀名,确保最后是EXCEL文件

   ExcelWorkBook1.Close(false);

  ExcelApplication1.Disconnect;        //断开与EXCEL的连接

  Screen.Cursor:=crDefault;          //指针随记录而动

  showmessage('成功导出 '+inttostr(nall)+' 条数据!');

end;

end;

 
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

saiku中默认页改为“打开查询”

saiku-ui下的/saiku-ui/js/saiku/models/SessionWorkspace.js 此文件为初始化工作区的前端代码:       process_datasources...

Saiku汉化工作记录

最近公司做内部BI分析工作,研究数周Saiku,几周下来的心得在说一下;        1.saiku不太前端界面不太适合开放用户使用,比较适合企业级应用;        2.saiku 使用jers...

saiku中文维度,补充说明

saiku在筛选中文维度 会出现浏览器白屏 停止响应的现象,经过跟踪源代码,分析原来在linux 操作系统中 数据库读取的中文和界面选取的编码是不一致的 解决方法, classes\saiku-da...

saiku的安装教程

简介 Saiku是一个模块化的开源分析套件,它提供轻量级的OLAP(联机分析处理),并且可嵌入、可扩展、可配置。 环境准备 1、JDK5及以上版本。 2、Saiku Server,当前最新版本为2....

saiku中文查询(鉴于有人提问:saiku执行mdx,有中文报错)

有人问我saiku的中文查询问题: saiku默认执行英文,很多人,在mysql里录入了中文,使用sql语言查询没有问题。 可是,用saiku的mdx查询,就会报错。 这是因为mysql默认支持...

测试方法的辩证统一(之四)

2006年06月22日 18:27:00 前面我们曾谈到测试执行中一种有效性策略,实际就是一个典型例子,显示了有效性和风险性之间的矛盾和统一。测试方法有效性和风险性的这种关系,实...

怎么在delphi中读取Excel数据(各种详细操作)

( 一 ) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj : Var ExcelApp : Variant ; ExcelApp := CreateOleObject ...

Ext Grid数据导出到Excel

  • 2013-12-31 15:59
  • 21KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)