udataview.pas

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

unit UDataView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzCommon, jpeg, RzBckgnd, ExtCtrls, RzPanel,
  MyView, UView, UDataModel, MyFactory, MyTools, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, DB, Ora,
  UModel, UCloneDataModel, UPrimaryDataModel;

type
  TDataView = class(TView, IDataAccess, IPrint)
    ComponentPrinter: TdxComponentPrinter;
    DataSource: TDataSource;
  protected
    procedure SetModel(Model: TModel); override;
    function GetCloneDataModel(PModel: TPrimaryDataModel): TCloneDataModel; virtual;
{---------------------------------------- IDataAccess ----------------------------------------}
  public
    function GetItem: MyTools.IDataItem; virtual;
    function GetKey: IKey; virtual;
{---------------------------------------- IPrint ----------------------------------------}
  public
    procedure PreparePrint; virtual;
    procedure ConfigurePrinter; virtual;
    procedure Preview; virtual;
    procedure Print; virtual;
  public
    function GetDataModel: TDataModel; virtual;
    procedure InitView; override;
  end;

implementation

{$R *.dfm}

{ TDataView }

procedure TDataView.ConfigurePrinter;
begin

end;

function TDataView.GetCloneDataModel(PModel: TPrimaryDataModel): TCloneDataModel;
begin
  Result := TCloneDataModel.Create(Self);
  PModel.Clone(Result);
end;

function TDataView.GetDataModel: TDataModel;
begin
  Result := TDataModel(GetModel);
end;

function TDataView.GetItem: IDataItem;
begin

end;

function TDataView.GetKey: IKey;
begin
  Result := GetDataModel.GetKey;
end;

procedure TDataView.InitView;
begin
  inherited;
  DataSource.DataSet := GetDataModel.GetDataSet;
end;

procedure TDataView.PreparePrint;
begin
  ComponentPrinter.PrintTitle := GetCaption;
end;

procedure TDataView.Preview;
begin

end;

procedure TDataView.Print;
begin
  PreparePrint;
  ComponentPrinter.Preview(True);
end;

procedure TDataView.SetModel(Model: TModel);
begin
  inherited;
  DataSource.DataSet := TDataModel(Model).GetDataSet;
end;

end.