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;

相关推荐
灵感__idea5 小时前
JavaScript高级程序设计(第5版):好的编程就是掌控感
前端·javascript·程序员
烛阴6 小时前
Mix
前端·webgl
代码续发6 小时前
前端组件梳理
前端
试图让你心动7 小时前
原生input添加删除图标类似vue里面移入显示删除[jquery]
前端·vue.js·jquery
陈不知代码7 小时前
uniapp创建vue3+ts+pinia+sass项目
前端·uni-app·sass
小王码农记7 小时前
sass中@mixin与 @include
前端·sass
陈琦鹏7 小时前
轻松管理 WebSocket 连接!easy-websocket-client
前端·vue.js·websocket
hui函数8 小时前
掌握JavaScript函数封装与作用域
前端·javascript
行板Andante8 小时前
前端设计中如何在鼠标悬浮时同步修改块内样式
前端
Carlos_sam8 小时前
Opnelayers:ol-wind之Field 类属性和方法详解
前端·javascript