求对Ehlib3.0组件使用熟练者帮助-在线等?(50分)

  • 主题发起人 主题发起人 jzg007
  • 开始时间 开始时间
J

jzg007

Unregistered / Unconfirmed
GUEST, unregistred user!
在下最近在网上看到Ehlib3.0组件的优点,就按照提供的例子进行调试,但运行导入/导出数据实例时(将数据导出为EXCEL格式文件),程序提示错误:
Undeclared identifier:'TDBGridEhExportClass'
Undeclared identifier:'TDBGridEhExportAsXls'
Undeclared identifier:'SaveDBGridEhToExportFile'
等这样的提示我该如何解决?在下就先谢谢了。[:(]
 
主要安装的时候没有指定组建的路径: delphi 菜单:tools / envir../library
library path :='指定路径'
 
忍我说的对 必须指定路径
 
这个好象不是路径的问题,这是Ehlib3.0的一些扩展功能的东西;
要调Ehlib3.0的配置文件;EhLib.Inc你将其功能开启;
 
to 清新空气 :
情我该如何使用这些扩展功能呢?
 
在 interface 前边加 :
如下:

{$I EhLib.Inc}
interface
 
这样的提示说明你有些类或者变量之类的未申明就使用!
应该是Uese的问题
 
to 忍我:
我按照你给我的办法,提示的错误照旧。
to 5207:
我改在Uese中加入什么代码呢?
 
uses DBGridEhImpExp
 
引用單元DBGridEhImpExp
 
to am2001:
procedure TForm1.Button2Click(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,DBGridEh1,SaveDialog1.FileName,false);
//其中false为局部数据
end;
end;
end;
这是我按照网上提供的例子进行调试的,现在程序没有报错,但没有反应。如:出现提示框之类的反应,请问这是什么问题?谢谢了。
 
if (ActiveControl is TDBGridEh) then
把这个去掉
 
谢谢各位的帮助,大富翁论坛真是各好地方。
 
后退
顶部