s2.view.ts2adapterdataitemview.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 76 行

unit S2.View.TS2AdapterDataItemView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Tools.TS2Object, S2.Controller.IS2DataAdapterController,
  S2.View.TS2DataItemView;

type
  TS2AdapterDataItemView = class(TS2DataItemView, IS2DataAdapterController)
  public
    procedure Append(O: TS2Object); virtual;
    procedure Cancel(O: TS2Object); virtual;
    procedure Delete(O: TS2Object); virtual;
    procedure Modify(O: TS2Object); virtual;
    procedure Update(O: TS2Object); virtual;
    procedure First(); virtual;
    procedure Last(); virtual;
    procedure Next(); virtual;
    procedure Prior(); virtual;  
  end;

implementation

{$R *.dfm}

{ TS2AdapterDataItemView }

procedure TS2AdapterDataItemView.Append(O: TS2Object);
begin

end;

procedure TS2AdapterDataItemView.Cancel(O: TS2Object);
begin

end;

procedure TS2AdapterDataItemView.Delete(O: TS2Object);
begin

end;

procedure TS2AdapterDataItemView.First;
begin

end;

procedure TS2AdapterDataItemView.Last;
begin

end;

procedure TS2AdapterDataItemView.Modify(O: TS2Object);
begin

end;

procedure TS2AdapterDataItemView.Next;
begin

end;

procedure TS2AdapterDataItemView.Prior;
begin

end;

procedure TS2AdapterDataItemView.Update(O: TS2Object);
begin

end;

end.