自定义组件开发

[kasiet]

我想编写一个组件。 组件的任务是一种 dbf 格式的表 和 Delphi 7.0 创建连接。还把表里的数据导出到Delphi 来， 还能把数据写入表里去。 如果能编写成功的话做导入导出数据任务。 在Delphi 里有 BDE , ADO 组件板页。 继承哪个组件的属性，方法， 事件 才能跟接近我想做的组件任务。 需要大家的意见和帮助。

[sololie]

dbf太古老了吧 不用自己写，第三方组件都有这功能，如unidac、ehlib

[kasiet]

不过这个是我的作业，所以一定完成。 您说的是Universal Data Access Components 吗？

[sololie]

嗯，你也挺精灵的嘛，直接继承unidac，啥代码不用写就实现要求了，老湿也没话说

[kasiet]

您说的对， 不过我也没办法

[多壮志]

这个太简单了，用得着继承别人的吗？

[kasiet]

{ TADOTable }

TADOTable = class(TCustomADODataSet)
private
function GetTableDirect: Boolean;
procedure SetTableDirect(const Value: Boolean);
function GetReadOnly: Boolean;
procedure SetReadOnly(const Value: Boolean);
public
constructor Create(AOwner: TComponent); override;
procedure GetIndexNames(List: TStrings);
property IndexDefs;
published
property CommandTimeout;
property EnableBCD;
property IndexFieldNames;
property IndexName;
property MasterFields;
property MasterSource: TDataSource read GetDataSource write SetDataSource;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly stored False;
property TableDirect: Boolean read GetTableDirect write SetTableDirect default False;
property TableName: WideString read GetCommandText write SetCommandText;
end;


这里我为什么找不到 ADOTable 的 ConnectionString 属性？ 在 ObjectInspector 中有而这里没有？

[kasiet]

[lyhoo163]

最好自己写代码，也是学习提高之途径。

[kasiet]

为什么在只有 ObjectInspector 中可以看到 ConnectionString 属性， 而的源代码当中找不到 ConnectionString 属性该再这里发布才对啊？？？？？？ { TADOTable } TADOTable = class(TCustomADODataSet) private function GetTableDirect: Boolean; procedure SetTableDirect(const Value: Boolean); function GetReadOnly: Boolean; procedure SetReadOnly(const Value: Boolean); public constructor Create(AOwner: TComponent); override; procedure GetIndexNames(List: TStrings); property IndexDefs; published property CommandTimeout; property EnableBCD; property IndexFieldNames; property IndexName; property MasterFields; property MasterSource: TDataSource read GetDataSource write SetDataSource; property ReadOnly: Boolean read GetReadOnly write SetReadOnly stored False; property TableDirect: Boolean read GetTableDirect write SetTableDirect default False; property TableName: WideString read GetCommandText write SetCommandText; end;