unit UVMADGPURChaseOrder;

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, cxCheckBox, cxDBLookupComboBox, UView, UCloneDataModel,
  UPrimaryDataModel, Factory;

type
  TVMADGPURChaseOrder = class(TMasterAdapterDataGridView)
    PurchaseMethod: TDataSource;
    GridDBTableViewPURCHASEORDERID: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewCHECKINDATE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewTAXRATE: TcxGridDBColumn;
    GridDBTableViewMEMO: TcxGridDBColumn;
    GridDBTableViewREFERDATE: TcxGridDBColumn;
    GridDBTableViewISREFERED: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewPURCHASEMETHODID: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    UpdateBy: TDataSource;
    ApproveBy: TDataSource;
    CreateBy: TDataSource;
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    PurchaseMethodModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    function GetDetailView: TView; override;
  end;

implementation

uses UMADPURChaseOrder, UMADEmployee, UMADPurchaseMethod,
  UVADIPURChaseOrder;

{$R *.dfm}

{ TVMADGPURChaseOrder }

function TVMADGPURChaseOrder.GetCaption: string;
begin
  Result := '采購單';
end;

function TVMADGPURChaseOrder.GetDetailView: TView;
var
  View : TVADIPURChaseOrder;
begin
  View := TVADIPURChaseOrder.Create(Self, GetModelFactory);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVMADGPURChaseOrder.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;

  PurchaseMethodModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(PurchaseMethodFactory.GetModel).Clone(PurchaseMethodModel);
  PurchaseMethod.DataSet := PurchaseMethodModel.GetDataSet;
end;

end.