ucustomer.pas

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

unit uCustomer;

interface

uses
  DB;

type
//==============================================================================
// 值对象类
//==============================================================================

{ TCustomer  }

  TCustomer  = class(TObject)
  private

  protected

  public
    constructor Create;
    destructor Destroy; override;
  published

  end;

//==============================================================================
// 具体DAO类实现的接口定义
// 在该接口中定义了所有的业务方法
//==============================================================================

  ICustomerDao = interface(IInterface)
    function insertCustomer(fCustomer: TCustomer): boolean;
    function deleteCustomer(fCustomer: TCustomer): boolean;
    function findCustomer(fID: integer): TCustomer;
    function updateCustomer(fCustomer: TCustomer): boolean;
    function selectCustomersRS(fKey: string): TDataSet;
  end;

//==============================================================================
// 实现的具体业务细节和数据操作细节, 实现ICustomerDao接口
//==============================================================================

{ TCloudscapeCustomerDAO }

  TCloudscapeCustomerDAO = class(TInterfacedObject, ICustomerDao)
  private

  protected

  public
    constructor Create;
    destructor Destroy; override;
    
    function insertCustomer(fCustomer: TCustomer): boolean;
    function deleteCustomer(fCustomer: TCustomer): boolean;
    function findCustomer(fID: integer): TCustomer;
    function updateCustomer(fCustomer: TCustomer): boolean;
    function selectCustomersRS(fKey: string): TDataSet;
  published

  end;

implementation


{ TCustomer }

constructor TCustomer.Create;
begin
  //
end;

destructor TCustomer.Destroy;
begin

  inherited;
end;

{ TCloudscapeCustomerDAO }

constructor TCloudscapeCustomerDAO.Create;
begin
  //
end;

function TCloudscapeCustomerDAO.deleteCustomer(
  fCustomer: TCustomer): boolean;
begin
  //
end;

destructor TCloudscapeCustomerDAO.Destroy;
begin
  //
  inherited;
end;

function TCloudscapeCustomerDAO.findCustomer(fID: integer): TCustomer;
begin
  //
end;

function TCloudscapeCustomerDAO.insertCustomer(
  fCustomer: TCustomer): boolean;
begin
  //
end;

function TCloudscapeCustomerDAO.selectCustomersRS(fKey: string): TDataSet;
begin
  //
end;

function TCloudscapeCustomerDAO.updateCustomer(
  fCustomer: TCustomer): boolean;
begin
  //
end;

end.