s2.form.ts2adapterdataitemsviewdialog.pas

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

unit S2.Form.TS2AdapterDataItemsViewDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Form.TS2DataItemsViewDialog, RzButton, ExtCtrls, RzPanel,
  RzBckgnd, S2.Form.TS2Frame, S2.View.TS2View,
  S2.Controller.TS2ViewsController, S2.Controller.TS2PagesController,
  Buttons, RzSpnEdt, S2.Controller.TS2AdapterDataPagesController;

type
  TS2AdapterDataItemsViewDialog = class(TS2DataItemsViewDialog)
    _AppendButton: TRzRapidFireButton;
    _DeleteButton: TRzRapidFireButton;
  private
    procedure Append; virtual;
    procedure Delete; virtual;
  private
    function GetAdapterDataPagesController: TS2AdapterDataPagesController;
  protected  //  S2.Form.TS2ViewDialog
    function CreateViewsController: TS2PagesController; override;
  end;

implementation

uses
  S2.Model.TS2ClientDataModel;

{$R *.dfm}

{ TS2AdapterDataItemsViewDialog }

procedure TS2AdapterDataItemsViewDialog.Append;
begin
  if (TS2ViewsController(GetViewsController) is TS2AdapterDataPagesController) then
    ((TS2ViewsController(GetViewsController) as TS2AdapterDataPagesController).GetModel as TS2ClientDataModel).GetDataAdapter.Append;
end;

function TS2AdapterDataItemsViewDialog.CreateViewsController: TS2PagesController;
begin
  Result := TS2AdapterDataPagesController.Create(Self, GetSystemObject);
end;

procedure TS2AdapterDataItemsViewDialog.Delete;
begin
  if (TS2ViewsController(GetViewsController) is TS2AdapterDataPagesController) then
    ((TS2ViewsController(GetViewsController) as TS2AdapterDataPagesController).GetModel as TS2ClientDataModel).GetDataAdapter.Delete;
end;

function TS2AdapterDataItemsViewDialog.GetAdapterDataPagesController: TS2AdapterDataPagesController;
begin
  Result := TS2AdapterDataPagesController(GetViewsController);  
end;

end.