procedure TDM.CopyDbDataToExcel_程序员之家(从DBGrid,StringGrid导出Excel)

开发技术指南» 文章正文

引言： procedure TDM.CopyDbDataToExcel

摘要：　　一、引言　　随着计算机局域网和广域网的出现，网络产品(包括软、硬件)质量不断提高；品种、数量迅速增长和发展；以及数据库技术的成熟和软件工程方法的发展，各种计算机网络管理系统越来越完善。旅游景点微机售票系统是计算机技术与网络技术相结合的产物。方便快捷的查询统计使管理者能准确地掌握景点的经营情况并对售票人员进行监督、管理，并为其提供准确、可信的决策依据。其成功实现提高了旅游景点的售票效率和管理水......

·borland第三方组件安装方法 »显示摘要«

摘要：不是由borland提供的组件叫第三方组件：安装方法：就目前常见的各种形式的组件的安装方法介绍一下。 1 只有一个dcu文件的组件。dcu文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦delphi版本升级，此组件就不能再使用了，当然有的作者给出了......

从DBGrid,StringGrid导出Excel

procedure tdm.copydbdatatoexcel(target: tdbgrideh;mb,filename: string);

var 【程序编程相关:枚舉並設置界面的Caption之多語言方】

【推荐阅读:防止全局hook入侵Delphi版，20】

icount, jcount: integer; 【扩展信息:防止全局hook入侵Delphi版，20】

xlapp: variant;

sheet: variant;

begin

screen.cursor := crhourglass;

if not varisempty(xlapp) then

begin

xlapp.displayalerts := false;

xlapp.quit;

varclear(xlapp);

end;

//--------------------------选择模板－－－－－－

// copyfile(pchar(trim(extractfilepath(application.exename))+mb+.xls),pchar(filename+1.xls),false);

//－－－－－－－－－－－－－－－－－－－－－－－－

//通过ole创建excel对象

try

xlapp := createoleobject(excel.application);

except

screen.cursor := crdefault;

exit;

end;

if mb = 统计-项目信息前 then

xlapp.workbooks.add[trim(extractfilepath(application.exename))+mb+.xls] //你要把数据放在那里啊,先生成个文件在e:\1.xls

else

xlapp.workbooks.add;

... 下一页

·在delphi中利用createremotethread远程注入例子 »显示摘要«

摘要：花了一个下午翻了msdn,写了这个例子,为了安全,我用delphi建了个什么也没有作的程序prjzzhost.exe,将它用作被注入的宿主进程.写了一个testdll.dll,里面只有一个log函数,用来在文件test.txt中输出信息.最重要的一个程序project1.exe是用来注入的.测试环境: windows server 2003 + delphi 7.0程序很简单,高手就不用看了.废......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：