本周下载排行
|
|
|
本月下载排行 |
| |
|
|
| 资源名称： | 简单封装数据库表的类 |
| 文件类型： |
ZIP |
|
| 适用版本： |
Delphi5, Delphi6, Delphi7, Delphi8, Delphi2005 |
| 发 布 者： |
yqt1974@163.com |
| 资源类型： |
免费 |
| 资源大小： |
13 KB |
| 资源等级： |
 |
| 整理时间： |
2005-4-28 0:12:44 |
| 资源网址： |
无 |
| 下载次数： |
本 周：4 本月：1 总计：2766 |
| 下载链接： |
|
|
|
| 资源简介： |
本人根据自己数据库表的内容封装的一个简单的操作类。可以简单的以对象方式操作数据库表内容。所有子类都继续自TTableData。如要新加一个子类，只需从TTableData类继承，然后在Published里申明相应的属性，属性名称与字段需要相同。同时为了对象内存管理方便，TTableData类从TComponent继承，可以减少内存泄漏的可能性。
需要覆盖的几个类函数：
1.返回表的关键列名：
class function KeyColumnName: string; virtual;
2.返回表的名称：
class function TableName: string; virtual;
3.表中的唯一字段是否使用GUID（默认不使用，如果不改的话可以不覆盖）：
class function UseUniqueID: Boolean; virtual;
比如要申明一个用户表对象，有以下字段：
UserName, UserID, Password, Age, IsMan, BirthDay
类申明如下：
type
TUser = class(TTableData)
private
FIsMan: Boolean;
FAge: Integer;
FUserName: string;
FPassword: string;
FUserID: string;
FBirthDay: TDateTime;
public
class function KeyColumnName: string; override;
class function TableName: string; override;
published
property UserName: string read FUserName write FUserName;
property UserID: string read FUserID write FUserID;
property Password: string read FPassword write FPassword;
property Age: Integer read FAge write FAge;
property IsMan: Boolean read FIsMan write FIsMan;
property BirthDay: TDateTime read FBirthDay write FBirthDay;
end;
implementation
{ TUser }
class function TUser.KeyColumnName: string;
begin
result := 'UserID';
end;
class function TUser.TableName: string;
begin
result := 'Users';
end;
数据表对象操作则通过TDataOperator来进行，加载一个对象：
function Load(AType: TTableDataClass; AValue: Variant): TTableData; overload;
保存到数据库中：
function Save(AObject: TTableData): Boolean;
删除数据库表记录：
function Delete(Aobject: TTableData): Boolean; overload;
数据库的实际操作由TDataOperator的DataController对象提供。
需要创建一个TDataController对象并将其赋值给TDataOperator，
TDataOperator对象过程中需要提供连接串，该类封装了ADO相关对象进行数据库操作。
这是本人第一次发布资源，肯定存在许多错误和不足，请大家积极指出。
作者：叶青田， Email:yqt1974@163.com， QQ：123269256 |
|
|
| 相关资源： |
简单封装数据库表的类-演示 |
 下载帮助(？)
下载链接错误报告或者意见反馈 |
| 下载说明： |
|
|
网上文摘 
当前位置：Delphi园地 → 精彩源码 → 数据库 → 简单封装数据库表的类 
