uadapterdataview.pas

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

unit UAdapterDataView;

interface

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

type
  TAdapterDataView = class(TDataView, IDataAdapter)
  public
    function GetAdapterDataModel: TAdapterDataModel; virtual;
  public
{---------------------------------------- IDataAdapter ----------------------------------------}
    procedure Save(Parameters: IParameters); virtual;
    procedure Append(Parameters: IParameters); virtual;
    procedure Cancel(Parameters: IParameters); virtual;
    procedure Delete(Parameters: IParameters); virtual;
    procedure Modify(Parameters: IParameters); virtual;
  end;

implementation

uses
  UModel;

{$R *.dfm}

{ TAdapterDataView }

procedure TAdapterDataView.Append(Parameters: IParameters);
begin
  GetAdapterDataModel.Append(Parameters);
end;

procedure TAdapterDataView.Cancel(Parameters: IParameters);
begin
  GetAdapterDataModel.Cancel(Parameters);
end;

procedure TAdapterDataView.Delete(Parameters: IParameters);
begin
  GetAdapterDataModel.Delete(Parameters);
end;

function TAdapterDataView.GetAdapterDataModel: TAdapterDataModel;
begin
  Result := TAdapterDataModel(GetModel);
end;

procedure TAdapterDataView.Modify(Parameters: IParameters);
begin

end;

procedure TAdapterDataView.Save(Parameters: IParameters);
begin
  GetAdapterDataModel.Save(Parameters);
end;

end.