procedure TFrmZjMoveSch.BitBtn2C_程序员之家(TAdoQuery导出数据到Excel)

开发技术指南» 文章正文

引言： procedure TFrmZjMoveSch.BitBtn2C

摘要：/* * created on 2004-11-5 * * java读取excel文件 * */package readxls; import java.io.fileinputstream;import java.io.fileoutputstream; import java.text.decimalformat; import org.apache.poi.hssf.usermodel......

·推荐：无废话xml »显示摘要«

摘要：我现在开始学xml用的是台湾“两只老虎”的《无废话xml》，名字很酷，啊哈？不愧是搞语言学的，写的技术文章也能如此浅显易懂，而且你完全可以在网上免费得到它，它是开放的，for free！http://www.2tigers.net/我喜欢这种精神！！！但是有一点不足之处，也许两只老虎现在都太忙了，网站有一年多没有更新了。但是能从noverbosexml收益，就是我最大的......

TAdoQuery导出数据到Excel

procedure tfrmzjmovesch.bitbtn2click(sender: tobject);

var 【程序编程相关:需求的不确定性】

【推荐阅读:clientdataset不能在线程中使】

wd: twritedata ; 【扩展信息:《Thinking in Java》学习】

begin

wd := twritedata.create ;

wd.qry := qryzjmovesch;

wd.summary.add(´铸件移交计划:´);

wd.summary.add(´所有生产批号!´);

wd.summary.add(´create by: ´+frmmain.username);

wd.summary.add(datetostr(now));

try

if savedialog1.execute then

wd.exporttofile(savedialog1.filename, true);

finally

wd.free ;

end;

unit writedata;

interface

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, grids, dbgrideh, db, adodb, stdctrls, buttons, xpmenu, dbgrids;

//目标是: 通过普通adoquery来导出数据！

//create by yxf

//date: 2004-10-05

type

tcolumnslist = class(tlist)

private

function getcolumn(index: integer): tcolumn;

procedure setcolumn(index: integer; const value: tcolumn);

public

property items[index: integer]: tcolumn read getcolumn write setcolumn; default;

end;

tcolcellparams = class

protected

falignment: talignment;

fbackground: tcolor;

fcol: longint;

ffont: tfont;

fimageindex: integer;

freadonly: boolean;

frow: longint;

... 下一页

·java新手入门需要掌握的30个基本概念 »显示摘要«

摘要：java的白皮书为我们提出了java语言的11个关键特性。 (1)easy:java的语法比c++的相对简单，另一个方面就是java能使软件在很小的机器上运行，基础解释其和类库的支持的大小约为40kb，增加基本的标准库和线程支持的内存需要增加125kb。 (2)分布式:java带有很强大的tcp/ip协议族的例程库，java应用程序能够通过url来穿过网络来访问远程对象，由于servlet机制......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：