DBGridEh 倒出到 EXCEL
来源:互联网 发布:笔记本连不上有线网络 编辑:程序博客网 时间:2024/06/07 07:51
保存按钮click 如下:
procedure Tmainform.SaveToExcelClick(Sender: TObject);
var ExpClass: TDBGridEhExportClass;
Ext,GstrWorkDir,OutPath: string;
SaveD: TSaveDialog;
begin
if not DBGridEh1.DataSource.DataSet.Active then abort;
if DBGridEh1.DataSource.DataSet.RecordCount=0 then abort;
DBGridEh1.SetFocus;
DBgrideh1.Selection.SelectAll; //DBgridEh 全部内容输出
if not DBGridEh1.datasource.dataset.Active then
begin
showmessage('无数据可输出,请先统计');
abort;
end;
GstrWorkDir :='D:/'; //默认保存目录
SaveD := TSaveDialog.Create(nil); // 新建 Savedialog对象
SaveD.Options := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing];
SaveD.Title := '另存为:';
SaveD.InitialDir := GStrWorkdir;
//saveD.DefaultExt :='XLS';
SaveD.Filter := 'Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HT' +
'ML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Microsoft E' +
'xcel Workbook (*.xls)|*.XLS';
SaveD.FileName := 'Report'+FormatDateTime('yyyy-mm-dd',now);
if (ActiveControl is TDBGridEh) then
if SaveD.Execute then
begin
case SaveD.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveD.FileName, Length(SaveD.FileName) - 2, 3)) <>
UpperCase(Ext) then
SaveD.FileName := SaveD.FileName + '.' + Ext;
OutPath:='Report'+FormatDateTime('yyyy-mm-dd',now) + '.' + Ext;
//if fileexists(SaveD.FileName) then
// begin
// if application.MessageBox('文件已经存在,是否替换原有文件?','操作确认',MB_YESNO)=6 then
// SaveDBGridEhToExportFile(ExpClass, TDBGridEh(ActiveControl), SaveD.FileName, False);
// end
//else
SaveDBGridEhToExportFile(ExpClass, TDBGridEh(ActiveControl), SaveD.FileName, False);
Messagedlg(SaveD.FileName+'--- 文件保存成功!',mtConfirmation,[mbYES],0);
end;
end;
TDBGridEh(ActiveControl).Selection.Clear;
end;
- DBGridEh 倒出到 EXCEL
- delphi dbgrideh导出到Excel 多表头
- C# 倒出Excel表格
- mysql倒出Excel表格
- DbgridEh数据导出到Excel的方法(Delphi)
- dbgrideh快速导出excel
- DBGridEh 导出 Excel
- DBGridEh导出excel(备忘)
- Ehlib 的 DBGridEh 控件导出到Excel的三种封装过程/函数
- DbgridEh数据导出到Excel的方法(Delphi)--适用Ehlib7.0+D7
- Ehlib 的 DBGridEh 控件导出到Excel的三种封装过程/函数
- DBGridEh输出EXCEL的方法
- 将DataGrid中数据倒出Excel文件并下载
- 将DataGrid中数据倒出Excel文件并下载
- 将DataGrid中数据倒出Excel文件并下载
- 将DataGrid中数据倒出Excel文件并下载
- 将DataGrid中数据倒出Excel文件并下载
- DBGRIDEh
- Bash 实例,第 3 部分
- 10个最吃香的网站开发技术
- 使用 Bash shell脚本进行功能测试
- 软件需求最佳实践之需求的沟通与分析
- char、varchar、text和nchar、nvarchar、ntext的区别
- DBGridEh 倒出到 EXCEL
- 跑步日记 2008-11-15
- SQL Server创建数据库
- SQL Server创建表
- SQL Server数据类型
- ERP顾问与数据库爱好者交流群
- 代码大全 补充
- SQL Server数据完整性
- (*^__^*) 嘻嘻……