我是个新手,请问各位大虾.如何把单据导出到excel,在线等待......急

解决方案 »

  1.   

    Delphi控制Excel自动生成报表  摘 要:Excel是当前最流行的数据报表制作工具。本文介绍如何使用Delphi来控制Excel完成数据库与报表之间的数据交换,讨论了报表制作工程中的一些细节性问题。  关键字:Delphi,Excel,报表  1 引言  数据报表作为企事业单位上报和下达的重要信息载体,随着信息化建设的不断推进,在实际的工作中得到了前所未有的应用。因此,数据报表已经成为管理信息系统中重要的一项功能,并且,由于数据的多样性和统计信息的增加,数据报表的系统实现变得越来越复杂。  Delphi是一个高效的可视化数据库管理信息系统开发工具,.但是Delphi开发环境中提供的报表控件在制作复杂报表时显得不够理想,不管是以前版本提供的Quick Report控件组,还是Delphi 7提供的Rave控件组,都不能让用户对生成的报表进行改动,且程序控制很难实现。Excel作为现代办公常用的电子表格制作工具,以它的易操作性和实用性,得到了各行业办公人员的青睐。本文根据实际应用实践,介绍利用Delphi编程控制Excel生成报表的各种方法。  2 Delphi控制Excel的方法  2.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.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;  (3)表格的复制与粘贴(copyandPaste)procedure copyandPaste;
    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.copy; //复制选定的表格
     sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置
     sheet.paste; //粘贴表格
    end;  2.3 文件的保存  文件保存是在创建文件的基础上进行的,过程saveFile说明了文件保存过程中应该注意的问题:procedure saveFile;
    var
     sheet,v:variant;
    begin
     v:=createExcel;
     if savedialog.execute then
     begin
      v.workbooks[1].saveas(savedialog.FileName);//保存文件
      v.workbooks[1].close; //关闭工作表
      v.quit; //关闭Excel
      v := unassigned;
     end;
    end;  3 报表制作应注意的问题  (1)报表格式的选择  报表格式的选择对信息系统报表的实现方法起着决定性的影响。如果在报表的格式要求比较严格的情况下,应当采用模板的方式产生报表。由于模板在数据导入之前就已经按照标准制定好,所以只要在程序中控制模板的复制与粘贴,然后编程实现数据输入指定位置即可。而对于报表格式多变的情况,由于数据的不同,需要合并单元格或者控制边框,可以直接在程序中自动控制报表的生成。  (2)打印  对于Excel报表的打印,最好不要在程序中进行控制,因为报表往往需要签字或者进行审查,有许多报表都包含平面图或示意图,为了有效的控制打印质量,最好通过程序控制输出或显示Excel文件,以便修改;另一个重要的原因是Excel具有强大的排版功能,而这正是选择Excel导出报表的重要原因。  (3)报表时间和表头  报表时间要有用户可以控制的输出。表头的制作要在事先做好格式,控制输出时,只改动那些诸如上报单位、下达单位、负责人等数据,这样既保证了系统的效率,又不失其实用性。  4 结论  用Delphi控制Excel来完成数据库管理信息系统的数据报表功能,是Delphi制作复杂报表的最佳选择,因为Delphi不但能控制数据的导出与导入,而且可以完成当前Excel应用中的大部分功能。如果深入研究Visual Basic for Application(VBA)就可以制作出符合实际需要的各种Delphi控制Excel的控件。
      

  2.   


      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; (3)表格的复制与粘贴(copyandPaste)  procedure copyandPaste;  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.copy; //复制选定的表格  sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置  sheet.paste; //粘贴表格  end;   3 文件的保存  文件保存是在创建文件的基础上进行的,过程saveFile说明了文件保存过程中应该注意的问题:  procedure saveFile;  var  sheet,v:variant;  begin  v:=createExcel;  if savedialog.execute then  begin  v.workbooks[1].saveas(savedialog.FileName);//保存文件  v.workbooks[1].close; //关闭工作表  v.quit; //关闭Excel  v := unassigned;  end;  end;   报表制作应注意的问题  (1)报表格式的选择  报表格式的选择对信息系统报表的实现方法起着决定性的影响。如果在报表的格式要求比较严格的情况下,应当采用模板的方式产生报表。由于模板在数据导入之前就已经按照标准制定好,所以只要在程序中控制模板的复制与粘贴,然后编程实现数据输入指定位置即可。而对于报表格式多变的情况,由于数据的不同,需要合并单元格或者控制边框,可以直接在程序中自动控制报表的生成。  (2)打印  对于Excel报表的打印,最好不要在程序中进行控制,因为报表往往需要签字或者进行审查,有许多报表都包含平面图或示意图,为了有效的控制打印质量,最好通过程序控制输出或显示Excel文件,以便修改;另一个重要的原因是Excel具有强大的排版功能,而这正是选择Excel导出报表的重要原因。  (3)报表时间和表头  报表时间要有用户可以控制的输出。表头的制作要在事先做好格式,控制输出时,只改动那些诸如上报单位、下达单位、负责人等数据,这样既保证了系统的效率,又不失其实用性。  结论  用Delphi控制Excel来完成数据库管理信息系统的数据报表功能,是Delphi制作复杂报表的最佳选择,因为Delphi不但能控制数据的导出与导入,而且可以完成当前Excel应用中的大部分功能。如果深入研究Visual Basic for Application(VBA)就可以制作出符合实际需要的各种Delphi控制Excel的控件。 
      

  3.   

    上面的方法超级慢
    数据量大的话用Ehlib的DBGridEh导出 快
      

  4.   

    对啊,上面的方法速度好慢,后来我搞了个类,导出2万条记录大概3秒不到
    要的话写出你的邮箱吧,我的邮箱[email protected]