EhLib使用说明.doc

ehlib v5 在delphi2010下的安装

e:\ehlib5
文件夹下的文件拷贝到 e:\ehlib5下
，把e:\ehlib5加入到lib:
Tools->Options->Delphi Options->Library - Win32->Library Path).
"File\Open..." ，并编译；
，并编译；
、安装：
，：
即:
用 "File\Open..." ,,编译、安装;
In "Package..." window click "Compile" button to compile the
Delphi 7中的安装方法
1. 把 EhLib 中的 common 和 DataService 文件拷贝到 Delphi7 目录中.
TOOLS->Environment Options->Library->Library Path 中添入EHLIB路径。
,编译一下，但不要安装。
,编译,安装
5. 在Delphi ，编译并安装。
6. 组件面板中出现一个EhLib的组件页。
7. 打开附带的DEMOS，编译并运行，测试安装成功。
以下是EHLIB的导出代码：（其实EHLIB的DEMO1中已有）
procedure (Sender: TObject);
var ExpClass:TDBGridEhExportClass;
Ext:String;
begin
:= 'file1';
if (ActiveControl is TDBGridEh) then
if then
begin
case 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(,Length()-2,3)) <>
UpperCase(Ext) then
:= + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
,False);
end;
end;
end;
// 功能：设定 DbGridEh 合计行信息
// 参数： pDbGrid:TDBGridEh;
// pcFields : string ; 字段列表，字段用逗号分隔
// pvtType : TFooterValueType ; 统计类型 TFooterValueType = (fvtNon, fvtSum, fvtAvg, fvtCount, fvtFieldValue, fvtStaticText);
// 引用：
// 例如：DbGrid