自定义组件开发

kasiet 2013-05-03 12:19:50
我想编写一个组件。 组件的任务是一种 dbf 格式的表 和 Delphi 7.0 创建连接。还把表里的数据导出到Delphi 来, 还能把数据写入表里去。 如果能编写成功的话做导入导出数据任务。 在Delphi 里有 BDE , ADO 组件板页。 继承哪个组件的属性,方法, 事件 才能跟接近我想做的组件任务。 需要大家的意见和帮助。
...全文
134 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
kasiet 2013-05-04
为什么在只有 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;
回复
lyhoo163 2013-05-04
最好自己写代码,也是学习提高之途径。
回复
kasiet 2013-05-04
回复
kasiet 2013-05-04
{ 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 中有而这里没有?
回复
多壮志 2013-05-03
这个太简单了,用得着继承别人的吗?
回复
kasiet 2013-05-03
您说的对, 不过我也没办法
回复
sololie 2013-05-03
嗯,你也挺精灵的嘛,直接继承unidac,啥代码不用写就实现要求了,老湿也没话说
回复
kasiet 2013-05-03
不过这个是我的作业,所以一定完成。 您说的是Universal Data Access Components 吗?
回复
sololie 2013-05-03
dbf太古老了吧 不用自己写,第三方组件都有这功能,如unidac、ehlib
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4922

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-05-03 12:19
社区公告
暂无公告