idaovalueobjectunit.pas

Delphi最新三层源码(1.0),对delphi有帮助

////--------------------------------------------------------------------------
//1.DAO模式接口定义
//--------------------------------------------------------------------------

unit IDAOValueObjectUnit;

interface

uses
  Classes, DB, ValueObjectUnit;

type
  IDAOValueObject = interface(IUnknown)
    ['{DF03C9E7-2A5B-4E32-8EF5-C4E8FC77E8BB}']
    function createDAOValue: TValueObject;
    function insertDAOValue(pValueObject: TValueObject): Integer;
    function updateDAOValue(pValueObject: TValueObject) :Integer;
    function deleteDAOValue(pValueObject: TValueObject) :Integer;  
    //function findByPrimaryKey(const pServiceName: WideString;  vKey: OleVariant): TValueObject;
  end;

implementation

end.