uvmadgpcomaterial.pas

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

unit UVMADGPCOMaterial;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, UView, UCloneDataModel, UPrimaryDataModel, Factory, cxCheckBox,
  cxDBLookupComboBox;

type
  TVMADGPCOMaterial = class(TMasterAdapterDataGridView)
    CreateBY: TDataSource;
    MaterialStockDetailID: TDataSource;
    GridDBTableViewPCOMATERIALID: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewNEWPRICE: TcxGridDBColumn;
    GridDBTableViewOLDPRICE: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    GridDBTableViewMATERIALSTOCKDETAILID: TcxGridDBColumn;
    UpdateBY: TDataSource;
    ApproveBY: TDataSource;
  private
    CreateBYModel: TCloneDataModel;
    UpdateBYModel: TCloneDataModel;
    ApproveBYModel: TCloneDataModel;
    MaterialStockDetailIDModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    function GetDetailView: TView; override;
  end;

implementation

uses UMADPCOMaterial, UMADMaterialStockDetail, UMADEmployee, UVADIPCOMaterial;

{$R *.dfm}

{ TVMADGPCOMaterial }

function TVMADGPCOMaterial.GetCaption: string;
begin
  Result := '医用药品调价单';
end;

function TVMADGPCOMaterial.GetDetailView: TView;
var
  View : TVADIPCOMaterial ;
begin
  View := TVADIPCOMaterial.Create(Self,PCOMaterialFactory);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVMADGPCOMaterial.InitModel;
begin
  inherited;
  CreateBYModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(EmployeeFactory.GetModel).Clone(CreateBYModel);
  CreateBY.DataSet := CreateBYModel.GetDataSet;

  UpdateBYModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(EmployeeFactory.GetModel).Clone(UpdateBYModel);
  UpdateBY.DataSet := UpdateBYModel.GetDataSet;

  ApproveBYModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(EmployeeFactory.GetModel).Clone(ApproveBYModel);
  ApproveBY.DataSet := ApproveBYModel.GetDataSet;

  MaterialStockDetailIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(MaterialStockDetailFactory.GetModel).Clone(MaterialStockDetailIDModel);
  MaterialStockDetailID.DataSet := MaterialStockDetailIDModel.GetDataSet;
end;

end.