uadapterdataitemview.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

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

{$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.