uadapterdataitemview.pas

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

unit UAdapterDataItemView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataView, DB, dxPSCore, RzCommon, jpeg, RzBckgnd,
  ExtCtrls, RzPanel,
  dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
  dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns,
  UModel, RzButton, MyFactory,
  MyTools, MyView, DBCtrls, RzDBNav;

type
  TAdapterDataItemView = class(TAdapterDataView, IDataItem)
    RzPanel3: TRzPanel;
    RzBackground2: TRzBackground;
    RzPanel44: TRzPanel;
    RzPanel66: TRzPanel;
    BtnSave: TRzBitBtn;
    BtnCancel: TRzBitBtn;
    RzDBNavigator1: TRzDBNavigator;
    procedure BtnCancelClick(Sender: TObject);
{---------------------------------------- IModel ----------------------------------------}
  public
    procedure SetModel(Model: TModel); reintroduce;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Modify(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
  public
  end;

implementation

{$R *.dfm}

{ TAdapterDataItemView }

procedure TAdapterDataItemView.Append(Parameters: IParameters);
begin
end;

procedure TAdapterDataItemView.Delete(Parameters: IParameters);
begin
end;

procedure TAdapterDataItemView.Modify(Parameters: IParameters);
begin
end;

procedure TAdapterDataItemView.SetModel(Model: TModel);
begin
  Self.Model := Model;
end;

procedure TAdapterDataItemView.BtnCancelClick(Sender: TObject);
begin
  Cancel(nil);
end;

procedure TAdapterDataItemView.Save;
begin
end;

end.