Lazarus Query转EXCEL功能

Lazarus Query转EXCEL功能

需要用到控件XMLXSDExporter1

procedure SaveToExcel(AQuery:TSQLQuery);

var

SaveDialog: TSaveDialog;

Ext:String;

begin

SaveDialog := TSaveDialog.Create(nil);

SaveDialog.Filter:='Excel 97-2003文件(*.xls)|*.XLS';

if SaveDialog.Execute and (trim(SaveDialog.FileName)<>'') then

begin

Ext := 'xls';

if UpperCase(Copy(SaveDialog.FileName,Length(SaveDialog.FileName)-2,3)) <> UpperCase(Ext) then

SaveDialog.FileName := SaveDialog.FileName + '.' + Ext;

if FileExists(SaveDialog.FileName) then

begin

if application.MessageBox('文件名已存在,是否覆盖? ', '提示', MB_ICONASTERISK or MB_OKCANCEL)<>idok then

exit;

end;

XMLXSDExporter1.Dataset := AQuery;

XMLXSDExporter1.FileName := SaveDialog.FileName;

XMLXSDExporter1.Execute;

MessageBox( 0,'导出成功 ', '提示', MB_OK + MB_ICONINFORMATION)

end;

SaveDialog.Destroy;

end;

相关推荐
一路上__有你1 分钟前
闲来无事,写一篇文章吧!
前端·javascript·vue.js
keep_di2 分钟前
05-vue3+ts中axios的封装
前端·vue.js·ajax·typescript·前端框架·axios
JiKun18 分钟前
ECMA 2024(ES15) 新特性
前端·javascript
百锦再25 分钟前
从 .NET 到 Java 的转型指南:详细学习路线与实践建议
android·java·前端·数据库·学习·.net·数据库架构
i小杨37 分钟前
前端埋点(打点)方案
前端·状态模式
前端加油站1 小时前
时间转换那些事
前端·javascript
风清云淡_A1 小时前
【VUECLI】node.js打造自己的前端cli脚手架工具
前端·node.js
YuspTLstar1 小时前
一文掌握Redux-toolkit核心原理
前端·react.js
云枫晖1 小时前
手写Promise-静态方法all和allSettled
前端·javascript
weixin_456904271 小时前
前端开发时npm install报错解决方案
前端·npm·node.js