s2.form.ts2adapterdataitemviewdialog.pas

轉載的程序應用框架

unit S2.Form.TS2AdapterDataItemViewDialog;

interface

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

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

implementation

uses
  S2.Model.TS2ClientDataModel;

{$R *.dfm}

{ TS2AdapterDataItemViewDialog }

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

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

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

end.