uadapterdataview.pas

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

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.