DBGridEh to Excel



调用的例子



var

DBGridEhToExcel: TDBGridEhToExcel

begin

DBGridEhToExcel := TDBGridEhToExcel.Create(nil)

try

DBGridEhToExcel.TitleName := 测试测试测试测试测试测试测试

DBGridEhToExcel.BeginDate := 开始日期：2005-07-01

DBGridEhToExcel.EndDate := 结束日期：2005-07-18

DBGridEhToExcel.UserName := 系统管理员

DBGridEhToExcel.DBGridEh := DBGridEh1

DBGridEhToExcel.ShowProgress := True

DBGridEhToExcel.FileName := c:\123.xls

DBGridEhToExcel.ExportToExcel

finally

DBGridEhToExcel.Free

end

-DBGridEh to Excel



调用的例子



var

　DBGridEhToExcel: TDBGridEhToExcel

begin

　DBGridEhToExcel := TDBGridEhToExcel.Create(nil)

　try

　　DBGridEhToExcel.TitleName :=　测试测试测试测试测试测试测试　

　　DBGridEhToExcel.BeginDate :=　开始日期：2005-07-01　

　　DBGridEhToExcel.EndDate :=　结束日期：2005-07-18　

　　DBGridEhToExcel.UserName :=　系统管理员　

　　DBGridEhToExcel.DBGridEh := DBGridEh1

　　DBGridEhToExcel.ShowProgress := True

　　DBGridEhToExcel.FileName :=　c:\123.xls　

　　DBGridEhToExcel.ExportToExcel

　finally

　　DBGridEhToExcel.Free

　end