s2.view.ts2adapterdataitemsview.pas

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

unit S2.View.TS2AdapterDataItemsView;

interface

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

type
  TS2AdapterDataItemsView = class(TS2DataItemsView, IS2DataAdapterController)
  private
  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}

{ TS2AdapterDataItemsView }

procedure TS2AdapterDataItemsView.Append(O: TS2Object);
begin
  GetDataModel.GetDataAdapter.Append;
end;

procedure TS2AdapterDataItemsView.Cancel(O: TS2Object);
begin

end;

procedure TS2AdapterDataItemsView.Delete(O: TS2Object);
begin

end;

procedure TS2AdapterDataItemsView.First;
begin

end;

procedure TS2AdapterDataItemsView.Last;
begin

end;

procedure TS2AdapterDataItemsView.Modify(O: TS2Object);
begin

end;

procedure TS2AdapterDataItemsView.Next;
begin

end;

procedure TS2AdapterDataItemsView.Prior;
begin

end;

procedure TS2AdapterDataItemsView.Update(O: TS2Object);
begin
  GetDataModel.GetDataAdapter.Save;
end;

end.