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;

相关推荐
工一木子28 分钟前
URL时间戳参数深度解析:缓存破坏与前端优化的前世今生
前端·缓存
半点寒12W2 小时前
微信小程序实现路由拦截的方法
前端
某公司摸鱼前端3 小时前
uniapp socket 封装 (可拿去直接用)
前端·javascript·websocket·uni-app
要加油哦~3 小时前
vue | 插件 | 移动文件的插件 —— move-file-cli 插件 的安装与使用
前端·javascript·vue.js
小林学习编程3 小时前
Springboot + vue + uni-app小程序web端全套家具商场
前端·vue.js·spring boot
柳鲲鹏3 小时前
WINDOWS最快布署WEB服务器:apache2
服务器·前端·windows
weixin-a153003083164 小时前
【playwright篇】教程(十七)[html元素知识]
java·前端·html
ai小鬼头4 小时前
AIStarter最新版怎么卸载AI项目?一键删除操作指南(附路径设置技巧)
前端·后端·github
一只叫煤球的猫5 小时前
普通程序员,从开发到管理岗,为什么我越升职越痛苦?
前端·后端·全栈
vvilkim5 小时前
Electron 自动更新机制详解:实现无缝应用升级
前端·javascript·electron