EhLib使用说明.doc

EhLib 使用说明 ehlib v5在 delphi2010 下的安装 1. 卸载老版本 2. 创建目录如 e:\ehlib5 RADStudio201 mon 文件夹下的文件拷贝到 e:\ehlib 5下 4. 如需要,把 e:\ehlib5 加入到 lib: Tools->Options->Delphi Options->Library - Win32->Library Path). "File\Open..." 打开 ,并编译; 然后打开 ,并编译; 6. 然后打开并编译、安装: , : 即:用"File\Open..." 打开 ,, 编译、安装; In "Package..." window click "Compile" button pile the 组件将出现 Delphi 7 中的安装方法 EhLib mon 和 DataService 文件拷贝到 Delphi7 目录中. TOOLS->Environment Options->Library->Library Path 中添入 EHLIB 路径。 3. 打开新建文件夹中的 , 编译一下,但不要安装。 4. 打开 Ehlib 中的 , 编译, 安装 Delphi 7 中打开 ,编译并安装。 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( Name)-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); // 引用: // 例如: DbGridEhFoot( DbGridEh1, &acute;Number,Sum&acute;, fvtSum ); 设定数量和金额字段