(EhLib使用说明.docVIP

ehlib v5 在delphi2010下的安装 1.卸载老版本 2.创建目录如 e:\ehlib5 3.把RADStudio2010和common 文件夹下的文件拷贝到 e:\ehlib5下 4.如需要，把e:\ehlib5加入到lib: Tools-Options-Delphi Options-Library - Win32-Library Path). 5.用 File\Open... 打开EhLib140.Dpk，并编译； 然后打开EhLibDataDriversXX.Dpk，并编译； 6.然后打开并编译、安装： DclEhLibXX.BPL，DclEhLibDataDriversXX.BPL： 即: 用 File\Open... 打开DclEhLibXX.Dpk,DclEhLibDataDriversXX.Dpk,编译、安装; In Package... window click Compile button to compile the 7.EhLib组件将出现 Delphi 7中的安装方法 1. 把 EhLib 中的 common 和 DataService 文件拷贝到 Delphi7 目录中. 2.在 TOOLS-Environment Options-Library-Library Path 中添入EHLIB路径。 3.打开新建文件夹中的 EHLIB70.DPK ,编译一下，但不要安装。 4.打开Ehlib中的DclEhLib70.DPK,编译,安装 5. 在Delphi 7中打开DclEhLib70.dpk，编译并安装。 6. 组件面板中出现一个EhLib的组件页。 7. 打开附带的DEMOS，编译并运行，测试安装成功。 以下是EHLIB的导出代码：（其实EHLIB的DEMO1中已有） procedure TInvoiceManager.ppmSaveSelectionClick(Sender: TObject); var ExpClass:TDBGridEhExportClass; Ext:String; begin SaveDialog1.FileName := file1; if (ActiveControl is TDBGridEh) then if SaveDialog1.Execute then begin case SaveDialog1.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(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) UpperCase(Ext) then SaveDialog1.FileName := SaveDialog1.FileName + . + Ext; SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl), SaveDialog1.FileName,False); end; end; end; // 功能：设定 DbGridEh 合计行信息 // 参数： pDbGrid:TDBGridEh; // pcFields : string ; 字段列表，字段用逗号分隔 // pvtType : TFooterValueType ; 统计类型 TFooterValueType = (fvtNon, fvtSum, fvtAvg, fvtCount, fvtFieldValue, fvtStaticText); // 引用： // 例如：DbGridEhFoot( DbGridEh1, acute;Number,Sumacute;, fvtSum ); 设定数量和金额字段为合计统计 // Procedure DbGridEhFoot( p