unit UAdapterDataItemView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataView, DB, Ora, dxPSCore, RzCommon, jpeg, RzBckgnd,
  ExtCtrls, RzPanel,
  dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
  dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns,
  UModel, RzButton, MyFactory,
  MyTools, MyView;

type
  TAdapterDataItemView = class(TAdapterDataView, IDataItem)
    RzPanel3: TRzPanel;
    RzBackground2: TRzBackground;
    RzPanel4: TRzPanel;
    RzPanel5: TRzPanel;
    BtnCancel: TRzBitBtn;
    BtnSave: TRzBitBtn;
    procedure BtnCancelClick(Sender: TObject);
{---------------------------------------- IModel ----------------------------------------}
  public
    procedure SetModel(Model: TModel); reintroduce;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Modify(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
  public
  end;

implementation

uses UDataView;

{$R *.dfm}

{ TAdapterDataItemView }

procedure TAdapterDataItemView.Append(Parameters: IParameters);
begin
end;

procedure TAdapterDataItemView.Delete(Parameters: IParameters);
begin
end;

procedure TAdapterDataItemView.Modify(Parameters: IParameters);
begin
end;

procedure TAdapterDataItemView.SetModel(Model: TModel);
begin
  Self.Model := Model;
end;

procedure TAdapterDataItemView.BtnCancelClick(Sender: TObject);
begin
  Cancel(nil);
end;

procedure TAdapterDataItemView.Save;
begin
end;

end.