mymodel.pas

来自「一整套的源代码」· PAS 代码 · 共 41 行

unit MyModel;

interface

uses
  DB, MyTools;

type
  IModel = interface
    function GetIsModified: Boolean;
    procedure SetIsModified(const Value: Boolean);
    property IsModified: Boolean read GetIsModified write SetIsModified;
    procedure Refresh(Parameters: IParameters);
  end;

  IPersist = interface
  end;

  IDataAccess = interface
    function GetDataItem(Key: IKey): MyTools.IDataItem;
    function GetCount: Word;
    function GetDataSet: TDataSet;
    function GetKey: IKey;
  end;

  IDataAdapter = interface
    procedure Append(Parameters: IParameters);
    procedure Save(Parameters: IParameters);
    procedure Delete(Parameters: IParameters);
    procedure Cancel(Parameters: IParameters);
    function CheckValue: Boolean;
  end;

  IQuery = interface
    function Query(Parameters: IParameters): Integer;
  end;

implementation

end.