-----------------------------------------------
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGridEh, StdCtrls;type
TForm1 = class(TForm)
DBGridEh1: TDBGridEh;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;end.
---------------------------------------
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGridEh, StdCtrls;type
TForm1 = class(TForm)
DBGridEh1: TDBGridEh;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;end.
---------------------------------------
解决方案 »
- cxTreeList中onGetDisplayText事件的疑问,太奇怪了,求高手解疑!在线等啊。分不够可再加!
- delphi中如何将网上图片做到程序中(需实时更新)
- 在线等。。。请教一个简单的问题:怎么样设置TListView(风格为vsIcon)的属性,使的某个Item被选定后,显示为另外一种图标(图标保存在ima
- 有没有这样一首grid?
- 请问一个有关窗体的问题???
- 各位大哥,请问如何在安装软件时注册activex控件?
- 学sql不久,对SQL不是很熟,求一SQL SERVER备份和恢复的源码,好急!
- 关于数据库的问题
- 在 StringGrid 中,如何让一列处于只读状态,而另一列处于编辑状态?
- DELPHI中用ADOQUERY查询超时问题
- 深圳地区求够一本Delphi 5开发人员指南
- 初学者问题,请帮忙看看,Delphi7刚装不久-。-
然后
procedure TFrmQuery.BtnExportClick(Sender: TObject);
var
exp: TDBGridEhExportAsXLS;
begin
if dlgSave1.Execute then
begin
try
exp:=TDBGridEhExportAsXLS.Create;
exp.DBGridEh:=DBGridEh1;
exp.ExportToFile(dlgSave1.FileName,True);
finally
exp.Free;
end;
end;
end;
var
ExpClass:TDBGridEhExportClass;
begin
{ SaveDialog1.Filter:='Excel文件 (*.xls)|*.xls';
SaveDialog1.DefaultExt:='xls';
}if SaveDialog1.Execute then
begin
ExpClass:=TDBGridEhExportAsXLS;
SaveDBGridEhToExportFile(ExpClass,dbgrideh1,SaveDialog1.FileName,true); {TRUE表示保存DBgrideh显示的所有记录,FALSE仅保存选择的记录}
end;
end;
var
ExpClass:TDBGridEhExportClass;
begin
{ SaveDialog1.Filter:='Excel文件 (*.xls)|*.xls';
SaveDialog1.DefaultExt:='xls';
}if SaveDialog1.Execute then
begin
ExpClass:=TDBGridEhExportAsXLS;
SaveDBGridEhToExportFile(ExpClass,dbgrideh1,SaveDialog1.FileName,true); {TRUE表示保存DBgrideh显示的所有记录,FALSE仅保存选择的记录}
end;
end;