enlib中DBGRIGEH如何导出各种文件
2007-04-23 14:24
267 查看
strdate:=FormatdateTime('ddddd',Now);
SaveDialog1.FileName := '客户基本信息表'+strdate;
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'html'; end;
5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + ext;
SaveDBGridEhToExportFile(ExpClass,dbgrideh1,
SaveDialog1.FileName,true);
end;
end;
SaveDialog1.FileName := '客户基本信息表'+strdate;
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'html'; end;
5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + ext;
SaveDBGridEhToExportFile(ExpClass,dbgrideh1,
SaveDialog1.FileName,true);
end;
end;
相关文章推荐
- SQL Server 2008如何导出带数据的脚本文件
- Access 导出各种格式文件
- 如何打开没有*.sln工程文件的asp.net网站项目以及各种.net环境的项目
- allegro 中如何导出坐标文件
- 如何导入导出MySQL数据库----*.sql文件操作
- 对象文件[置顶] 如何在 ASM 存储中使用 Data Pump (expdp impdp)进行数据导出导入操作
- 如何从wireshark 抓包中的RTP导出 H.264 PAYLOAD,变成可用暴风直接播放的H264 裸码流文件
- GCC编译之如何控制共享文件导出符号
- 如何高效撤销Git管理的文件在各种状态下的更改
- 各种资源的利用(如何使用RC文件)
- 字符集问题的初步探讨(五)----如何识别导出文件的字符集
- 37_Linux中的各种文件类型及如何获取
- 如何让TortoiseSVN导出新增或修改过的文件
- iOS开发 - iOS_如何导出p12文件(开发/发布证书多台MAC使用技巧)
- 如何将数据库中的数据存储成各种文件类型
- 如何从ios酷我音乐盒中导出已下载的音乐文件(使用Java编程实现)
- 如何从全备份的 sql文件中导出指定的表
- 如何将navicat for mysql 中查询出来的内容导出到xls文件中
- GCC编译之如何控制共享文件导出符号
- 如何向mysql数据库中导入或导出txt文件