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;

相关推荐
草莓熊Lotso1 分钟前
C++ 方向 Web 自动化测试入门指南:从概念到 Selenium 实战
前端·c++·python·selenium
Olrookie13 分钟前
若依前后端分离版学习笔记(二十)——实现滑块验证码(vue3)
java·前端·笔记·后端·学习·vue·ruoyi
533_1 小时前
[vue] dayjs 显示实时时间
前端·javascript·vue.js
故事与他6451 小时前
XSS_and_Mysql_file靶场攻略
前端·学习方法·xss
莫的感情2 小时前
下载按钮点击一次却下载两个文件问题
前端
一个很帅的帅哥2 小时前
JavaScript事件循环
开发语言·前端·javascript
小宁爱Python2 小时前
Django Web 开发系列(二):视图进阶、快捷函数与请求响应处理
前端·django·sqlite
fox_2 小时前
深入理解React中的不可变性:原理、价值与实践
前端·react.js
Github项目推荐2 小时前
你的错误处理一团糟-是时候修复它了-🛠️
前端·后端
Code小翊2 小时前
C语言bsearch的使用
java·c语言·前端