uvadgpurchaseorderapprove.pas

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

unit UVADGPURchaseOrderApprove;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataGridView, 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, UCloneDataModel, UPrimaryDataModel, Factory, cxCheckBox,
  cxDBLookupComboBox, MyTools, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, UQueryDataModel, RzTabs, UVMADGPOMedicineDetailRO,
  cxCurrencyEdit;

type
  TVADGPURchaseOrderApprove = class(TAdapterDataGridView)
    PurchaseMethod: TDataSource;
    UpdateBy: TDataSource;
    ApproveBy: TDataSource;
    CreateBy: 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;
    PagesView: TAdapterDataPagesView;
    Splitter1: TSplitter;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    PurchaseMethodModel: TCloneDataModel;
    POMedicineDetailView: TVMADGPOMedicineDetailRO;
  protected
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption: string; override;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
  end;

implementation
uses
  UMADPURChaseOrder, UMADEmployee, UMADPurchaseMethod;
{$R *.dfm}

{ TVADGPURchaseOrderApprove }

procedure TVADGPURchaseOrderApprove.Append(Parameters: IParameters);
begin
//
end;

procedure TVADGPURchaseOrderApprove.Delete(Parameters: IParameters);
begin
//
end;

function TVADGPURchaseOrderApprove.GetCaption: string;
begin
  Result := '采购单审核';
end;

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

procedure TVADGPURchaseOrderApprove.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  POMedicineDetailView := TVMADGPOMedicineDetailRO.Create(Page,POMedicineDetailROFactory);
  PagesView.BandView(Page, POMedicineDetailView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(POMedicineDetailView.GetDataModel).Query(Key);
end;



procedure TVADGPURchaseOrderApprove.GridDBTableViewCellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  inherited;
  TQueryDataModel(POMedicineDetailView.GetDataModel).Query(GetKey);
end;

end.