导出至xls
来源:互联网 发布:2012总决赛数据 编辑:程序博客网 时间:2024/05/17 06:09
procedure TForm3.RzToolButton2Click(Sender: TObject);
var
FileName, FileExt, msg: String;
begin
if dm.tblht.IsEmpty then
begin
msg := '没有导出数据...';
Application.MessageBox(PChar(msg), PChar(Application.Title),
MB_OK or MB_IconWarning);
Exit;
end;
Self.SaveDialogExport.Filter := 'Excel文件 (*.xls)|*.xls'; //类型
Self.SaveDialogExport.Title := '合同信息导出为';
if not Self.SaveDialogExport.Execute then
Exit;
FileName := Self.SaveDialogExport.FileName;
FileExt := LowerCase(ExtractFileExt(FileName));
if FileExt = '.xls' then
ExportGrid4ToExcel(FileName, Self.cxGrid1) //设置输出表格
else
begin
msg := '不支持的导出文件类型...';
Application.MessageBox(PChar(msg), PChar(Application.Title),
MB_OK or MB_IconError);
Exit;
end;
msg := '导出完成...';
Application.MessageBox(PChar(msg), PChar(Application.Title),
MB_OK or MB_IconInformation);
end;
- 导出至xls
- 运用poi导出xls
- php导出csv,xls
- JAVA导出xls文件
- poi导出xls文件
- 使用poi导出xls
- jxls导出xls 报表
- 数据导出EXCEL,XLS格式
- DevExpress gridControl导出到Xls
- .xls文件导入和导出
- 导出Excel表格文件 .xls
- PHP导出XLS简单办法
- qt windows 导入导出xls
- poi导出.xls格式excel
- java xls导出小样例
- Laravel Excel导出xls乱码
- xls xlsx csv 导出datatable
- Laravel Excel导出xls乱码
- C/C++预处理运算符
- socket套接字
- FFMPEG and SDL Tutorial 1
- DIV+CSS网页重构
- SQL中的CASE使用方法
- 导出至xls
- windows 核心编程 SingleTon.cpp
- SQL XML 类型插入操作
- GridView分页方法(显示总页数、当前页)
- xml 类型的exist 的用法
- profile在IT领域的profile
- SQL XML类型的查询
- 英语音标学习顺口溜集锦
- 怎么把一个date型的数据存如sql数据库,对应字段也是date类型。