unitobjectclasses.pas

简单封装数据库表的类的一个简单的例子： http://www.delphifans.com/SoftView/SoftView_1476.html

unit UnitObjectClasses;

interface

uses
  Windows, SysUtils, Variants, Classes, UnitBaseTable;

type
  TUser = class(TTableData)
  private
    FAge: Integer;
    FUserName: string;
    FUserPwd: string;
    FWorkDate: TDateTime;
    FShowOrder: Integer;
  public
    class function TableName: string; override;
    class function KeyColumnName: string; override;
    class function OrderByList: string; override;
    class function AutoKeyValue: Boolean; override;
  published
    property UserName: string read FUserName write FUserName;
    property UserPwd: string read FUserPwd write FUserPwd;
    property Age: Integer read FAge write FAge;
    property WorkDate: TDateTime read FWorkDate write FWorkDate;
    property ShowOrder: Integer read FShowOrder write FShowOrder;
  end;


implementation

{ TUser }

class function TUser.AutoKeyValue: Boolean;
begin
  result := False;
end;

class function TUser.KeyColumnName: string;
begin
  result := 'UserName';
end;

class function TUser.OrderByList: string;
begin
  result := 'ShowOrder';  //如果有多个字段需要排序，直接用逗号隔开
end;

class function TUser.TableName: string;
begin
  result := 'Users';
end;


end.