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;