usurrogateadapterdataview.pas

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

unit USurrogateAdapterDataView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, USurrogateDataView, RzCommon, jpeg, RzBckgnd, ExtCtrls, RzPanel,
  MyTools, MyView, UAdapterDataView;

type
  TSurrogateAdapterDataView = class(TSurrogateDataView, IDataAdapter)
{---------------------------------------- IDataAdapter ----------------------------------------}
  public
    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;
  public
    function GetSurrogate: TAdapterDataView; reintroduce;
  end;

implementation

{$R *.dfm}

procedure TSurrogateAdapterDataView.Append(Parameters: IParameters);
begin
  GetSurrogate.Append(Parameters);
end;

procedure TSurrogateAdapterDataView.Cancel(Parameters: IParameters);
begin
  GetSurrogate.Cancel(Parameters);
end;

procedure TSurrogateAdapterDataView.Delete(Parameters: IParameters);
begin
  GetSurrogate.Delete(Parameters);
end;

function TSurrogateAdapterDataView.GetSurrogate: TAdapterDataView;
begin
  Result := TAdapterDataView(inherited GetSurrogate);
end;

procedure TSurrogateAdapterDataView.Modify(Parameters: IParameters);
begin
  GetSurrogate.Modify(Parameters);
end;

procedure TSurrogateAdapterDataView.Save(Parameters: IParameters);
begin
  GetSurrogate.Save(Parameters);
end;

end.