myview.pas

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

unit MyView;

interface

uses
  MyTools, MyModel, UModel, MyFactory;

type
  IView = interface
    function GetCaption: string;
    procedure Refresh(Parameters: IParameters);
    function GetModel: TModel;
    function GetModelFactory: TModelFactory;
  end;

  ICommands = interface
    procedure Execute;
  end;

  IDataAccess = interface
    function GetItem: MyTools.IDataItem;
    function GetKey: IKey;    
  end;

  IDataItem = interface
    procedure SetModel(Model: TModel);
  end;

  IDataItems = interface
    function GetCount: Word;
    function GetItems: MyTools.IDataItemList;
  end;

  IPrint = interface
    procedure PreparePrint;
    procedure Preview;
    procedure Print;
  end;

  IDataAdapter = interface
    procedure Save(Parameters: IParameters);
    procedure Append(Parameters: IParameters);
    procedure Cancel(Parameters: IParameters);
    procedure Delete(Parameters: IParameters);
    procedure Modify(Parameters: IParameters);
  end;

  IMasterDetail = interface
    procedure ShowDetailView;
  end;

  ISurrogate = interface
    procedure SetSurrogate(Surrogate: IView);
    function GetSurrogate: IView;
  end;

implementation

end.