umemberdao.~pas

用DELPH写的DAO访问模块.有连接池.应用了各种模块,把数据库操作

unit uMemberDAO;

interface

uses
  Classes, SysUtils, Windows, Db;

type
  //会员类  
  TMember = class(TObject)
  private
    fID : integer;
    fName : string;
  protected
    function getID : integer;
    procedure setID(pID: integer);
    function getName : string;
    procedure setName(pName: string);
  public

  published
    property ID : integer read getID write setID;
    property MemberName : string read getName write setName;
  end;

  //会员DAO接口
  IMemberDAO = interface(IUnknown)
    ['{3106692E-6532-43B4-BBF2-07182D9BD5CE}']
    function insertMember(pMember: TMember) : integer;
    function deleteMember(pMember: TMember) : boolean;
    function updateMember(pMember: TMember) : boolean;
    function findMember(pID: integer) : TMember;
    //function selectMemberRS(): TDataSet;
    //function selectMemberVO(): TObjectList;
  end;

implementation

{ TMember }

function TMember.getID: integer;
begin
  result := fID;
end;

function TMember.getName: string;
begin
  result := fName;
end;

procedure TMember.setID(pID: integer);
begin
  fID := pID;
end;

procedure TMember.setName(pName: string);
begin
  fName := pName;
end;

end.