uvadgpurchaseorderrefer.pas

Delphi6开发的HIS程序

unit UVADGPURchaseOrderRefer;

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, UQueryDataModel, UView, UControllerView,
  UPagesView, UAdapterDataPagesView, RzTabs, UVMADGPOMedicineDetailRO,
  cxCurrencyEdit;

type
  TVADGPURchaseOrderRefer = 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}

{ TVADGPURchaseOrderRefer }

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

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

function TVADGPURchaseOrderRefer.GetCaption: string;
begin
  Result := '采购单提交';
end;

procedure TVADGPURchaseOrderRefer.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 TVADGPURchaseOrderRefer.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 TVADGPURchaseOrderRefer.GridDBTableViewCellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  inherited;
  TQueryDataModel(POMedicineDetailView.GetDataModel).Query(GetKey);
end;

end.